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 件のコメント:
コメントを投稿