vbscript - 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) (null)：没有应用程序与此操作的指定文件关联。

据我所知，我正在做的正是在线示例告诉我要做的事情，我似乎无法复制它。我究竟做错了什么？

Answer 1

我运行了您的脚本，它在 win 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