1

eventcreate を使用してカスタム Windows イベント ログに書き込む簡単な VBScript を作成しています。

FOR I = 0 to 5
    Set WshShell = WScript.CreateObject("WScript.Shell")
    strCommand = "eventcreate /l Application /t Information /so Test-Log /id 66 /d TEST"
    WshShell.Run strCommand
Next

ただし、コマンドプロンプトから実行しようとすると、次のメッセージが表示されます。

C:\testlog.vbs(6, 5) (null): この操作で指定されたファイルにアプリケーションが関連付けられていません。

私が知る限り、私はオンラインの例が私に指示していることを正確に行っていますが、それを再現することはできないようです. 私は何を間違っていますか？

4

1 に答える 1

1

スクリプトを実行したところ、Win 7 ラップトップで期待どおりに動作しました。管理者権限でスクリプトを実行していることを確認してください。スクリプトを少し変更し、SetステートメントをFor...Nextループの外に移動しました。各ループでオブジェクトを設定し続ける必要はありませんWshShell。この例では、スクリプト全体に対して 1 回設定するだけで問題ありません。

Dim WshShell, strCommand 
Set WshShell = WScript.CreateObject("WScript.Shell")
For I = 0 to 5
    strCommand = "eventcreate /l Application /t Information /so Test-Log /id 66 /d TEST"
    WshShell.Run strCommand
Next
于 2013-05-30T18:33:58.543 に答える