1

我创建了一个 VBScript 来显示我的系统日志内容。如果存在，我还想包括 InsertionString。但是，我似乎无法确定是否存在 InsertionString。这是我的脚本的开头：

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set rs = objWMIService.ExecQuery ("Select * from Win32_NTLogEvent Where Logfile = 'System' and SourceName = 'mysource'")
For Each objEvent in rs
    If objEvent.InsertionString exists....

我尝试了几种变体来确定是否存在 InsertionString，但没有成功，包括：

If Not IsNull(objEvent.InsertionString) Then
If objEvent.InsertionString.Length > 0 Then
If GetLength(objEvent.InsertionString(1)) > 0 Then
If objEvent.InsertionString(1).Length > 0 Then

任何建议，将不胜感激。

谢谢。

4

1 回答 1

2

您在属性名称中拼写错误InsertionString应该是InsertionStrings. 所以这段代码可以正常工作

 If not IsNull(objEvent.InsertionStrings) Then

注意：该属性是一个字符串数组，因此您可以使用循环或and函数InsertionStrings来迭代该属性。For EachUBoundLBound

于 2013-03-05T19:33:57.263 回答