以前自己寫(xiě)的一個(gè)監(jiān)控腳本，每隔10秒使用PING命令檢查一個(gè)IP列表中的IP，如果不通，則通過(guò)messenger消息發(fā)送，并使用BEEP發(fā)出報(bào)警聲。需要文件sleep.exe（可到網(wǎng)上下一個(gè)）、BEEP.EXE（自己用DELPHI寫(xiě)的，不必需，代碼可去掉，也可以去網(wǎng)上找一個(gè)），再建立文件ip.txt,user.txt，運(yùn)行腳本即可。
復(fù)制代碼 代碼如下:
rem main.bat
@echo off
for /F "eol=; tokens=1,2* delims==" %%i in (ip.TXT) do call :checkip %%i %%j 0
echo --------------------------------------------------------------
echo ----第一輪檢查完畢,如果沒(méi)有聽(tīng)到報(bào)警聲,表示各IP都可以PING通----
echo ----如果有異常的IP,請(qǐng)?jiān)偈謩?dòng)使用PING命令,以確認(rèn)檢查的正確性----
echo ---- 現(xiàn)在進(jìn)行循環(huán)檢查,每隔10000ms檢查一個(gè)IP ----
echo --------------------------------------------------------------
:begin
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
;ip.txt,關(guān)鍵IP,一行一個(gè)IP，等號(hào)后面可輸入名稱(chēng)
192.168.0.1=集團(tuán)網(wǎng)關(guān)
192.168.0.123=test
;user.txt，計(jì)算機(jī)名或IP，檢測(cè)到網(wǎng)絡(luò)不通時(shí)，發(fā)送消息給文中的用戶
computername
