自动检测网络通断（改进版） - 无忧启动论坛

@echo off
title 网络连通测试
:a
chcp 65001>nul
call :select "IPV4 Address" "ip"||call :select "IP Address" "ip"
call :select "Physical Address" "mac"
call :select "Default Gateway" "gateway"
call :select "DNS Servers" "dns"
call :select "Description" "netcard"
:: 演示效果
chcp 936>nul
setlocal ENABLEDELAYEDEXPANSION
echo.
echo.===============================================================
echo.
echo. 欢迎使用网络配置信息查看器
echo.
color a
echo.
echo 本机IP:%ip%
echo 本机MAC:%mac%
echo 本机DNS:%dns%
echo 网关IP:%gateway%
echo 网卡名称:%netcard%
echo.
REM PingSite表示外部网络的参考网址
REM LanIP表示本地网络的网关
REM set PingSite=www.baidu.com
set LanIP=%gateway%
set /p PingSite=请输入要检查的网址或者IP【如:%gateway%】：
if NOT DEFINED PingSite set PingSite=www.baidu.com
echo.
echo.===============================================================
echo.
echo. 即将Ping %LanIP%
echo.
REM ping %LanIP% -n 1 -l 1 >nul 2>nul
ping %LanIP% |find "TTL"
if %ERRORLEVEL% EQU 0 (
REM echo. ERRORLEVEL=%ERRORLEVEL%
color 27
echo.
echo 哦-----本地网络可以访问
REM ping %PingSite% -n 1 -l 1 >nul 2>nul
echo.
echo.
echo.===============================================================
echo.
echo. 即将Ping %PingSite%
echo.
call :PingSiteProc
) else (
color 47
echo.
echo 哦----本地网络倒闭
echo 坏了-----网络彻底瘫痪了
echo.
)
REM echo.
REM echo.===============================================================
REM echo.
REM echo. 即将Ping %PingSite%
REM echo.
REM ping %web%||echo.&&echo ◎◎◎◎◎◎◎◎◎◎◎◎◎&&color 47&&echo.&&echo 网络不通，请检查&&echo.&&echo ◎◎◎◎◎◎◎◎◎◎◎◎◎
echo.
echo.===============================================================
timeout 5 >nul
cls
goto a
REM pause>nul
REM goto :eof
:PingSiteProc
ping %PingSite% |find "TTL"
if %ERRORLEVEL% EQU 0 (
color 27
echo.
echo 耶-----%PingSite% 可以访问
echo 真爽-----网络畅通无阻
REM ^G表示Ctrl+G
REM echo ^G
) else (
REM echo. ERRORLEVEL3=%ERRORLEVEL%
color 47
echo 唔----%PingSite% 不能访问!
echo 不好-----网络闭关锁国了
echo.
)
goto :eof
::**************************************************************
:: 解析ipconfig命令输出通用函数
::**************************************************************
:select
for /f "tokens=2 delims=:" %%i in ('ipconfig /all ^| findstr /i /c:%1') do if not "!%~2!" == "" set "%~2=%%i"
goto :eof

复制代码