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")
------解决方案--------------------------------------------------------
------解决方案--------------------------------------------------------
不懂你讲的意思
------解决方案--------------------------------------------------------
试试这种方法(远程执行脚本)：
- VBScript code
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的问题在许多黑客技术中都有涉及，网上也有许多文章介绍，关键是一个权限问题，楼主可上网查查。