自动检测网络通断（改进版）

tanchenglong

引用了网络上的版本加以改进
1、可以指定PING的IP，或者默认PING网关（自动获取）
2、PING www.baidu.com，以验证网络连接状况
3、会用屏幕的颜色变化反映PING结果，如果是绿色表示是通的，红色表示不正常

1. @echo off
   
2. title 网络连通测试
   
3. :a
   
4. chcp 65001>nul
   
5. call :select "IPV4 Address" "ip"||call :select "IP Address" "ip"
   
6. call :select "Physical Address" "mac"
   
7. call :select "Default Gateway" "gateway"
   
8. call :select "DNS Servers" "dns"
   
9. call :select "Description" "netcard"
   
10. 
    
11. :: 演示效果
    
12. chcp 936>nul
    
13. setlocal ENABLEDELAYEDEXPANSION
    
14. echo.
    
15. echo.===============================================================
    
16. echo.
    
17. echo.            欢 迎 使 用 网 络 配 置 信 息 查 看 器
    
18. echo.
    
19. color a
    
20. echo.
    
21. echo 本机IP:%ip%
    
22. echo 本机MAC:%mac%
    
23. echo 本机DNS:%dns%
    
24. echo 网关IP:%gateway%
    
25. echo 网卡名称:%netcard%
    
26. echo.
    
27. REM PingSite表示外部网络的参考网址
    
28. REM LanIP表示本地网络的网关
    
29. REM set PingSite=www.baidu.com
    
30. set LanIP=%gateway%
    
31. set /p PingSite=请输入要检查的网址或者IP【如:%gateway%】：
    
32. if NOT DEFINED PingSite set PingSite=www.baidu.com
    
33. echo.
    
34. echo.===============================================================
    
35. echo.
    
36. echo.     即将Ping %LanIP%
    
37. echo.
    
38. REM ping %LanIP% -n 1 -l 1 >nul 2>nul
    
39. ping %LanIP% |find "TTL"
    
40. if %ERRORLEVEL% EQU 0 (
    
41.         REM echo.  ERRORLEVEL=%ERRORLEVEL%
    
42.         color 27
    
43.         echo.
    
44.         echo   哦-----本地网络可以访问
    
45.         REM ping %PingSite% -n 1 -l 1 >nul 2>nul
    
46.         echo.
    
47.         echo.
    
48.         echo.===============================================================
    
49.         echo.
    
50.         echo.     即将Ping %PingSite%
    
51.         echo.
    
52.         call :PingSiteProc
    
53.         ) else (
    
54.         color 47
    
55.         echo.
    
56.         echo 哦----本地网络倒闭
    
57.         echo 坏了-----网络彻底瘫痪了
    
58.         echo.
    
59. )
    
60. 
    
61. 
    
62. REM echo.
    
63. REM echo.===============================================================
    
64. REM echo.
    
65. REM echo.     即将Ping %PingSite%
    
66. REM echo.
    
67. REM ping %web%||echo.&&echo ◎◎◎◎◎◎◎◎◎◎◎◎◎&&color 47&&echo.&&echo      网络不通，请检查&&echo.&&echo ◎◎◎◎◎◎◎◎◎◎◎◎◎
    
68. echo.
    
69. echo.===============================================================
    
70. timeout 5 >nul
    
71. cls
    
72. goto a
    
73. REM pause>nul
    
74. REM goto :eof
    
75. 
    
76. :PingSiteProc
    
77. ping %PingSite% |find "TTL"
    
78. if %ERRORLEVEL% EQU 0 (
    
79.         color 27
    
80.         echo.
    
81.         echo   耶-----%PingSite% 可以访问
    
82.         echo   真爽-----网络畅通无阻
    
83.         REM ^G表示Ctrl+G
    
84.         REM echo ^G
    
85.         ) else (
    
86.         REM echo.  ERRORLEVEL3=%ERRORLEVEL%
    
87.         color 47
    
88.         echo   唔----%PingSite% 不能访问!
    
89.         echo   不好-----网络闭关锁国了
    
90.         echo.
    
91. )
    
92. goto :eof
    
93. 
    
94. ::**************************************************************
    
95. :: 解析ipconfig命令输出通用函数
    
96. ::**************************************************************
    
97. :select
    
98. for /f "tokens=2 delims=:" %%i in ('ipconfig /all ^| findstr /i /c:%1') do if not "!%~2!" == "" set "%~2=%%i"
    
99. goto :eof
    

复制代码

yyz2191958

支持原创

holley2008

多网卡识别异常

yuguotqing

感谢分享

wang1126

感谢分享

ningzhonghui

收藏一个玩玩先

reninhouse

感谢分享

nathan6498

谢谢分享

xinzi

很好的脚本，我的电脑上运行却是乱码

wjsk10

谢谢分享

xinzi

用ANSI编码格式，显示正常了，感谢！！

2012andyle113

感谢分享

zqfeng01

感谢分享

zqfeng01

感谢分享

aigpt

回复下载 感谢分享

kings

感谢分享，支持一下

kedion

1. @echo off
   
2. Set host=music.163.com
   
3. 
   
4. :check
   
5. ping -n 4 %host%
   
6. IF ERRORLEVEL 1 goto check
   
7. IF ERRORLEVEL 0 goto startConnect
   
8. 
   
9. :startConnect
   
10. cls
    
11. Set ip=
    
12. For /f "skip=1 tokens=2 delims=[" %%a in ('ping  %host%') do (
    
13.     For /f "tokens=1 delims=]" %%b in ("%%a") do (
    
14.         Set ip=%%b
    
15.     )
    
16. )
    
17. 
    
18. cd D:\Music
    
19. node app.js -f %ip%
    
20. pause

复制代码

我用这个进行检测的，忘记在哪里看到的例子进行更改的了，给网易云解锁脚本用的有网的时候自动执行后边的脚本，没网就一直重试，直到有网为止

yc2428

谢谢分享！

boaz199

頂，謝謝樓主的勞動和分享！數據會記錄每個信息對網絡的奉獻！

2267981144

感谢热心提供分享！

zlq_hysy

分享就是是好朋友

1801403

是不是我的姿势不对啊？DNS和网关都没获取成功啊。不管是IPV4还是IPV6，都不对啊。显示也不完全。。。直接按回车，也不会ping百度。。。

oh312

赞，谢谢分享。

fegr

感谢分享

hehuiying

感谢分享

zhenghui

感谢楼主的分享、一会空闲了可以试试

紧急追踪

感谢分享

tanchenglong

1801403 发表于 2024-3-11 23:38
是不是我的姿势不对啊？DNS和网关都没获取成功啊。不管是IPV4还是IPV6，都不对啊。显示也不完全。。。直接 ...

可能系统配置中存在多网卡配置，比如虚拟网卡，这个默认只取了第1个，你用IPCONFIG /ALL看看就知道了

WUY2024

感谢分享

小歌

不行，网络正常 ，就一个网卡，回车 检测完居然说没有网络。