概要

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

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2010-04-01 (木) 11:57:34 (5082d)