中国DOS联盟

有多个域名或者IP比如
qq.com baidu.com google.com crsyk.com
我想逐一用ping 命令ping 域名并且截取返回的响应时间XXX毫秒
如果不通则提示 超时
利用返回的响应时间对比。提示出最快的一个域名

我搞了好久。看了好多资料了。
最后一步不会了。不知道为什么老是判断失误。。请各位能人之士帮修改精简下

@echo off

color 0a

title 服务器速度查询

setlocal enabledelayedexpansion

set/a st=1000

set 服务器=qq.com baidu.com 220.181.38.84 crsky.com

:start

echo ===============================

for /l %%q in (1,1,4) do (set nb=%%q &call :do)

echo 速度最快的是%name% 时间为：%st% 毫秒

pause

exit

:do

for /f "tokens=%nb%" %%a in ('echo %服务器%') do (

    echo 正在检测:	%%a

    call :pip %%a

    echo %myms%

    if %st% gtr %myms% set/a st=%myms% & set name=%%a

    echo ===============================)

goto :eof

:pip

	set/a nb+=1

    set/a num=0

    for /f "tokens=4 delims=m=" %%i in ('ping -n 1 %1^|find "Maximum"') do (

         set/a num+=1

         set/a myms=%%i

         echo %%a响应速度为:%%i 毫秒)

    if %num% EQU 0 echo.超时 & set myms=9999

    goto :eof

Last edited by qq43142691 on 2008-2-3 at 06:48 AM ]

自己独立完成了。。测试了OK的。。分享给大家。。

@echo off

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

Last edited by qq43142691 on 2008-2-4 at 12:31 AM ]

想法不错.
可以再精简,还有
if %st% gtr %myms% set/a st=%myms% & set name=%fst% & set nbip=%nb%

if %nb% equ 1 (echo %fst% ...
你再琢磨琢磨...

我闪了,明年见.

我是从别人那个测试腾讯服务器速度 的那个批处理修改得来的。。
呵呵。。。给自己用的。。