попингуй - от попингуя слышу

[faustovo]

мелкий батничек пинговать сервера по списку
делает html страничку с цветовой схемой


@echo off
rem test.bat - пингование важных вещей по списку
rem вывод на экран в виде html страницы
rem http://faustovo.livejournal.com

setlocal enableDelayedExpansion
set log=%temp%\p.log
set my=%temp%\my.html
set count=0
goto start

rem ping сервера ip передается в %1
:ping1
ping %1 -n 1 > %log%
set result=%errorlevel%
exit /b %result%

rem четырехкратное однократное пингование :) ip передается в %1
:4ping
set count=0
set result=0
for /L %%i in (1,1,4) do (
call :ping1 %1
set result=!errorlevel!
if !result!==0 (
set /a count+=1
)
)
exit /b %count%

rem пингуем и выдаем строку ip передается в %1
:row
echo ^ >> %my%
call :4ping %1
set ret=%errorlevel%
if %ret%==4 (
set class=green
)
if %ret%==3 (
set class=yellow
)
if %ret%==2 (
set class=red
)
if %ret%==1 (
set class=red
)
if %ret%==0 (
set class=black
)
echo ^ %ip% ^^ %ret% ^ >> %my%
echo ^ >> %my%
exit /b

:start
echo ^ > %my%
echo ^ >> %my%
echo ^ >> %my%
type test.css >> %my%
echo ^ >> %my%
echo ^ >> %my%
echo ^Server test^ >> %my%
echo ^ >> %my%
echo ^ >> %my%
echo ^ >> %my%
echo ^ >> %my%
echo ^IP адрес^^пришло пингов^ >> %my%
echo ^ >> %my%

for /F %%j in (list.txt) do (
set IP=%%j
echo ======================
echo %%j
echo ----------------------
call :row !IP!
)

echo ^ >> %my%
echo ^ >> %my%
echo ^ >> %my%

start %my%

список файлов list.txt

172.22.1.1
172.22.2.1
172.22.3.1
172.22.4.1
172.22.1.254
172.22.2.254
172.22.3.254
172.22.4.254

css файлик мелкий test.css

Ну и архивчик