以前自己写的一个监控脚本，每隔10秒使用PING命令检查一个IP列表中的IP，如果不通，则通过messenger消息发送，并使用BEEP发出报警声。需要文件sleep.exe（可到网上下一个）、BEEP.EXE（自己用DELPHI写的，不必需，代码可去掉，也可以去网上找一个），再建立文件ip.txt,user.txt，运行脚本即可。
rem&nbs
p;m
ain.bat
@echo off
for /F "eol=; tokens=1,2* delims
==" %%i in (ip.TXT) do call :checkip %%i %%j 0
echo --------------------------------------------------------------
echo ----第一轮检查完毕,如果没有听到报警声,表示各IP都可以PING通----
echo ----如果有异常的IP,请再手动使用PING命令,以确认检查的正确性----
echo ---- 现在进行循环检查,每隔10000ms检查一个IP ----
echo --------------------------------------------------------------
:be
gin for /F "eol=; tokens=1,2* delims==" %%i in (ip.TXT) do call :checkip %%i %%j 10000
goto begin
:checkip
@echo off
PING %1 -n 1 | FIND "
TTL=" >NUL
IF NOT ERRORLEVEL 1 ECHO %1(%2)
status OK at %TIME%
IF NOT ERRORLEVEL 1 GOTO NEXT
PING %1 -n 1 -w 3000 | FIND "TTL=" >NUL
if %ERRORLEVEL%==1 call :send %1 %2 ELSE ECHO %1(%2) Status OK at %TIME%
:Next
sleep %3
goto end
:send
@echo off
ECHO %1(%2)
:::::Status ERROR at %TIME%:::::
for /F "eol=;" %%i in (user.TXT) do net send %%i "Error Pinging %1(%2)." >NUL
Beep 1500 500
Beep 500 500
Beep 1500 500
Beep 500 500
goto end
:end