vbs远程执行程序,结果如何在本地前台显示
strComputer = "172.18.2.181"
strUsername="administrator"
strPassword="cinsEYTS"
Set objLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = objLocator.ConnectServer(strComputer ,"\root\cimv2", strUsername ,strPassword)
objWMIService.Security_.ImpersonationLevel = 3
Set objWMIService = GetObject _
("winmgmts:\\" & strComputer & "\root\cimv2:Win32_Process")
errReturn = objWMIService.Create _
("cmd.exe /c notepad.exe")
[解决办法]
set oController = CreateObject("WSHController")set oProcess = oController.CreateScript("c:\wsh5.6\beenhere.vbs","172.18.2.181")oProcess.ExecuteWhile oProcess.Status <> 2 WScript.Sleep 100WEndWScript.Echo "Done"
[解决办法]
这样???
WSH.Echo errReturn
[解决办法]
简单地执行WScript.Echo是不行的,因为这样信息是显示在执行这条语句的机器上,而楼主要的是显示在172.18.2.181这台机器上,这实际上是个远程执行程序或远程发送消息的问题。如果相关的配置条件具备的话,可以用4楼的方法来实现;或者先从172.18.2.181获得一个Shell,再发送远程执行命令来显示信息。Shell的问题在许多黑客技术中都有涉及,网上也有许多文章介绍,关键是一个权限问题,楼主可上网查查。