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 "Ожидаем события ..."
Do While(True)
    Set objReceivedEvent = objEvents.NextEvent

    Wscript.Echo "Name: " & objReceivedEvent.TargetInstance.Name
    Wscript.Echo "Caption: " & objReceivedEvent.TargetInstance.Caption
    Wscript.Echo "FileSystem: " & objReceivedEvent.TargetInstance.FileSystem
    Wscript.Echo "Description: " & objReceivedEvent.TargetInstance.Description

Loop