1

我在 WMI 中使用此页面上的最后一个示例打印出一些 Windows 系统日志信息：http: //msdn.microsoft.com/en-us/library/aa394593 (VS.85).aspx

我也想打印出二进制数据，但我不确定如何在 WScript 中执行此操作。这是我修改后的代码：

' test.vbs
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colLoggedEvents = objWMIService.ExecQuery _
    ("Select * from Win32_NTLogEvent " _
        & "Where Logfile = 'System' and SourceName = 'MySource'")
For Each objEvent in colLoggedEvents
    Wscript.Echo "Category: " & objEvent.Category & VBNewLine _
    & "Event Code: " & objEvent.EventCode & VBNewLine _
    & "Message: " & objEvent.Message & VBNewLine _
    & "Time Written: " & objEvent.TimeWritten & VBNewLine _
    & "Event Type: " & objEvent.Type & VBNewLine _
    & "Binary Data: " & objEvent.Data
Next

运行 test.vbs 时，我从 Windows Script Host 收到此错误消息：

错误：类型不匹配，代码：800A000D，来源：Microsoft VBScript 运行时错误

知道如何将数据打印为十六进制字符串吗？

4

1 回答 1

1

.Data是一个整数值数组（从外观上看是小端编码的宽字符）。在打印数据之前，您需要将ChrW()每对数字连接到一个字符串。像这样的功能可能会起作用：

Function ToStr(arr)
  ToStr = ""
  For i = 0 To UBound(arr) Step 2
    ToStr = ToStr & ChrW(arr(i) + arr(i+1)*256)
  Next
End Function
于 2013-01-23T20:59:36.140 回答