strComputer = "."
Set objWMIService = GetObject("winmgmts:{(Security)}\\" & _
strComputer & "\root\cimv2")
Set colMonitoredEvents = objWMIService.ExecNotificationQuery _
("Select * from __InstanceCreationEvent Where " & _
"TargetInstance ISA 'Win32_NTLogEvent' " & _
"and TargetInstance.SourceName = 'yarai ZDP' ")
Do
Set objLatestEvent = colMonitoredEvents.NextEvent
If objLatestEvent.TargetInstance.EventCode = 1 Then
Call MsgBox("FFR yarai 2000が異常を検知しました。" & _
vbCrLf & vbCrLf & _
"メッセージ: " & _
objLatestEvent.TargetInstance.Message & _
"イベントコード: " & _
objLatestEvent.TargetInstance.EventCode, _
vbYes + vbError,"Error")
End If
Loop
このスクリプトを拡張子.vbsで適当な場所に保存し、%windir%\system32\cscript.exe <scriptfile>
元ねたはMicrosoft | TechnetのHey, Scripting Guy! イベント ログで特定のイベントの発生を監視する方法はありますか、Hey, Scripting Guy! イベント ログ メッセージに特定の単語が含まれるかどうかを監視する方法はありますか、スクリプトとは何ですか | スクリプト センターあたり。
0 件のコメント:
コメントを投稿