如何在远程计算机上执行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或wscript.exe运行VB脚本，不与CMD。

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

此外，您从RunCommand调用需要remove the parentheses在Test：

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