Как выполнить файл vbs на удаленном компьютере

Question

Как выполнить VBScript, расположенный на удаленном компьютере, где машины находятся в одном домене без использования PsExec?

Я пробовал следующий код, но не повезло.

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

Вам необходимо запустить VBScripts либо cscript.exe или wscript.exe, а не с ЦМД.

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

Кроме того, вы должны remove the parentheses от RunCommand вызова в Test:

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