CODE: [Copy to clipboard]
'建立Shell对象
set sh=WScript.CreateObject("WScript.Shell")
WScript.Sleep 1000
'向telnet发送我们平时录入的命令
sh.SendKeys "open 192.168.0.1"
WScript.Sleep 1000
sh.SendKeys "{ENTER}"
WScript.Sleep 1000
sh.SendKeys "administrator{ENTER}"
WScript.Sleep 1000
WScript.Sleep 1000
sh.SendKeys "{ENTER}"
WScript.Sleep 1000
'运行命令
sh.SendKeys "cd c:\winnt\system32"
sh.SendKeys "{ENTER}"
WScript.Sleep 1000
sh.SendKeys "XXXXXXXX.exe"
WScript.Sleep 1000
sh.SendKeys "{ENTER}"
WScript.Sleep 1000
sh.SendKeys "exit{ENTER}"
WScript.Sleep 1000
sh.SendKeys "quit{ENTER}"
---------------------------------------------------------------------------------