0

我已经设置了以下 Sub 来快速轻松地运行 shell 命令。该脚本适用于我公司的登录脚本，不会失败。我目前正在开发一个脚本来将大量用户添加到我们的域中。当我在我的新脚本中使用这个 Sub 时，我收到一条错误消息，指出找不到该文件。我曾尝试使用此 stackoverflow 帖子中的修复程序，但即使使用此代码，我也会收到相同的错误。 VBScript WScript.Shell Run() - 系统找不到指定的文件

我觉得令人费解的是，当从我们的域控制器的 netlogon 文件夹运行时，这个 sub 工作得很好。我究竟做错了什么？

谢谢，

Sub runcommand(strCommand)
Dim objWshShell, intRC
set objWshShell = WScript.CreateObject("WScript.Shell")
intRC = objWshShell.Run(strCommand, 0, TRUE)
call reportError(intRC,strCommand)
set objWshShell = nothing 
end Sub

function reportError(intRC, command)
if intRC <> 0 then 
 WScript.Echo "Error Code: " & intRC 
 WScript.Echo "Command: " & command 
end if
end function
4

1 回答 1

1

strCommand 的先前值没有空格并且非常简单。您的新脚本将更复杂的变量传递给您的 Sub，因此您需要额外的条件处理，正如 Alex K. 在上面的共谋（即“评论/解决方案”）中指出的那样。上面 Alex K. 的示例非常完美，因此，今晚作为点皮条客，将其作为解决方案发布：

objWshShell.Run("cmd /k echo Hello World", 1, TRUE)
于 2012-10-26T07:18:10.420 回答