VBscriptを使用したアプリケーションログとサービスログへの書き込み

Question

PowerShellスクリプトでは、アプリケーションログとサービスログをカスタムログに書き込むためにこのコマンドレットを使用しています。

write-eventlog -logname "MyRemoteSuite" -source "MRP" -eventid 100 -Message $Msg 

これはうまくいきます。今私はVBscriptで同じことをする必要があります...しかし、EventCreateはWindowsのイベントログに限られています。私はthis stackoverflow postも見つけました。それが良い解決策かどうかわかりません。

アプリケーションとサービスログへの書き込みがVBscriptで可能かどうか教えてください。

Answer 1

VBScriptのRunメソッドを使用してPowerShellコマンドを実行するだけです。

Dim WshShell : Set WshShell = WScript.CreateObject("WScript.Shell") 
WshShell.Run "CMD /K POWERSHELL -Command write-eventlog -logname ""MyRemoteSuite"" -source ""MRP"" -eventid 100 -Message Msg", 1, False