调用局域网其他计算机程序的脚本

这个脚本可以直接在远程计算机上执行程序，对于需要远程执行任务的人来说比较方便。

str=inputbox ("输入命令")

strComputer ="10.100.3.68"

strUserName="administrator"

strPassword="master"

Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")

Set objSWbemService = objSWbemLocator.ConnectServer(strComputer,"root/cimv2", strUserName,strPassword)

set c=objSWbemService.get("win32_process")

err=c.create("cmd.exe /c" & str,null,null,processid)

if str="" then

wscript.quit

end if

if err=0 then

wscript.echo "创建成功" & vbcrlf & "进程ID:" & processid

else

wscript.echo "创建失败" & vbcrlf & "错误代码:" & err

end if