当前位置: 代码迷 >> VBA >> xp下如何使用批处理自动telnet到服务器上,并执行命令
  详细解决方案

xp下如何使用批处理自动telnet到服务器上,并执行命令

热度:5956   发布时间:2013-02-26 00:00:00.0
xp下怎么使用批处理自动telnet到服务器上,并执行命令?
rt

------解决方案--------------------------------------------------------

::@echo off exit
 


set hostip=xx.xx.xx.xx
set osusr=cisco
set ospwd=cisco
set /a sleeptime=500

:: 登陆, "~"代表回车

echo Set sh = CreateObject("WScript.Shell") > %tmp%\tel_%hostip%.vbs
echo sh.Run "telnet -f dkzt.txt %hostip%" >> %tmp%\tel_%hostip%.vbs
echo WScript.Sleep(%sleeptime%) >> %tmp%\tel_%hostip%.vbs
echo sh.SendKeys "%ospwd%~" >> %tmp%\tel_%hostip%.vbs
echo WScript.Sleep(%sleeptime%) >> %tmp%\tel_%hostip%.vbs
echo sh.SendKeys "en~" >> %tmp%\tel_%hostip%.vbs
echo WScript.Sleep(%sleeptime%) >> %tmp%\tel_%hostip%.vbs
echo sh.SendKeys "%ospwd%~" >> %tmp%\tel_%hostip%.vbs
echo WScript.Sleep(%sleeptime%) >> %tmp%\tel_%hostip%.vbs

:: 设置命令

echo sh.SendKeys "sh ip int bri~" >> %tmp%\tel_%hostip%.vbs
echo WScript.Sleep(%sleeptime%) >> %tmp%\tel_%hostip%.vbs

echo sh.SendKeys " " >> %tmp%\tel_%hostip%.vbs
echo WScript.Sleep(%sleeptime%) >> %tmp%\tel_%hostip%.vbs
echo sh.SendKeys " " >> %tmp%\tel_%hostip%.vbs
echo WScript.Sleep(%sleeptime%) >> %tmp%\tel_%hostip%.vbs
echo sh.SendKeys " " >> %tmp%\tel_%hostip%.vbs
echo WScript.Sleep(%sleeptime%) >> %tmp%\tel_%hostip%.vbs
echo sh.SendKeys " " >> %tmp%\tel_%hostip%.vbs
echo WScript.Sleep(%sleeptime%) >> %tmp%\tel_%hostip%.vbs
echo sh.SendKeys " " >> %tmp%\tel_%hostip%.vbs
echo WScript.Sleep(%sleeptime%) >> %tmp%\tel_%hostip%.vbs
echo sh.SendKeys " " >> %tmp%\tel_%hostip%.vbs
echo WScript.Sleep(%sleeptime%) >> %tmp%\tel_%hostip%.vbs
echo sh.SendKeys " " >> %tmp%\tel_%hostip%.vbs
echo WScript.Sleep(%sleeptime%) >> %tmp%\tel_%hostip%.vbs
echo sh.SendKeys " " >> %tmp%\tel_%hostip%.vbs
echo WScript.Sleep(%sleeptime%) >> %tmp%\tel_%hostip%.vbs
echo sh.SendKeys " " >> %tmp%\tel_%hostip%.vbs
echo WScript.Sleep(%sleeptime%) >> %tmp%\tel_%hostip%.vbs

echo sh.SendKeys "exit~" >> %tmp%\tel_%hostip%.vbs
echo WScript.Sleep(%sleeptime%) >> %tmp%\tel_%hostip%.vbs
echo sh.SendKeys " ~" >> %tmp%\tel_%hostip%.vbs
echo WScript.Sleep(%sleeptime%) >> %tmp%\tel_%hostip%.vbs

start cscript /nologo %tmp%\tel_%hostip%.vbs
::del /q %tmp%\tel_%hostip%.vbs
  相关解决方案