' Тут начинаем сканирование на наличие новых дисков (т.е. ожидаем, пока воткнут что-нибудь)
strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 
Set objEvents = objWMIService.ExecNotificationQuery _
("SELECT * FROM __InstanceCreationEvent WITHIN 5 WHERE " & _
    "TargetInstance ISA 'Win32_LogicalDisk'" & _ 
    " AND TargetInstance.DriveType = 2")
a=0
Do While a=0
Set objReceivedEvent = objEvents.NextEvent
disk=objReceivedEvent.TargetInstance.Name
a=1
Loop
Set objWMIService = Nothing
Set objEvents = Nothing
disk = disk & "\\\\"
' Тут сканирование закончивается, если вставили USB (или любой другой съемный носитель - буква диска зафиксирована)

'Тут запускаем логирование копирования файлов на съемный носитель
FileDestination = "result.txt"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Destination = FSO.CreateTextFile(FileDestination)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\cimv2")
Set colMonitoredEvents = objWMIService.ExecNotificationQuery _
("SELECT * FROM __InstanceCreationEvent WITHIN 10 WHERE " _
& "Targetinstance ISA 'CIM_DirectoryContainsFile' and " _
& "TargetInstance.GroupComponent= " _
& "'Win32_Directory.Name=""" & disk & """'")
Do
Set objLatestEvent = colMonitoredEvents.NextEvent
Str = objLatestEvent.TargetInstance.PartComponent
Destination.WriteLine now() & "--" & Str
Loop