中国DOS联盟

要求：
有多台设备，想用“批处理”同时修改密码，
无需人工干预，自动进行，
怎么办？

ip.txt
192.168.53.2
192.168.54.2
192.168.55.2
……

试着用FOR命令，有点问题


在论坛中搜索到得：

@echo off
rem 假设主机地址是ABC
rem 假设用户名是DEF
rem 假设密码是GHI
echo Set WshShell = CreateObject("WScript.Shell")>%tmp%\TelDelphi1.vbs
echo WshShell.Run "telnet ABC">>%tmp%\TelDelphi1.vbs
echo WScript.Sleep(5000)>>%tmp%\TelDelphi1.vbs
echo WshShell.SendKeys "DEF{enter}">>%tmp%\TelDelphi1.vbs
echo WScript.Sleep(1000)>>%tmp%\TelDelphi1.vbs
echo WshShell.SendKeys "GHI{enter}">>%tmp%\TelDelphi1.vbs
start cscript /nologo %tmp%\TelDelphi1.vbs
ping -n 10 127.1>nul
del /q %tmp%\TelDelphi1.vbs

还有：
1台机器，试验成功。

如果有几台机器，并且希望通过“批处理程序”telnet修改密码
无需人工干预，自动进行
怎么办？


test.bat

@echo off&setlocal enabledelayedexpansion
for /f %%a in (ip.txt) do (
set ip=%%a
goto :VBS
)

:VBS
echo Set WshShell = CreateObject("WScript.Shell")>%tmp%\TelDelphi1.vbs
echo WshShell.Run "telnet !ip!">>%tmp%\TelDelphi1.vbs
echo WScript.Sleep(5000)>>%tmp%\TelDelphi1.vbs
echo WshShell.SendKeys "DEF{enter}">>%tmp%\TelDelphi1.vbs
echo WScript.Sleep(1000)>>%tmp%\TelDelphi1.vbs
echo WshShell.SendKeys "GHI{enter}">>%tmp%\TelDelphi1.vbs
start cscript /nologo %tmp%\TelDelphi1.vbs
ping -n 10 127.1>nul
del /q %tmp%\TelDelphi1.vbs

好像不能设置第2台机器
？？？

[ Last edited by xycoordinate on 2009-7-10 at 05:41 ]

论坛搜索到：
http://www.cn-dos.net/forum/viewthread.php?tid=29699&fpage=0&highlight=&page=1

感谢：
everest79

tel.cmd
@ECHO OFF
ECHO .
ECHO .
ECHO .
ECHO .
ECHO 注意：即将开始远程批配置请关闭其它可执行程序
ECHO 注意：配置过程中不要使用鼠标及键盘
ECHO .
ECHO .
ECHO .
ECHO .
ECHO 按任意键开始EIA远程批配置
pause>nul
if exist log.txt del /q log.txt
for /f %%i in (list.txt) do start telnet %%i && cscript //nologo telsvr.vbs %%i && echo %%i done!>>log.txt

ECHO 批量配置完成
pause>nul

telsvr.vbs
set tel=WScript.CreateObject("WScript.Shell")
temp=WScript.Arguments.Item(0)
WScript.Sleep 5000
tel.SendKeys "admin{ENTER}"
WScript.Sleep 1500
tel.SendKeys "admin{ENTER}"
WScript.Sleep 1500

list.txt
192.168.51.2
192.168.52.2
192.168.53.2
……
根据实际情况，修改list.txt

[ Last edited by xycoordinate on 2009-7-10 at 05:50 ]

注意：密码里不能有+%^
VBS
键 特殊字符
SHIFT +
CTRL ^
ALT %

http://www.cn-dos.net/forum/viewthread.php?tid=51567&fpage=1