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")
Wscript.Echo "Ожидаем события ..."
a=0
Do While a<>1
Set objReceivedEvent = objEvents.NextEvent
disk=objReceivedEvent.TargetInstance.Name
a=1
msgbox disk
Loop
Set objWMIService = Nothing
Set objEvents = Nothing
Wscript.Quit