VBS字符问题 - DOS批处理 & 脚本技术（批处理室） - 中国DOS联盟论坛

在本论坛上学习，捣鼓自动更改CISCO路由器密码BAT，今天发现有点问题原密码输入：maszh 新密码输入：maszh$%^ BAT运行也没有报错，后来TELNET测试登录路由器，发现新密码不能用。另一台路由器，我把新密码改成maszh123，TELNET测试登录正常怀疑是字符^在VBS里有特殊含义？？？ tel.bat

@ECHO OFF :: 2009-07-10 echo 批处理TELNET修改密码 V1.0 ECHO. ECHO. ECHO. ECHO. ECHO 注意：即将开始远程批配置,请关闭其它可执行程序! ECHO 注意：配置过程中不要使用鼠标及键盘! ECHO. ECHO. ECHO. ECHO. ECHO 按任意键开始EIA远程批配置 pause>nul ECHO. set /p o_passwd=put old password: set /p n_passwd=put new password: echo 批处理TELNET修改密码 >log.txt echo %date:~,10% %time:~,8% >>log.txt echo old password: "%o_passwd%" >>log.txt echo new password: "%n_passwd%" >>log.txt echo. >>log.txt echo set WshShell=WScript.CreateObject("WScript.Shell")>telsvr.vbs :: echo temp=WScript.Arguments.Item(0)>>telsvr.vbs echo WScript.Sleep 5000>>telsvr.vbs rem 用户 echo WshShell.SendKeys "cisco{ENTER}">>telsvr.vbs echo WScript.Sleep 2000>>telsvr.vbs rem 密码 echo WshShell.SendKeys "%o_passwd%{ENTER}">>telsvr.vbs echo WScript.Sleep 2000>>telsvr.vbs rem 设置 echo WshShell.SendKeys "configure terminal{ENTER}">>telsvr.vbs echo WScript.Sleep 2000>>telsvr.vbs ::注：2610只能设置password，不能设置secret echo WshShell.SendKeys "username cisco privilege 15 password 0 %n_passwd%{ENTER}">>telsvr.vbs echo WScript.Sleep 2000>>telsvr.vbs echo WshShell.SendKeys "exit{ENTER}">>telsvr.vbs echo WScript.Sleep 2000>>telsvr.vbs echo WshShell.SendKeys "write{ENTER}">>telsvr.vbs echo WScript.Sleep 10000>>telsvr.vbs echo WshShell.SendKeys "exit{ENTER}">>telsvr.vbs echo WScript.Sleep 2000>>telsvr.vbs echo WshShell.SendKeys "{ENTER}">>telsvr.vbs for /f %%i in (list.txt) do start telnet %%i && cscript //nologo telsvr.vbs %%i && echo %%i done!>>log.txt :: del /q telsvr.vbs echo. ECHO 批量配置完成 pause>nul

list.txt

192.168.53.6

telsvr.vbs

set WshShell=WScript.CreateObject("WScript.Shell") WScript.Sleep 5000 WshShell.SendKeys "cisco{ENTER}" WScript.Sleep 2000 WshShell.SendKeys "maszh{ENTER}" WScript.Sleep 2000 WshShell.SendKeys "configure terminal{ENTER}" WScript.Sleep 2000 WshShell.SendKeys "username cisco privilege 15 password 0 maszh$%^{ENTER}" WScript.Sleep 2000 WshShell.SendKeys "exit{ENTER}" WScript.Sleep 2000 WshShell.SendKeys "write{ENTER}" WScript.Sleep 10000 WshShell.SendKeys "exit{ENTER}" WScript.Sleep 2000 WshShell.SendKeys "{ENTER}"