Сценария асинхронного отслеживания подключения устройств USB - VBScript/JScript - Ответ 11988722

Dim objWMI, objCollection, objItem, blnPlug
Set objWMI = GetObject("winmgmts:\\.\root\cimv2")
Set objCollection = objWMI.ExecNotificationQuery("SELECT * FROM __InstanceCreationEvent WITHIN 5 WHERE TargetInstance ISA 'Win32_LogicalDisk' AND (TargetInstance.DriveType=2 OR TargetInstance.DriveType=5)")
'WScript.Echo "Наблюдение начато: " & Time
Do
    Set objItem = objCollection.NextEvent
    If objItem.TargetInstance.DriveType = 2 Then
        blnPlug = True
    ElseIf objItem.TargetInstance.DriveType = 5 Then
        If objWMI.ExecQuery("SELECT MediaType FROM Win32_CDROMDrive WHERE Drive='" & objItem.TargetInstance.DeviceID & "' AND MediaType='UNKNOWN'").Count > 0 Then blnPlug = True
    End If
    If blnPlug Then
        'intCounter = intCounter + 1
        WScript.Echo "Тип накопителя: " & objItem.TargetInstance.DeviceID & vbNewLine & "ФС накопителя: " & objItem.TargetInstance.FileSystem
        'If intCounter >= 2 Then Exit Do
    End If
    blnPlug = False
Loop
'WScript.Echo "Наблюдение закончено: " & Time
WScript.Quit 0