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运行VBScripts，而不是使用CMD。

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

此外，您需要RunCommand中的Test来电remove the parentheses：

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

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

1 个答案: