网络维护好工具
修改了一下
::自动获取网关地址,不用手工输入地址来ping。by yangzhiyi
@echo off
title PING 网关地址
if not %OS%==Windows_NT echo 这个程序只适用于 WINDOWS 2000/XP/2003 系统 & pause >nul & GOTO :EOF
ipconfig | find /i "Default Gateway" >nul || (echo 你的网络连接不正常,无法自动获取网关地址。 & echo. & echo 按任意键退出。。。 & pause >nul & goto :EOF)
rd /s /q "%temp%\iptest" 1>nul 2>nul
md "%temp%\iptest" 1>nul 2>nul
for /f "tokens=2 delims=:" %%i in ('ipconfig^|find /i "Default Gateway"') do (echo 网关%%i>>%temp%\iptest\Gateway.txt)
findstr "" %temp%\iptest\Gateway.txt >%temp%\iptest\Gateway1.txt 2>nul
for /f "tokens=2 delims= " %%i in (%temp%\iptest\Gateway1.txt) do (echo %%i>>%temp%\iptest\Gateway2.txt)
findstr /n "" %temp%\iptest\Gateway2.txt >%temp%\iptest\Gateway3.txt 2>nul
for /f "skip=1 tokens=2 delims=:" %%i in (%temp%\iptest\Gateway3.txt) do (set add=%%i)
for /f "tokens=2 delims=:" %%i in (%temp%\iptest\Gateway3.txt) do (set Gateway=%%i)
if "%Gateway%"=="" (cls & echo 无法自动获取网关地址 &goto end)
if "%add%" == "" goto ping
echo 请选择你想测试的网关
echo.
type %temp%\iptest\Gateway3.txt 2>nul
echo.
set op=1
set /p op=请选择:
findstr "%op%:" %temp%\iptest\Gateway3.txt >%temp%\iptest\Gateway4.txt 2>nul
for /f "tokens=2 delims=:" %%i in (%temp%\iptest\Gateway4.txt) do (set Gateway=%%i)
if "%Gateway%"=="" (cls & echo 无法自动获取网关地址 &goto end) else (goto ping)
:ping
cls
echo 测试网关:%Gateway%
echo.
set bbb=4
echo 输入指定发送回响请求消息的次数
set /p bbb=:
echo 0%bbb%>%temp%\iptest\Gateway4.txt
findstr /x "*" %temp%\iptest\Gateway4.txt || goto ping
::if "%bbb%" == "" goto ping
rd /s /q "%temp%\iptest" 1>nul 2>nul
if "%bbb%" == "0" (
cls
echo 执行 ping %Gateway% -t
echo.
ping -t %Gateway%
) else (
cls
echo 执行 ping %Gateway% -n %bbb%
echo.
ping -n %bbb% %Gateway%
)
goto end
:end
echo. & echo 按任意键退出。。。 & pause >nul
Last edited by yangzhiyi on 2008-3-16 at 06:46 PM ]