VBScript說「沒有應用程序與此操作的指定文件關聯」？

Question

我正在寫一個簡單的VBScript來使用eventcreate寫入一個自定義的Windows事件日誌。

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）（空）：沒有應用是與此操作的指定文件相關聯。

從我所知道的，我正在做的正是在線示例告訴我要做的事情，我似乎無法複製它。我究竟做錯了什麼？

Answer 1

我跑過你的腳本，它在勝利7筆記本電腦上按預期工作。確保您使用管理員權限運行腳本。我稍微更改了腳本，我將Set聲明移出For...Next循環。沒有必要繼續在每個循環上設置WshShell對象，爲整個腳本設置一次就好了。

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