[イベントログを作成する]

イベントログを書き込みます。
書き込んだログの内容は、コントロールパネルにある『管理ツール』の『イベントビューア』で確認できます。

【ソースコード】

[tips0123.vbs]
Option Explicit
On Error Resume Next

Dim objWshShell     ' WshShell オブジェクト

Set objWshShell = WScript.CreateObject("WScript.Shell")
If Err.Number = 0 Then
    objWshShell.LogEvent 0, "成功のログです。"
    objWshShell.LogEvent 1, "エラーのログです。"
    objWshShell.LogEvent 2, "警告のログです。"
    objWshShell.LogEvent 4, "情報のログです。"
    objWshShell.LogEvent 8, "成功の監査のログです。"
    objWshShell.LogEvent 16, "失敗の監査のログです。"

    WScript.Echo "イベントログを作成しました。"
Else
    WScript.Echo "エラー: " & Err.Description
End If

Set objWshShell = Nothing

【実行結果】

C:\> cscript //NoLogo tips0123.vbs
イベントログを作成しました。