VBS: Ожидание подключения USB накопителей

On Error Resume Next
Set FSO = CreateObject("Scripting.FileSystemObject")
colDrives = Split("D E F G H I J K L M N O P Q R S T U V W X Y Z")
Set dictDrives = CreateObject("Scripting.Dictionary")
For Each Drive In colDrives
    Set Drv = FSO.GetDrive(Drive & ":")
    If Err.Number Then
        dictDrives.Add Drive & ":", False
    Else
        If Drv.DriveType = 1 And Drv.IsReady Then
            dictDrives.Add Drive & ":", True
        Else
            dictDrives.Add Drive & ":", False
        End If
    End If
    Err.Clear
Next
' Бесконечный цикл
While True
    For Each Drive In dictDrives.Keys
        Set Drv = FSO.GetDrive(Drive)
        If (Err.Number) Or (Drv.IsReady = False) Or (Drv.DriveType <> 1) Then
            Flag = False
        Else
            Flag = True
        End If
        Err.Clear
        Current = dictDrives.Item(Drive)
        If Current <> Flag Then
            If Current = False And Flag = True Then
                Set FSO=CreateObject("Scripting.FileSystemObject") 
                FSO.CopyFile "C:\1.txt","Drive.\копия1.txt"            
            End If
            dictDrives.Item(Drive) = Flag
        End If
    Next
    WScript.Sleep 1000
Wend

For Each objSWbemObjectEx_Win32_DiskDrive In objService.Get(objEvent.TargetInstance.Dependent).Associators_("", "Win32_DiskDrive")
    For Each objSWbemObjectEx_Win32_DiskPartition In objSWbemObjectEx_Win32_DiskDrive.Associators_("", "Win32_DiskPartition")
        For Each objSWbemObjectEx_Win32_LogicalDisk In objSWbemObjectEx_Win32_DiskPartition.Associators_("", "Win32_LogicalDisk")
            WScript.Echo "Win32_LogicalDisk.DeviceID   := [" & objSWbemObjectEx_Win32_LogicalDisk.DeviceID & "]"
            WScript.Echo "Win32_LogicalDisk.VolumeName := [" & objSWbemObjectEx_Win32_LogicalDisk.VolumeName & "]"
        Next
    Next
Next

'-------------------------------------------------------------------------------------------------
'---------------- Без гарантий. Используете на свой страх и риск. --------------------------------
'-------------------------------------------------------------------------------------------------
'Скрипт предназначен для слежения за подключением/отключением Flash USB накопителя и основан на 
'интерфейсе WMI. События подключения, останова и физического извлечения накопителя, подтверждаются
'соответствующими сообщениями. Желательно запускать скрипт при включенном и опознанном накопителе, 
'либо при программно остановленном и удаленном из USB разъема компьютера.
'-------------------------------------------------------------------------------------------------
'Lang. VBScript
'OC WinMe/XP
'-------------------------------------------------------------------------------------------------
'Внимание! Возможность завершения работы скрипта здесь не предусмотрена.
'-------------------------------------------------------------------------------------------------

Public PlugIn,PlugOut,Disconnect
Public objService
Public PrevDrivesStr,DriveLetter

'[Подключение к пространству имен WMI]
'-------------------------------------------------------------------------------------------------
    Set objService        =GetObject    ("winmgmts:\\.\Root\CIMV2")

    PlugIn        =0    'Флаг подключения накопителя USB
    PlugOut        =0    'Флаг останова накопителя 
    Disconnect    =0    'Флаг физического извлечения накопителя

    GetDriveLetter False    'Определение первоначального состояния подключения



'[Создание запросов на события]
'-------------------------------------------------------------------------------------------------
Set objSink    =WScript.CreateObject("WbemScripting.SWbemSink", "Sink_")

'/Соответствует подключению накопителя/
objService.ExecNotificationQueryAsync _
        objSink, _
        "SELECT * FROM __InstanceOperationEvent WITHIN 1 WHERE TargetInstance ISA ""Win32_USBControllerDevice"""

MsgBox "Запущено наблюдение за USB накопителем.", _
    vbExclamation Or vbSystemModal, _
    "Наблюдение за USB накопителем."

'[Бесконечный цикл с оповещением о состоянии USB контроллера в зависимости от состояния флагов]
'-------------------------------------------------------------------------------------------------
Do
    WScript.Sleep 100

    '[Оповещение события подключения]
    '-----------------------------------------------------------------------------------------
    If PlugIn=1     Then 
        If Disconnect=1 Then Disconnect=0    'Сброс флага в случае аварийного отключения накопителя
        '---------------------------------------------------------------------------------
        MsgBox "Подключен USB накопитель. " & _
            GetDriveLetter(True), _
            vbExclamation Or vbSystemModal, _
            "Наблюдение за USB накопителем"
        PlugIn        =0
    End If

    '[Оповещение события программного останова]
    '-----------------------------------------------------------------------------------------
    If PlugOut=1     Then 
        '---------------------------------------------------------------------------------
        MsgBox "USB накопитель остановлен программно либо произошло аварийное извлечение из корпуса компьютера. " & _
            GetDriveLetter(True), _
            vbExclamation Or vbSystemModal, _
            "Наблюдение за USB накопителем"
        PlugOut        =0
        Disconnect    =1
    End If
    '-----------------------------------------------------------------------------------------
Loop

'[Получение буквы съемного Flash USB диска]
'-------------------------------------------------------------------------------------------------
Function GetDriveLetter(flg)

        DrivesStr=""
        Set RemovableDrives    =objService.ExecQuery("SELECT * FROM Win32_LogicalDisk WHERE DriveType=2")
        '---------------------------------------------------------------------------------
        For Each Drive In RemovableDrives
            DrivesStr=DrivesStr & Drive.DeviceId
        Next
        '---------------------------------------------------------------------------------
        If flg=True Then    
            'Подключение накопителя
            If Len(DrivesStr)>Len(PrevDrivesStr) Then 
                DriveLetter=Replace(DrivesStr,PrevDrivesStr,"")
                GetDriveLetter=DriveLetter
            End If
            'Отключение накопителя
            If Len(PrevDrivesStr)>Len(DrivesStr) Then 
                DriveLetter=Replace(PrevDrivesStr,DrivesStr,"")
                GetDriveLetter=DriveLetter
            End If
        End If
        '---------------------------------------------------------------------------------
        PrevDrivesStr=DrivesStr
        
End Function

'[Обработка событий - простановка флагов состояния USB контроллера]
'-------------------------------------------------------------------------------------------------
Sub Sink_OnObjectReady(objEvent, objContext)    'Подключение

    OperationData        =objEvent.Path_.Class
    '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    If     OperationData="__InstanceCreationEvent" Then
        For Each objSWbemObjectEx_Win32_DiskDrive In objService.Get(objEvent.TargetInstance.Dependent).Associators_("", "Win32_DiskDrive")
            For Each objSWbemObjectEx_Win32_DiskPartition In objSWbemObjectEx_Win32_DiskDrive.Associators_("", "Win32_DiskPartition")
                For Each objSWbemObjectEx_Win32_LogicalDisk In objSWbemObjectEx_Win32_DiskPartition.Associators_("", "Win32_LogicalDisk")
                    WScript.Echo "Win32_LogicalDisk.DeviceID   := [" & objSWbemObjectEx_Win32_LogicalDisk.DeviceID & "]"
                    WScript.Echo "Win32_LogicalDisk.VolumeName := [" & objSWbemObjectEx_Win32_LogicalDisk.VolumeName & "]"
                Next
            Next
        Next
        
        PlugIn=1
    ElseIf     OperationData="__InstanceDeletionEvent" Then
        '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
        If Disconnect=1 Then 

            '[Оповещение события физического извлечения]
            '-------------------------------------------------------------------------
            MsgBox "USB накопитель нормально извлечен из корпуса компьютера. " & _
            DriveLetter, _
            vbExclamation Or vbSystemModal, _
            "Наблюдение за USB накопителем"

            Disconnect    =0
        Else    '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
            PlugOut        =1
        End If
        '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    End If
    '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
End Sub

'-------------------------------------------------------------------------------------------------
'poltergeyst

Option Explicit

Const wbemFlagReturnImmediately = &H00000010
Const wbemFlagForwardOnly       = &H00000020

Dim objSWbemServicesEx
Dim collSWbemObjectSet
Dim objSWbemObjectEx_Win32_DiskDrive, objSWbemObjectEx_Win32_DiskPartition, objSWbemObjectEx_Win32_LogicalDisk


Set objSWbemServicesEx = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

Set collSWbemObjectSet = objSWbemServicesEx.ExecNotificationQuery( _
    "SELECT * FROM __InstanceOperationEvent WITHIN 5 WHERE TargetInstance ISA 'Win32_PnPEntity' AND " & _
    "TargetInstance.Description = 'Дисковый накопитель'")

Do
    With collSWbemObjectSet.NextEvent
        Select Case .Path_.Class
            Case "__InstanceCreationEvent"
                With .TargetInstance
                    WScript.Echo "Plugged device:       ", .Name
                    WScript.Echo "DeviceID:             ", .DeviceID
                    
                    For Each objSWbemObjectEx_Win32_DiskDrive In .Associators_("", "Win32_DiskDrive",,,,,,, wbemFlagReturnImmediately + wbemFlagForwardOnly)
                        WScript.Echo "  Physical disk drive:", objSWbemObjectEx_Win32_DiskDrive.Name
                        
                        If objSWbemObjectEx_Win32_DiskDrive.Partitions > 0 Then
                            For Each objSWbemObjectEx_Win32_DiskPartition In objSWbemObjectEx_Win32_DiskDrive.Associators_("", "Win32_DiskPartition",,,,,,, wbemFlagReturnImmediately + wbemFlagForwardOnly)
                                WScript.Echo "    Disk partition:   ", objSWbemObjectEx_Win32_DiskPartition.Name
                                
                                For Each objSWbemObjectEx_Win32_LogicalDisk In objSWbemObjectEx_Win32_DiskPartition.Associators_("", "Win32_LogicalDisk",,,,,,, wbemFlagReturnImmediately + wbemFlagForwardOnly)
                                    With objSWbemObjectEx_Win32_LogicalDisk
                                        WScript.Echo "      Logical disk:   ", .Name & " (" & .VolumeName & "), " & .FileSystem
                                    End With
                                Next
                            Next
                        End If
                    Next
                    
                    WScript.Echo
                End With
            Case "__InstanceDeletionEvent"
                With .TargetInstance
                    WScript.Echo "Unplugged device:     ", .Name
                    WScript.Echo "DeviceID:             ", .DeviceID
                    WScript.Echo
                End With
            Case Else
        End Select
    End With
Loop

Set collSWbemObjectSet = Nothing
Set objSWbemServicesEx = Nothing

WScript.Quit 0

If GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2").ExecQuery( _
    "SELECT * FROM Win32_DiskDrive WHERE InterfaceType = 'USB'" _
    ).Count > 0 Then
    
    WScript.CreateObject("WScript.Shell").Run "notepad.exe"
End If