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

注 :InsertionStringsプロパティは文字列の配列であるため、For EachループまたはUBoundandLBound関数を使用してそのプロパティを反復処理できます。

于 2013-03-05T19:33:57.263 に答える