中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 连接远程路由器批处理。

htysm
高级用户

积分 866
发帖 415
注册 2005-12-4
状态离线

『楼主』: 连接远程路由器批处理。

因为经常给人安装路由器，有时候想对这些路由器进行远程管理，（嘿，有人肯定说偶不怀好意...）但总不能在IE地址栏一个一个IP找吧，所以就写了这个批处理，但代码不能判断是否已正确连接一个有效的路由器，即当弹出路由器的用户名和密码对话框时，批处理就应该自动结束。另外，代码还需要优化和精简的地方，请高手指教。

偶知道，DOS联盟论坛高手如云的。^O^  不要笑偶。

----------------------------------------------------------------------------------------------------------

@echo off
:SA
title 自动扫描打开IE连接远程路由器
color f
echo.&echo.
echo    ╔══════════════════════════════╗
echo    ║                                                          ║
echo    ║                   『说       明』                   ║
echo.    ║                                                          ║
echo    ║       一定要严格按说明的格式输入,(如：61.190.102.1)    ║
echo    ║    则只需输入：61.190.102即可。然后再输入开始和结束IP    ║
echo    ║    ，否则容易出错。最后输入端口号，要远程打开路由器管    ║
echo    ║    理界面必须要输入端口号，本地打开则不需要。程序执行    ║
echo    ║    后要等待IE浏览器的返回信息，当前为活动的IP全部打入    ║
echo    ║    d:\有效IP文本文件中,如果返回找不到服务器则按任意键    ║
echo    ║    关闭IE并打开下一个IP，如果弹出输入用户名和密码对话    ║
echo    ║    框，那么恭喜，你找到一个可远程打开的路由器了。这时    ║
echo    ║    你可直接关闭本程序，按×键。                         ║
echo    ║                                                          ║
echo    ╚══════════════════════════════╝
echo.
echo.
echo.& echo                            ═══╬ 按任意键开始程序 ╬═══
pause>nul
cls
:ST
echo
setlocal enabledelayedexpansion
set num_=0
set path_=d:\有效IP.txt
set/p ip_=请输入IP...(格式：61.190.102)。
if not defined ip_ (cls & goto ST)
for /f "tokens=1-3 delims=." %%i in ("%ip_%") do (
if %%i LSS 1 goto error_1
if %%i GTR 255 goto error_1
if %%j LSS 1 goto error_1
if %%j GTR 255 goto error_1
if %%k LSS 1 goto error_1
if %%k GTR 255 goto error_1
)
:star_
echo.& set/p ip_star=请输入开始IP （1——255之间）。
if not defined ip_star (cls & goto star_)
if %ip_star% GTR 255 goto error_2
if %ip_star% Lss 1 goto error_2
:end_
echo.& set/p ip_end=请输入结束IP （2——255之间）。
if not defined ip_end (cls & goto end_)
if %ip_end% GTR 255 goto error_2
if %ip_end% lss 2 goto error_2
if %ip_star% GTR %ip_end% goto error_2
:pro_
echo.& set/p port_=请输入端口号（0——65535之间）。
if not defined port_ (cls & goto pro_)
if %port_% GTR 65535 goto error_3
if %port_% lss 1 goto error_3
:input_
echo.& set/p pause_=当扫描到可用IP时，是否启用暂停，输入(Y)或(N)?
if not defined pause_ (cls & goto input_)
cls & color f
echo  %time:~0,7% ——扫描结果: > !path_! & echo. >> !path_!
for /L %%i in (!ip_star!,1,!ip_end!) do (
title 扫描 !ip_!.%%i 已发现!num_!个有效IP。& echo.& echo.& echo.& echo.& echo.& echo.
echo             ○○○○○○§§§§§§§§§§§§§○○○○○○
echo             ○                                           ○　
echo             ○          正在扫描：!ip_!.%%i
echo             ○                                           ○
echo             ○○○○○○○○○○○○○○○○○○○○○○○○○
ping -n 1 -l 1 -w 1 !ip_!.%%i >nul 2>nul && (echo && color 1f && set /a num_+=1 && (
if !num_! LSS 100 (
if !num_! LSS 10 (
echo !num_! !ip_!.%%i >> !path_!
) else (echo !num_! !ip_!.%%i >> !path_!)
) else echo  !num_! !ip_!.%%i >> !path_!
) && if /i !pause_! EQU Y (echo -----当前IP有效并已打开IE浏览器。&& start /min IEXPLORE.EXE http://!ip_!.%%i:!port_! && ping 127.1 -n 4 >nul 2>nul & taskkill /f /im IEXPLORE.EXE /T>nul 2>nul))
cls && color f
)
echo.&echo.&echo.&echo.&echo & color 30
echo. >> !path_! & echo %time:~0,7% 扫描完毕。>> !path_! && echo 本次共发现有效IP地址【!num_!】个。>> !path_!
echo IP !IP_%!.!ip_star! — !ip_!.!ip_end! 已扫描完毕，是（Y）否（N）重新扫描？& echo.
set/p yn= 注意：重新扫描将覆盖上次扫描到的有效IP地址。
set ip_=
set ip_star=
set ip_end=
set port_=
set pause_=
if /i %yn% EQU Y (cls & goto SA)
echo.&echo.&echo ◤ 按下任意键结束程序 ◥
echo.&echo.&echo.&echo.&echo.&echo.&echo.
echo                                        ╭—————————————————╮
echo                                        │ 作者：htysm，不足之处请指正。  │
echo                                        ╰—————————————————╯
pause>nul
exit
:error_1
cls
echo.&echo             【IP地址输入错误，请严格按照格式重新输入】& color 20& goto ST
:error_2
cls
echo.&echo             【开始或结束IP输入错误，请按格式重新输入】& color 20& goto ST
:error_3
cls
echo.&echo             【端口号输入错误，请严格按照格式重新输入】& color 20& goto ST

[ Last edited by htysm on 2007-4-11 at 11:14 AM ]

此帖被 +1 点积分点击查看详情

2007-4-10 02:42