中国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 就是。。。