中国DOS联盟

Set oLocator = CreateObject("WbemScripting.SWbemLocator")
Set oSink = WScript.CreateObject("WbemScripting.SWbemSink","Event_")
Set oWMISvc = oLocator.ConnectServer
    oWMISvc.ExecNotificationQueryAsync oSink, _
                "Select * From __InstanceCreationEvent WITHIN 5 " & _
                "Where TargetInstance ISA 'Win32_LogicalDisk'"
Do
    WScript.Sleep 1000
Loop

Sub Event_OnObjectReady(oEventSource,oContext)

    Dim str,strFileList
    str = oEventSource.TargetInstance.Name
    For Each itemFile In oWMISvc.ExecQuery( _
            "Select * From CIM_DataFile Where Drive = '" & str & "'")
        strFileList = strFileList & itemFile.Name & vbCrLf
    Next
    WScript.Echo str & vbCrLf & strFileList

End Sub