イベントログへのログ出力 の変更点

• 追加された行はこの色です。
• 削除された行はこの色です。
• イベントログへのログ出力 へ行く。
• イベントログへのログ出力 の差分を削除

**概要 [#x7180ae0]
Windowsのイベントログへ任意のログを書き込むためのスクリプト。

**コード [#d820814a]
 'イベントログ出力スクリプト
 '
 ' 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