多服务器响应判断批处理版

@echo off&title DOS资源站 www.cmdos.net
color 0a
title 多服务器响应判断by ^|彬^|QQ43142691 2008-02-03
setlocal enabledelayedexpansion
set st=1000
set nb=0
set fn=6
set fst=sina.com
set 服务器=%fst% 163.com yahoo.com.cn sohu.com qq163.com 772.cn
set/a nb+=1
echo 正在检测第 %nb% 个目标        %fst%
call :CheckServer %fst%
if %st% gtr %myms% set/a st=%myms% & set name=%fst% & set nbip=%nb%
for /l %%q in (1,1,%fn%) do (set nb=%%q &call :do)
echo.__________________________________________________________________
echo 响应速度最快的地址是第 %nbip% 个域名 %name% ,响应速度为: %st% 毫秒
echo.__________________________________________________________________
pause>nul
exit
:do
echo _____________________________________ %nb%
echo.
set/a nb+=1
for /f "tokens=%nb%" %%i in ('echo %服务器%') do (
    echo 正在检测第 %nb% 个目标        %%i
    call :CheckServer %%i
    if !st! gtr !myms! set/a st=!myms! & set name=%%i & set nbip=%nb%)
goto :eof
:CheckServer
    set/a num=0
    for /f "tokens=4 delims=m=" %%a in ('ping -n 1 "%1"^|find /i "Maximum"') do (
         set/a num+=1
         set/a myms=%%a
         if %nb% equ 1 (echo %fst% 的响应速为:%%a 毫秒)else (echo %%i 的响应速为:%%a 毫秒)
         )
    if %num% EQU 0 echo. & echo 目标服务器超时
    goto :eof