testwdm3.vbs

来自「windows wdm 设备驱动开发指南(武安河)」· VBS 代码 · 共 25 行

REM Note that missing classes in log file mean tthe hat WMI cannot access them.
REM Most likely this indicates a problem with the driver.
REM See %windir%\system32\wbem\wmiprov.log and nt eventlog for more details.
REM You could also delete the line On Error Resume Next and examine the
REM specific VBScript error


On Error Resume Next

Set fso = CreateObject("Scripting.FileSystemObject")
Set a = fso.CreateTextFile("hex.log", True)
Set Service = GetObject("winmgmts:{impersonationLevel=impersonate}!root/wmi")
Rem Wdm3Information - Wdm3 information
Set enumSet = Service.InstancesOf ("Wdm3Information")
a.WriteLine("Wdm3Information")
for each instance in enumSet
    a.WriteLine("    InstanceName=" & instance.InstanceName)
    a.WriteLine("        instance.BufferLen=" & instance.BufferLen)
    a.WriteLine("        instance.BufferFirstWord=" & instance.BufferFirstWord)
    a.WriteLine("        instance.SymbolicLinkName=" & instance.SymbolicLinkName)
next 'instance

a.Close
Wscript.Echo "hex Test Completed, see hex.log for details"