[Smith_Wesson]

Вот такой вот скриптик - скажем так, более навороченный пингер с анализом отсутствия пингов по удаленным узлам. Дело в том, что машин в сети несколько (скажем так 10, может больше) - все они на usb-модемах PEOPLE_NET (которые имеют свойство периодически подвисать) и тогда спасает только ребут всего системника!

Код:

  
@Echo Off
setlocal enableextensions enabledelayedexpansion
:NEW
Set /a cWork=0
Set /a err=0
Set /a rebut=0
goto PING
:EOF
If %cWork%==5 echo NEW & goto NEW
rem "если два цикла подряд отсутсвуют пинги, переходим к пересозданию подключения"
If %err%==2 goto DIAL

:PING 
rem "указываем пингуемый диапазон"
For /l %%a In (70,1,80) Do Ping.exe > nul -n 10 -w 3000 10.1.5.%%a
 
rem "если последний узел не пингуется, либо не пингуется весь диапаон"
If ErrorLevel 1 (set /a err=%err%+1 & goto EOF)
rem "ну, тут всё понятно: увеличиваем счётчик успешных попыток"
If ErrorLevel 0 (set /a cWork=%cWork%+1 & goto EOF)
:DIAL

rasdial people /disconnect
rasdial people admin admin
rem "сбрасываем счётчик ошибок в 0 и увеличиваем счётчик редиала на 1"
Set /a err=0
set /a rebut=%rebut%+1
If %rebut%==4 (echo %rebut% >> logging.log && shutdown.exe -r -t 5)
rem "возвращаемся к началу цикла"
goto EOF
exit