[アーティクル]
02/23/2011

vol.7「MOM 2005 管理パックを作ってみよう」

イベント発生

公開日: 2004 年 11 月 25 日

小川貢

トピック

	イベントを記録させる
	MOM 2005 アラートの確認

イベントを記録させる

イベントビューアの Application ログにイベントを記録させるために、以下のような VBScript を作成しました。

Option Explicit
Const SUCCESS = 0
Const ERROR = 1
Const WARNING = 2
Const INFORMATION = 4
Const AUDIT_SUCCESS = 8
Const AUDIT_FAILURE = 16
Call Main()
Sub Main()
Dim objShell
Dim objArgs
Dim result
Set objArgs = WScript.Arguments
If objArgs.Count <> 2 Then
Call Usage()

Else
Set objShell = WScript.CreateObject(&quot;WScript.Shell&quot;)

result = CheckEventType(objArgs(0))

If result &gt; -1 Then

  objShell.LogEvent result, objArgs(1)

  WScript.Echo &quot;イベントを記録しました.&quot;

Else

  Call Usage()

End If

Set objShell = Nothing

End If
Set objArgs = Nothing
End Sub
Function CheckEventType(strEventType)
Dim blnFlag
Dim intEventType
blnFlag = False
intEventType = CInt(strEventType)
Select Case intEventType
Case SUCCESS : blnFlag = True

Case ERROR : blnFlag = True

Case WARNING : blnFlag = True

Case INFORMATION : blnFlag = True

Case AUDIT_SUCCESS : blnFlag = True

Case AUDIT_FAILURE : blnFlag = True

End Select
If blnFlag <> True Then
intEventType = -1

End If
CheckEventType = intEventType
End Function
Sub Usage
WScript.Echo "[Command Error!]"
WScript.Echo "CScript.exe CreateEvent.vbs EventType Message"
WScript.Echo "  EventType"
WScript.Echo "     0 : SUCCESS"
WScript.Echo "     1 : ERROR"
WScript.Echo "     2 : WARNING"
WScript.Echo "     4 : INFORMATION"
WScript.Echo "     8 : AUDIT_SUCCESS"
WScript.Echo "    16 : AUDIT_FAILURE"
WScript.Echo "  Ex"
WScript.Echo "    CScript.exe CreateEvent.vbs 1 ""Create Event Test."""
End Sub