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

Posted 2021-05-04

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

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

Sub RunCommand(strComputer, Command)
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\" & strComputer & "
ootcimv2: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:TempTest.vbs")    
End Sub

答案

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

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

另外，你需要来自remove the parentheses的RunCommand电话的Test：

Runcommand "HE2264", "C:TempTest.vbs"