提供网络系统测试带动画 - 中国DOS联盟论坛

今天上不了网，不得已把以前的批处理拿出来拼凑一下。
不过，动画看来有的问题，那位指点下。谢了！

@echo off
color 3B
cls
@mode con cols=50 lines=20
echo.
echo.   ╭───────────────╮
echo.   │                              │
echo    │    兄弟你真够辛苦的，        │
echo.   │                              │
echo    │          我来支持你一下。    │
echo.   │                              │
echo.   ╰───────────────╯
echo.
echo.
echo.        正在测试本机Tcp/ip协议...
echo.
ping -n 1 127.0.0.1>nul
if %errorlevel% geq 1 (echo         Tcp/ip 协议不能正常运行!) else 

(echo         Tcp/ip 协议运行正常!)
echo.
echo.
echo.        正在测试网卡驱动...
for /f "tokens=15 delims= " %%j in ('ipconfig ^|find /i "IP Address"') 

do ( 
set tcpipipip=%%j )
ping -n 1 %tcpipipip% >nul
echo.
if %errorlevel% geq 1 (echo         网卡驱动不能正常运行!) else (echo   

      网卡驱动运行正常!)
echo.
echo.
call :cl
echo         正在连接到中国电信...
echo.
ping -n 1 211.100.35.132 >nul 
if %errorlevel% geq 1 goto errorping
ping -n 10 211.100.35.132 >ping.txt

for /f "tokens=4 delims=m " %%a in ('type ping.txt ^|find /i 

"Minimum"') do (set sunsunnum=%%a)
for /f "tokens=9 delims=m " %%a in ('type ping.txt ^|find /i 

"Minimum"') do (set sunsunnum1=%%a)
for /f "tokens=13 delims=m " %%a in ('type ping.txt ^|find /i 

"Minimum"') do (set sunsunnum2=%%a)
echo       最小延时%sunsunnum%ms,最大延时%sunsunnum1%ms,平均延时%

sunsunnum2%ms!
echo.
for /f "tokens=4 delims=, " %%j in ('type ping.txt ^|find /i 

"Packets:"') do set pingbbig=%%j
for /f "tokens=7 delims=, " %%j in ('type ping.txt ^|find /i 

"Packets:"') do set pingbbig2=%%j
for /f "tokens=10 delims=, " %%j in ('type ping.txt ^|find /i 

"Packets:"') do set pingbbig3=%%j
echo    共发送%pingbbig%个数据包,其中%pingbbig2%个发送成功,%pingbbig3%

个发送失败!
echo.
echo.
del /f /q ping.txt
echo           测 试 完 毕    任 意 键 返 回
pause > nul
goto net
:errorping
echo.
echo.
echo.
echo.
echo.             网络连接失败，任意键退出。
pause > nul
goto net

:cl
for /l %%i in (1,1,20) do (
echo\
for /l %%a in (1,1,380) do ver>nul
) 
goto :eof

[ Last edited by dosz on 2009-3-7 at 05:42 ]

挖！~ 潜水出来了哈第一次见面，很高兴认识你。先回了贴

我这边网吧提示输入不正确

另外你的网盘被锁定了记得去开通~ 我想看下。

[ Last edited by 523066680 on 2009-3-7 at 06:31 ]

Originally posted by 523066680 at 2009-3-7 06:28:
挖！~ 潜水出来了哈第一次见面，很高兴认识你。先回了贴

我这边网吧提示输入不正确

另外你的网盘被锁定了记得去开通~ 我想看下。

[ Last edited by 523066680 on 2009-3-7 at 06:31 ]

网盘被锁定了: 已开通

只是运行而已！
重新测试了一下，没问题。断开网络，很正常。
只是动画有点问题，有几会指导了，谢谢

[ Last edited by dosz on 2009-3-7 at 09:14 ]

我也发一个

www.163.com)|findstr /i /r "TTL"
if %errorlevel%==0 echo 远程 IP 外网(www.163.com)连接正常。&&pause&&goto eof
cls
@echo.
@echo 测试: 远程无信息返回，外网有故障或未能连接
@echo.
:: 检查本机DNS服务器设置
(ping /n 1 %cxm5%)|findstr /i /r "TTL"
if %errorlevel%==0 echo 本机DNS服务器设置%cxm5%正常 &&pause&&goto eof
cls
@echo.
@echo 测试: 远程无信息返回，检查本机DNS设置(%cxm5%)或外网(路由进线)故障
@echo.
:: 检查本机 IP 地址
(ping /n 1 %cxm2%)|findstr /i /r "TTL"
if %errorlevel%==0 @echo 测试: 本机IP地址(%cxm2%)及路由正常&&pause&&goto eof
cls
@echo.
@echo 测试: 本机IP地址(%cxm2%)无信息返回。请检查 IP 设置、网卡及电缆接口。
@echo.
:: 检查网关路由器
(ping /n 1 %cxm4%)|findstr /i /r "TTL"
if %errorlevel%==0 @echo 测试: 路由器默认网关(%cxm4%)正常&&pause&&goto eof
cls
@echo.
@echo 测试: 路由器网关(%cxm4%)无信息返回。请检查网关设置、网卡及电缆接口。
@echo.
:: 检查本机 TCP/IP 协议
(ping -n 1 127.1)|findstr /i /r "TTL"
if %errorlevel%==0 @echo 测试: 本机TCP/IP协议(127.0.0.1)正常; 检查结束。&&pause&&goto eof
cls
@echo 测试: 本机TCP/IP协议(127.0.0.1)无信息返回
@echo 检查结束。
pause>nul

[ Last edited by ZJHJ on 2010-4-26 at 12:12 ]

好像是你code以后代码被分行了我整理下，帮转发一次~

要搞什么效果，说说看。不过我觉得本来的效果就不错了。

又看了下，觉得不错，网络这些知识我都不懂的，加分。

@echo off
color 3B
cls
@mode con cols=50 lines=20
echo.
echo. ╭───────────────╮
echo. │ │
echo │ 兄弟你真够辛苦的， │
echo. │ │
echo │ 我来支持你一下。 │
echo. │ │
echo. ╰───────────────╯
echo.
echo.
echo. 正在测试本机Tcp/ip协议...
echo.
ping -n 1 127.0.0.1>nul
if %errorlevel% geq 1 (echo Tcp/ip 协议不能正常运行!) else (echo Tcp/ip 协议运行正常!)
echo.
echo.
echo. 正在测试网卡驱动...
for /f "tokens=15 delims= " %%j in ('ipconfig ^|find /i "IP Address"') do (set tcpipipip=%%j )
ping -n 1 %tcpipipip% >nul
echo.
if %errorlevel% geq 1 (echo 网卡驱动不能正常运行!) else (echo 网卡驱动运行正常!)
echo.
echo.
call :cl
echo 正在连接到中国电信...
echo.
ping -n 1 211.100.35.132 >nul
if %errorlevel% geq 1 goto errorping
ping -n 10 211.100.35.132 >ping.txt

for /f "tokens=4 delims=m " %%a in ('type ping.txt ^|find /i "Minimum"') do (set sunsunnum=%%a)
for /f "tokens=9 delims=m " %%a in ('type ping.txt ^|find /i "Minimum"') do (set sunsunnum1=%%a)
for /f "tokens=13 delims=m " %%a in ('type ping.txt ^|find /i "Minimum"') do (set sunsunnum2=%%a)
echo 最小延时%sunsunnum%ms,最大延时%sunsunnum1%ms,平均延时%sunsunnum2%ms!
echo.
for /f "tokens=4 delims=, " %%j in ('type ping.txt ^|find /i "Packets:"') do set pingbbig=%%j
for /f "tokens=7 delims=, " %%j in ('type ping.txt ^|find /i "Packets:"') do set pingbbig2=%%j
for /f "tokens=10 delims=, " %%j in ('type ping.txt ^|find /i "Packets:"') do set pingbbig3=%%j
echo 共发送%pingbbig%个数据包,其中%pingbbig2%个发送成功,%pingbbig3%个发送失败!
echo.
echo.
del /f /q ping.txt
echo 测试完毕任意键返回
pause > nul
goto net
:errorping
echo.
echo.
echo.
echo.
echo. 网络连接失败，任意键退出。
pause > nul
goto net

:cl
for /l %%i in (1,1,20) do (
echo\
for /l %%a in (1,1,380) do ver>nul
)
goto :eof

[ Last edited by 523066680 on 2009-3-8 at 01:51 ]

echo 测试完毕任意键返回
pause > nul
goto net
:errorping
echo.
echo.
echo.
echo.
echo. 网络连接失败，任意键退出。
pause > nul
goto net

goto net 两次,:net在哪里?不过也能将就用哈!

呵呵，看你们聊的热火朝天的，我也来发一个，既然你们都是查询网络信息的，那我写段设置网路信息的吧。

最基本的脚本如下，至于怎么调用，自己研究下 set 咯


wmic computersystem where Name="%COMPUTERNAME%" call JoinDomainOrWorkgroup Name="%PcGroup%" >nul 2>nul
wmic computersystem where name="%COMPUTERNAME%" call rename name="%PcName%" >nul 2>nul
net config server /srvcomment:"%PcComment%" >nul 2>nul
netsh interface ip set address "%NICname%" static %NewIp% %NewMask% %NewGateway% 1 >nul 2>nul
netsh interface ip delete dns "%NICname%" all >nul 2>nul
netsh interface ip add dns "%NICname%" %dns1% 1 >nul 2>nul
netsh interface ip add dns "%NICname%" %dns2% 2 >nul 2>nul

pcgroup 是工作组
pcname 是计算机名
pccomment 是计算机描述
NicName 是网卡名称
Newip 是新的计算机IP
newgateway 是新的网关地址
newmask 是新的子网掩码
DNS1 DNS2 就是。。。

第1楼　dosz	发表于 2009-03-07 05:40
中级用户　发帖 188　积分 396　来自上海
[批处理代码] 提供网络系统测试带动画今天上不了网，不得已把以前的批处理拿出来拼凑一下。不过，动画看来有的问题，那位指点下。谢了！ @echo off color 3B cls @mode con cols=50 lines=20 echo. echo. ╭───────────────╮ echo. │ │ echo │ 兄弟你真够辛苦的， │ echo. │ │ echo │ 我来支持你一下。 │ echo. │ │ echo. ╰───────────────╯ echo. echo. echo. 正在测试本机Tcp/ip协议... echo. ping -n 1 127.0.0.1>nul if %errorlevel% geq 1 (echo Tcp/ip 协议不能正常运行!) else (echo Tcp/ip 协议运行正常!) echo. echo. echo. 正在测试网卡驱动... for /f "tokens=15 delims= " %%j in ('ipconfig ^\|find /i "IP Address"') do ( set tcpipipip=%%j ) ping -n 1 %tcpipipip% >nul echo. if %errorlevel% geq 1 (echo 网卡驱动不能正常运行!) else (echo 网卡驱动运行正常!) echo. echo. call :cl echo 正在连接到中国电信... echo. ping -n 1 211.100.35.132 >nul if %errorlevel% geq 1 goto errorping ping -n 10 211.100.35.132 >ping.txt for /f "tokens=4 delims=m " %%a in ('type ping.txt ^\|find /i "Minimum"') do (set sunsunnum=%%a) for /f "tokens=9 delims=m " %%a in ('type ping.txt ^\|find /i "Minimum"') do (set sunsunnum1=%%a) for /f "tokens=13 delims=m " %%a in ('type ping.txt ^\|find /i "Minimum"') do (set sunsunnum2=%%a) echo 最小延时%sunsunnum%ms,最大延时%sunsunnum1%ms,平均延时% sunsunnum2%ms! echo. for /f "tokens=4 delims=, " %%j in ('type ping.txt ^\|find /i "Packets:"') do set pingbbig=%%j for /f "tokens=7 delims=, " %%j in ('type ping.txt ^\|find /i "Packets:"') do set pingbbig2=%%j for /f "tokens=10 delims=, " %%j in ('type ping.txt ^\|find /i "Packets:"') do set pingbbig3=%%j echo 共发送%pingbbig%个数据包,其中%pingbbig2%个发送成功,%pingbbig3% 个发送失败! echo. echo. del /f /q ping.txt echo 测试完毕任意键返回 pause > nul goto net :errorping echo. echo. echo. echo. echo. 网络连接失败，任意键退出。 pause > nul goto net :cl for /l %%i in (1,1,20) do ( echo\ for /l %%a in (1,1,380) do ver>nul ) goto :eof [ Last edited by dosz on 2009-3-7 at 05:42 ]

第2楼　523066680	发表于 2009-03-07 06:28
银牌会员　发帖 1,133　积分 2,362
挖！~ 潜水出来了哈第一次见面，很高兴认识你。先回了贴我这边网吧提示输入不正确另外你的网盘被锁定了记得去开通~ 我想看下。 [ Last edited by 523066680 on 2009-3-7 at 06:31 ]

第3楼　dosz	发表于 2009-03-07 09:02
中级用户　发帖 188　积分 396　来自上海
Originally posted by 523066680 at 2009-3-7 06:28: 挖！~ 潜水出来了哈第一次见面，很高兴认识你。先回了贴我这边网吧提示输入不正确另外你的网盘被锁定了记得去开通~ 我想看下。 [ Last edited by 523066680 on 2009-3-7 at 06:31 ] 网盘被锁定了: 已开通只是运行而已！重新测试了一下，没问题。断开网络，很正常。只是动画有点问题，有几会指导了，谢谢 [ Last edited by dosz on 2009-3-7 at 09:14 ]

第4楼　ZJHJ	发表于 2009-03-07 10:54
高级用户　发帖 374　积分 609
我也发一个 www.163.com)\|findstr /i /r "TTL" if %errorlevel%==0 echo 远程 IP 外网(www.163.com)连接正常。&&pause&&goto eof cls @echo. @echo 测试: 远程无信息返回，外网有故障或未能连接 @echo. :: 检查本机DNS服务器设置 (ping /n 1 %cxm5%)\|findstr /i /r "TTL" if %errorlevel%==0 echo 本机DNS服务器设置%cxm5%正常 &&pause&&goto eof cls @echo. @echo 测试: 远程无信息返回，检查本机DNS设置(%cxm5%)或外网(路由进线)故障 @echo. :: 检查本机 IP 地址 (ping /n 1 %cxm2%)\|findstr /i /r "TTL" if %errorlevel%==0 @echo 测试: 本机IP地址(%cxm2%)及路由正常&&pause&&goto eof cls @echo. @echo 测试: 本机IP地址(%cxm2%)无信息返回。请检查 IP 设置、网卡及电缆接口。 @echo. :: 检查网关路由器 (ping /n 1 %cxm4%)\|findstr /i /r "TTL" if %errorlevel%==0 @echo 测试: 路由器默认网关(%cxm4%)正常&&pause&&goto eof cls @echo. @echo 测试: 路由器网关(%cxm4%)无信息返回。请检查网关设置、网卡及电缆接口。 @echo. :: 检查本机 TCP/IP 协议 (ping -n 1 127.1)\|findstr /i /r "TTL" if %errorlevel%==0 @echo 测试: 本机TCP/IP协议(127.0.0.1)正常; 检查结束。&&pause&&goto eof cls @echo 测试: 本机TCP/IP协议(127.0.0.1)无信息返回 @echo 检查结束。 pause>nul [ Last edited by ZJHJ on 2010-4-26 at 12:12 ]

第5楼　523066680	发表于 2009-03-08 01:48
银牌会员　发帖 1,133　积分 2,362
好像是你code以后代码被分行了我整理下，帮转发一次~ 要搞什么效果，说说看。不过我觉得本来的效果就不错了。又看了下，觉得不错，网络这些知识我都不懂的，加分。 @echo off color 3B cls @mode con cols=50 lines=20 echo. echo. ╭───────────────╮ echo. │ │ echo │ 兄弟你真够辛苦的， │ echo. │ │ echo │ 我来支持你一下。 │ echo. │ │ echo. ╰───────────────╯ echo. echo. echo. 正在测试本机Tcp/ip协议... echo. ping -n 1 127.0.0.1>nul if %errorlevel% geq 1 (echo Tcp/ip 协议不能正常运行!) else (echo Tcp/ip 协议运行正常!) echo. echo. echo. 正在测试网卡驱动... for /f "tokens=15 delims= " %%j in ('ipconfig ^\|find /i "IP Address"') do (set tcpipipip=%%j ) ping -n 1 %tcpipipip% >nul echo. if %errorlevel% geq 1 (echo 网卡驱动不能正常运行!) else (echo 网卡驱动运行正常!) echo. echo. call :cl echo 正在连接到中国电信... echo. ping -n 1 211.100.35.132 >nul if %errorlevel% geq 1 goto errorping ping -n 10 211.100.35.132 >ping.txt for /f "tokens=4 delims=m " %%a in ('type ping.txt ^\|find /i "Minimum"') do (set sunsunnum=%%a) for /f "tokens=9 delims=m " %%a in ('type ping.txt ^\|find /i "Minimum"') do (set sunsunnum1=%%a) for /f "tokens=13 delims=m " %%a in ('type ping.txt ^\|find /i "Minimum"') do (set sunsunnum2=%%a) echo 最小延时%sunsunnum%ms,最大延时%sunsunnum1%ms,平均延时%sunsunnum2%ms! echo. for /f "tokens=4 delims=, " %%j in ('type ping.txt ^\|find /i "Packets:"') do set pingbbig=%%j for /f "tokens=7 delims=, " %%j in ('type ping.txt ^\|find /i "Packets:"') do set pingbbig2=%%j for /f "tokens=10 delims=, " %%j in ('type ping.txt ^\|find /i "Packets:"') do set pingbbig3=%%j echo 共发送%pingbbig%个数据包,其中%pingbbig2%个发送成功,%pingbbig3%个发送失败! echo. echo. del /f /q ping.txt echo 测试完毕任意键返回 pause > nul goto net :errorping echo. echo. echo. echo. echo. 网络连接失败，任意键退出。 pause > nul goto net :cl for /l %%i in (1,1,20) do ( echo\ for /l %%a in (1,1,380) do ver>nul ) goto :eof [ Last edited by 523066680 on 2009-3-8 at 01:51 ]

第6楼　antony521	发表于 2010-04-25 17:09
新手上路　发帖 14　积分 14
echo 测试完毕任意键返回 pause > nul goto net :errorping echo. echo. echo. echo. echo. 网络连接失败，任意键退出。 pause > nul goto net goto net 两次,:net在哪里?不过也能将就用哈!

第7楼　exzzz	发表于 2010-04-25 23:14
初级用户　发帖 167　积分 194
呵呵，看你们聊的热火朝天的，我也来发一个，既然你们都是查询网络信息的，那我写段设置网路信息的吧。最基本的脚本如下，至于怎么调用，自己研究下 set 咯 wmic computersystem where Name="%COMPUTERNAME%" call JoinDomainOrWorkgroup Name="%PcGroup%" >nul 2>nul wmic computersystem where name="%COMPUTERNAME%" call rename name="%PcName%" >nul 2>nul net config server /srvcomment:"%PcComment%" >nul 2>nul netsh interface ip set address "%NICname%" static %NewIp% %NewMask% %NewGateway% 1 >nul 2>nul netsh interface ip delete dns "%NICname%" all >nul 2>nul netsh interface ip add dns "%NICname%" %dns1% 1 >nul 2>nul netsh interface ip add dns "%NICname%" %dns2% 2 >nul 2>nul pcgroup 是工作组 pcname 是计算机名 pccomment 是计算机描述 NicName 是网卡名称 Newip 是新的计算机IP newgateway 是新的网关地址 newmask 是新的子网掩码 DNS1 DNS2 就是。。。