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

如何在不使用 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

您需要使用以下任一命令运行 VBScriptcscript.exe or wscript.exe，不使用 CMD。

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

另外，您还需要删除括号 http://blogs.msdn.com/b/ericlippert/archive/2003/09/15/52996.aspx来自RunCommand打电话进来Test:

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