批处理定时监控网络延时

@echo off&title DOS资源站 www.cmdos.net&&setlocal enabledelayedexpansion
color 1f
title 检查网络程序 by 彬 QQ 43142691 %date%%time%
set n=0
::*********************************************
::这里设置监控网络延时的时间 单位是毫秒 1000毫秒＝1秒
set 网络延时=100
::这里设置日志文件保存的路径
set 日志=log.txt
::这里设置 监控间隔 时间 单位是 秒 1000毫秒＝1秒
set 监控时间=5
::*********************************************
:start
sleep %监控时间%s
set /a n+=1
for /f "delims=: tokens=1 usebackq" %%a in (host.ini) do (
set var=%%a
)
for /f "skip=8 tokens=9 usebackq" %%b in (`ping !var! -n 1`) do set ms=%%b
set ms=%ms:~0,-3%
if %ms% LEQ %网络延时% goto start

echo %date%%time% 第%n%次警告 超过监控值 %网络延时% 毫秒,现在延时是 %ms% 毫秒>>%日志%
echo 监控的网络IP或者域名是 %var% >>%日志%
echo.__________________________________________________________________________________>>%日志%
if exist c:\windows\54ll.vbs del c:\windows\54ll.vbs
echo MSGBox " 超过监控值 %网络延时% 毫秒,现在延时是 %ms% 毫秒,请注意网络状态,日志位置是 %日志%",11,"第%n%次警告" >c:\windows\54ll.vbs
Start c:\windows\54ll.vbs
goto start