Tips - WSH

 【TOP】
イベントログを書き込む
運用のためにスクリプトを書く場合など、ログを出力するのは大変重要です。
LogEventメソッドを使うと、イベントログにエントリを作成することができ、イベントビューアで確認できます。 

Option Explicit

Dim WshShell, retVal, message
Set WshShell = WScript.CreateObject("WScript.Shell")

' 何らかの処理
retVal = SomeFunction()
message = GetMessage(retVal)

' イベントログに書き込む
Call WshShell.LogEvent(retVal, message)

'********************************************
Function SomeFunction()
    ' 以下のいずれかの値を返します。
        '0  : SUCCESS (なし(イベントビューアのアイコンは「情報」))
        '1  : ERROR (エラー)
        '2  : WARNING (警告)
        '4  : INFORMATION (情報)
        '8  : AUDIT_SUCCESS (成功の監査)
        '16 : AUDIT_FAILURE (失敗の監査)
End Function

Function GetMessage(val)
    ' valに対応するメッセージを返します。
End Function
【戻る】