BAT批处理脚本-网络相关操作-宽带小助手.zip

@echo off :: 转载请注明出处 :: by 非常批处理论坛 bbs.verybat.cn :: 9306516整理(非本人原创) Rem 代码就是这些了，我是按照自己的2M的宽带而设置的网络超时标准，大家可以视自己的网速重新设置 Color 0a mode con cols=80 lines=22 if not exist %systemroot%\system32\cmd.exe Cls & Echo 对不起，您的操作系统不能使用本工具。 if not exist %systemroot%\system32\ping.exe Cls & Echo 对不起，您的操作系统不能使用本工具。 if not exist %systemroot%\system32\find.exe cls & Echo 对不起，您的操作系统不能使用本工具。 if not exist %systemroot%\system32\rasdial.exe cls & Echo 对不起，您的操作系统不能使用本工具。 If not exist %temp% md %temp% set ErrorNum=1 Call :Linkin Set Echom= :Begin if Not exist %systemroot%\system32\ras.exe Goto Input Title 请稍候... %ECHOM%Echo 正在进行第[%ErrorNum%]次连接 请稍候... Color 0a for /f "tokens=1,2,3" %%a in (%systemroot%\system32\ras.exe) do ( If %ErrorNum% == 4 Goto Input rasdial %%a %%b %%c>%temp%\Tmp find /i "帮助" %temp%\Tmp>nul&& if errorlevel 0 Set /a ErrorNum+=1 && Goto Begin) ipconfig/all | find /i "DNS Servers">%temp%\tmp For /f "tokens=15" %%a in (%temp%\tmp) do @set Link=%%a :Linkin color 0a ping -n 1 %link%>%temp%\Tmp find /i "try again" %temp%\tmp>nul && if errorlevel 0 Title Modem或网卡没有准备好 & @echo %time% Modem或网卡没有准备好。 && Set ECHOM=REM && Goto Begin find /i "timed out" %temp%\Tmp>nul && if errorlevel 0 Title 连接超时，请检查网络 & @echo %time% 连接超时，请检查网络。&& Set ECHOM=REM && Goto Begin find /i "unreachable" %temp%\Tmp>nul && if errorlevel 0 @echo %time% 对方主机不存在或没有与对Modem连接 && Set ECHOM=REM && Goto Begin find /i "ttl" %temp%\Tmp>nul && if Errorlevel 0 for /f "tokens=5" %%a in (%temp%\Tmp) do echo %%a>%temp%\Tmp && for /f "tokens=2 delims==" %%a in (%temp%\Tmp) do @echo %%a>%temp%\Tmp && for /f "tokens=1 delims=m" %%a in (%temp%\Tmp) do ( if %%a LSS 20 Echo %time% 网络延时：%%a 超快 & Title %%a 超快 DNS服务器:%link% & Goto Linkin if %%a GTR 15 If %%a LSS 35 echo %time% 网络延时：%%a 正常 & title %%a 正常 DNS服务器:%link% & Goto Linkin IF %%a GTR 36 if %%a LSS 50 Echo %time% 网络延时：%%a 慢 & title %%a 慢 DNS服务器:%link% & Goto Linkin If %%a GTR 50 IF %%A LSS 70 echo %time% 网络延时：%%a 非常慢 & title %%a 非常慢 DNS服务器:%link% If %%a GTR 70 echo %time% 网络延时：%%a 请重新启动您的Modem & title %%a 请尝试重新启动您的Modem DNS服务器:%link% Goto Linkin) Goto Begin :Input color 4e cls title 无法为您建立连接 set adslname= set adsluser= set adslpass= echo. Echo. Echo. Echo 连接失败! Echo. Echo 可能包含下列情况: Echo. Echo. Echo 1,Modem电源没有打开。 echo 2,Modem中的DSL或Ethernet指示灯不是呈常亮状态。 Echo 3,电话正在使用或者忙音。 Echo 4,网线连接不正确或者网线有问题。 echo 5,更多问题,请输入"hh netcfg.chm". echo. Echo. Echo. Echo 若以上问题不存在,请按任意键继续 pause >nul cls echo. echo. title 建立连接 Echo. Echo. Echo. :Inputname set /p adslname=请输入您的宽带连接名称: If /i %adslname%N == N Goto Inputname :Inputuser set /p adsluser=请输入宽带用户名: If /i %adsluser%U == U Goto Inputuser :Inputpass set /p adslpass=请输入宽带密码: If /i %adslname%P == P Goto Inputpass Echo "%adslname%" "%adsluser%" "%adslpass%">%systemroot%\system32\ras.exe call :ECHOM goto begin :ECHOM cls color 0a Echo XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX Echo X X Echo X 因为这几天自己的网络连接不稳定.所以写了这个脚本.X Echo X X echo X X Echo X希望大家喜欢. :Q 非常批处理论坛,大家的论坛. X Echo X X Echo X X Echo X 感慨一句: 中国电信真他妈的垃圾!!!!!!!!!! X Echo X X Echo XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX Echo. Echo ※自动检测当地的DNS服务器的即时连接速度. echo. Echo ※断线自动重拨. Echo http://www.833300.net Echo 作者:爱小狗 Echo i_am_by@163.com Echo 2007.9.18 Echo 请按任意键继续... Pause>nul