|
dosz
中级用户
一看二跟三动手
积分 396
发帖 188
注册 2005-10-23
来自 上海
状态 离线
|
 『楼 主』:
[批处理代码] 提供网络系统测试 带动画
今天上不了网，不得已把以前的批处理拿出来拼凑一下。
不过，动画看来有的问题，那位指点下。谢了！
@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 ]
|
*/. . . * .
.\* . [] * dosz
*/ . ./\~~~~~~~~~~~~'\. ^|◆
\* ,/,..,\,...........,\.◆
^|^| ..▎# ▎田 田 ▎ ^| ▎◆
^|^| ^&^&▎ ▎ ▎'^|'▎ o
^|^| ##■■■■■■■■■■〓 |
|
 2009-3-7 05:40 |
|
|
523066680
银牌会员
SuperCleaner
积分 2362
发帖 1133
注册 2008-2-2
状态 离线
|
『第
2 楼』:
挖！~ 潜水出来了哈 第一次见面，很高兴认识你。先回了贴
我这边网吧提示输入不正确
另外 你的网盘被锁定了 记得去开通~ 我想看下。
[ Last edited by 523066680 on 2009-3-7 at 06:31 ]
|
综合型编程论坛
我的作品索引 |
|
|
2009-3-7 06:28 |
|
|
dosz
中级用户
一看二跟三动手
积分 396
发帖 188
注册 2005-10-23
来自 上海
状态 离线
|
『第
3 楼』:
| Quote: | 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 ]
|
*/. . . * .
.\* . [] * dosz
*/ . ./\~~~~~~~~~~~~'\. ^|◆
\* ,/,..,\,...........,\.◆
^|^| ..▎# ▎田 田 ▎ ^| ▎◆
^|^| ^&^&▎ ▎ ▎'^|'▎ o
^|^| ##■■■■■■■■■■〓 |
|
|
2009-3-7 09:02 |
|
|
ZJHJ
高级用户
积分 609
发帖 374
注册 2006-8-2
状态 离线
|
『第
4 楼』:
我也发一个
[code
@echo off
::网络检查 wangwei qq 251485609
if exist bfwjcf\tqxx.txt goto jcwl
if not exist bfwjcf md bfwjcf
ipconfig /all >bfwjcf\tqxx.txt
:jcwl
find "Description" bfwjcf\tqxx.txt >xm.txt
for /f "tokens=2 delims=:" %%J in (xm.txt) do @echo %%J>wk.txt
::计算机网卡
for /f "tokens=2 delims= " %%J in (wk.txt) do set cxm=%%J
::IP 地址
find "IP Address" bfwjcf\tqxx.txt >xm.txt
for /f "tokens=2 delims=:" %%J in (xm.txt) do set cxm2=%%J
::子网掩码
find "Subnet Mask" bfwjcf\tqxx.txt >xm.txt
for /f "tokens=2 delims=:" %%J in (xm.txt) do set cxm3=%%J
::默认网关
find "Default Gateway" bfwjcf\tqxx.txt >xm.txt
for /f "tokens=2 delims=:" %%J in (xm.txt) do set cxm4=%%J
::DNS 首选服务器
find "DNS Servers" bfwjcf\tqxx.txt >xm.txt
for /f "tokens=2 delims=:" %%J in (xm.txt) do set cxm5=%%J
::DNS 备用服务器
for /f "tokens=1* delims=:" %%i in ('findstr /n . bfwjcf\tqxx.txt') do if %%i equ 20 @echo %%j>Phy.txt
for /f " tokens=1" %%M in (Phy.txt) do set cxm6=%%M
del xm.txt
del wk.txt
del Phy.txt
cls
:: 检查外网连接
(ping /n 1 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[/code]
[ Last edited by ZJHJ on 2010-4-26 at 12:12 ]
|
|
|
2009-3-7 10:54 |
|
|
523066680
银牌会员
SuperCleaner
积分 2362
发帖 1133
注册 2008-2-2
状态 离线
|
『第
5 楼』:
好像是你code以后 代码被分行了 我整理下，帮转发一次~
要搞什么效果，说说看。 不过我觉得本来的效果就不错了。
又看了下，觉得不错，网络这些知识我都不懂的，加分。
| Quote: | @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 ]
|
综合型编程论坛
我的作品索引 |
|
|
2009-3-8 01:48 |
|
|
antony521
新手上路
积分 14
发帖 14
注册 2010-3-29
状态 离线
|
『第
6 楼』:
echo 测 试 完 毕 任 意 键 返 回
pause > nul
goto net
:errorping
echo.
echo.
echo.
echo.
echo. 网络连接失败，任意键退出。
pause > nul
goto net
goto net 两次,:net在哪里?不过也能将就用哈!
|
|
|
2010-4-25 17:09 |
|
|
exzzz
初级用户
游手好闲 + 无所事事 ..
积分 194
发帖 167
注册 2007-4-30
状态 离线
|
『第
7 楼』:
呵呵，看你们聊的热火朝天的，我也来发一个，既然你们都是查询网络信息的，那我写段设置网路信息的吧。
最基本的脚本如下，至于怎么调用，自己研究下 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 就是。。。
|
 |
|
|
2010-4-25 23:14 |
|
