在本机运行vbs, 让远程计算机启动一个程序

来源：互联网发布：彩豆理财安全吗知乎编辑：程序博客网时间：2024/06/18 06:18

使用WMI，MSDN上有个例子可以看一下，在本机运行vbs, 让远程计算机启动一个程序。
http://msdn.microsoft.com/en-us/library/aa389388(VS.85).aspx

程序名:RemoteRunProgram.vbs

Const SW_NORMAL = 1

strComputer = "."

strCommand = "Notepad.exe"

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!//" _

& strComputer & "/root/cimv2")

' Configure the Notepad process to show a window

Set objStartup = objWMIService.Get("Win32_ProcessStartup")

Set objConfig = objStartup.SpawnInstance_

objConfig.ShowWindow = SW_NORMAL

' Create Notepad process

Set objProcess = objWMIService.Get("Win32_Process")

intReturn = objProcess.Create _

(strCommand, Null, objConfig, intProcessID)

If intReturn <> 0 Then

Wscript.Echo "Process could not be created." & _

vbNewLine & "Command line: " & strCommand & _

vbNewLine & "Return value: " & intReturn

Else

Wscript.Echo "Process created." & _

vbNewLine & "Command line: " & strCommand & _

vbNewLine & "Process ID: " & intProcessID

End If