vbscript - 如何在远程机器上执行 vbs 文件

Question

如何在不使用 PsExec 的情况下执行位于计算机位于同一域中的远程计算机上的 VBScript？

我尝试了以下代码，但没有运气。

Sub RunCommand(strComputer, Command)
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2:Win32_Process")
    Err = objWMIService.Create("cmd /c " & Command, Null, Null, intProcessID)
    If Err > 0 Then
        MsgBox "Error occured on Remote Server", vbCritical, "Error"
    End If
End Sub

Sub Test()
    Runcommand("HE2264","C:\Temp\Test.vbs")    
End Sub

Answer 1

您需要使用cscript.exe或运行 VBScripts wscript.exe，而不是使用 CMD。

Err = objWMIService.Create("wscript.exe " & Command, Null, Null, intProcessID)

此外，您需要从调用中删除括号：RunCommandTest

Runcommand "HE2264", "C:\Temp\Test.vbs"