アプリケーション ログに追加されます。
ユーザー権限で実行しても正しく動作します。

Option Explicit
Const evSuccess = 0
Const evError = 1
Const evWarning = 2
Const evInfomation = 4
Const evAuditSuccess = 8
Const evAuditFailure = 16
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.LogEvent evSuccess, "スクリプト 正常"

VBScript でイベントログを取得する | LogEvent メソッド