イベントログへのログ出力

概要†

Windowsのイベントログへ任意のログを書き込むためのスクリプト。

コード†

'イベントログ出力スクリプト
'
' 2010/04/01
'

'◆イベントメッセージ設定
dim EVENT_MSG
EVENT_MSG = "VBによるイベントログ書き込みテスト" & vbCrLf & "イベントログへ書き込みを行いました。"

'◆イベントID設定
'0	成功
'1	エラー
'2	警告
'4	情報
'8	成功の監査
'16	失敗の監査
Const EVENT_ID = 1

'◆イベントログへ書き込み
Set objShell = Wscript.CreateObject("Wscript.Shell")
objShell.LogEvent EVENT_ID, EVENT_MSG