Скрипт перезагрузки модема.

[mediamag]

Доброго времени суток. Есть задача, пинговать айпи хх.хх.хх.хх в локалке и после 10 неудачных пингов ребутать adsl модем. М ожет у кого нибудь есть готовый скрипт на винде? На фряхе такой скрипт имеется, а вто на винде никогда не писал ничего подобного. Заранее благодарен.

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[Electronik]

поставьте cygwin и будет тоже что на "фряхе"
или юзайте Connex Network Manager
http://sourceforge.net/projects/connexmanager/

[Bayerische]

Интересно, а как можно ребутить зависший модем? У меня, помнится, Акорп вис наглухо, только по питанию можно было дёргать.

[Gamerman]

Бывает, что не модем повис, а сессия. Тогда ребутнуть можно.

[mediamag]

Мне нужно ребутать модем, когда один хост в сети (впн) не доступен, так как провайдер, какогото хрена раз в сутки банит gre проходящий через внешний айпи.

[Urgor]

Для ребута модема делал примерно так:

Код: Выделить всё

Set oShell = CreateObject("WScript.Shell")
set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("c:\ping.log.txt",8, true)

Function PingHost(strMachines)
   aMachines = split(strMachines, ";")
   PingHost = True 
   
   For Each machine in aMachines
       Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}")._
           ExecQuery("select * from Win32_PingStatus where address = '"_
               & machine & "'")
       For Each objStatus in objPing
           If IsNull(objStatus.StatusCode) or objStatus.StatusCode<>0 Then 
               PingHost = False
'               WScript.Echo("Computer " & machine & " is not reachable") 
               objFile.WriteLine Now () & "  ---  СВЯЗИ НЕТ   с " & machine
           End If
       Next
   Next

End Function

if PingHost("mail.ru;yandex.ru") = False then 
  Set oExec = oShell.Exec("reboot.cmd") 
end if