[VBS]VBScriptでイベントログに出力

VBscriptでWindowsのイベントログに出力するものを探している人は参考にしてください。

下記は、Windowsの（アプリケーション）イベントログに「成功」、「エラー」、「警告」、「情報」の順に出力するサンプルです。

■VBscriptのソース(イベントログ出力.vbs)

Const EVENT_SUCCESS = 0 '成功
Const EVENT_ERROR = 1 'エラー
Const EVENT_WARING = 2 '警告
Const EVENT_INFO = 4 '情報

Set objShell = Wscript.CreateObject("Wscript.Shell")
objShell.LogEvent EVENT_SUCCESS, "バックアップは正常に終了しました。"
objShell.LogEvent EVENT_ERROR, "バックアップは失敗に終了しました。"
objShell.LogEvent EVENT_WARING, "バックアップに警告が出力されています。"
objShell.LogEvent EVENT_INFO, "バックアップを開始します。"

■実行結果

①「成功」を設定したエベントログの結果