[VBScript]イベントログを出力

'
' イベントログを出力
'

Option Explicit

Const cEventSuccess = 0
Const cEventError = 1
Const cEventWarning = 2

Dim oShell
Set oShell = WScript.CreateObject("WScript.Shell")

Call oShell.LogEvent(cEventSuccess, "成功")
Call oShell.LogEvent(cEventError, "失敗")
Call oShell.LogEvent(cEventWarning, "警告")

Set oShell = Nothing