Клуб владельцев корейских автомобилей

-=+DeMoN+=- писал(а):штука крайне ненадежная и ребутить она тебе будет ее больше чем работать.

CompName = "192.168.0.1"
do
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}")._
ExecQuery("select * from Win32_PingStatus where address = '"_
& CompName & "'")
For Each objStatus In objPing
If IsNull(objStatus.StatusCode) or objStatus.StatusCode<>0 Then
Set OpSysSet = GetObject("winmgmts:{(Shutdown)}").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
For Each OpSys In OpSysSet
OpSys.Reboot()
Next
else
wscript.echo "РАБОТАЕТ"
end if
next
WScript.Sleep 1000
loop

cscript.exe c:\reboot.vbs

-=+DeMoN+=- писал(а):Может легче машинку вылечить удаленную? потому как пинг - штука крайне ненадежная и ребутить она тебе будет ее больше чем работать....

kirill@KIA писал(а):если более 5 мин нет пинга - то ребутить

Simpleuser писал(а):Сидеть тихонько в трее и раз в минут 15-30 пинговать кого-нибудь внешнего.

Simpleuser писал(а):Сидеть тихонько в трее

kirill@KIA писал(а):Simpleuser писал(а):
Сидеть тихонько в трее и раз в минут 15-30 пинговать кого-нибудь внешнего.

внешний - это опасно..как ты выберишь этот хост внешний? а если это не твой канал а бздынь имено этот удаленный хост?

kirill@KIA писал(а):у тя GW роутер местный или у провайдера?

kirill@KIA писал(а):Melior, в принципе то что надо , с пометкой на таймаут
тока тревожит желание аФтора на это
Simpleuser писал(а):
Сидеть тихонько в трее

Simpleuser писал(а):А это чо ???

Simpleuser писал(а):Здорово будет, если можно менять параметры (в простеньком конфиг-файле) - IP для простукивания, интервал задержки...

'IP или имя проверяемого компа
CompName = "ya.ru"
'Задержка обновления пинга, в милисекундах
delay = 900000
'Задержка подтверждения обрыва сети, в милисекундах
delay_ping = 60000
'Количество проверок после которых появляется сообщение
count = 5
'Имя файла для хранения числа перезагрузок
filename = "c:\log_reboot.txt"
'Сообщение о невозможности восстановления коннекта
msg = "Проверьте кабель, вашу мать!"

Set objFSO = CreateObject("Scripting.FileSystemObject")
If (objFSO.FileExists(filename)) Then
Set file1 = objFSO.OpenTextFile(filename, 1, True)
i = cint(file1.ReadLine)
file1.close
Else
i = 0
End If
do
reboot_on = true
if ping(CompName) then
wscript.echo Date & " " & Time & " Пинг пропал! Ждем проверки"
WScript.Sleep delay_ping
if ping(CompName) then
if i >= count then
x = MsgBox(msg,vbRetryCancel+vbExclamation,"Проблема с сетью!")
select case x
case 2
exit do
case else
reboot_on = false
end select
end if
Set file1 = objFSO.OpenTextFile(filename, 2, True)
i = i + 1
file1.Write i
file1.Close
if reboot_on then
wscript.echo Date & " " & Time & " Перезагрузка"
Set OpSysSet = GetObject("winmgmts:{(Shutdown)}").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
For Each OpSys In OpSysSet
OpSys.Reboot()
next
Exit do
end if
else
wscript.echo Date & " " & Time & " Пинг появился"
end if
else
wscript.echo Date & " " & Time & " Пинг до " & CompName & " прошел"
i = 0
end if
WScript.Sleep delay
loop

Function ping(name)
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}")._
ExecQuery("select * from Win32_PingStatus where address = '"_
& name & "'")
For Each objStatus In objPing
If IsNull(objStatus.StatusCode) Or objStatus.StatusCode <> 0 Then
ping = True
Else
ping = False
End If
Next
End Function

cscript //B //nologo c:\reboot.vbs

bovik писал(а):А вот такой вариант тебе не пойдёт? Перезагруз при сбое службы? Только надо чётко определить какая служба отвечает за сетевые соединения...

Одинокий Валенок писал(а):Между прочим, а подобные проги разве еще называются резидентами?