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

Windows 95, 98, ME и 3,11; WinNT, Win2000, WinXP, Win2003, Vista, 7
Правила форума
Убедительная просьба юзать теги [cоde] при оформлении листингов.
Сообщения не оформленные должным образом имеют все шансы быть незамеченными.
mediamag
лейтенант
Сообщения: 693
Зарегистрирован: 2008-10-02 20:49:21

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

Непрочитанное сообщение mediamag » 2011-06-21 16:36:43

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

Хостинговая компания Host-Food.ru
Хостинг HostFood.ru
 

Услуги хостинговой компании Host-Food.ru

Хостинг 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
капитан
Сообщения: 1593
Зарегистрирован: 2008-11-15 17:32:56
Откуда: Минск
Контактная информация:

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

Непрочитанное сообщение Electronik » 2011-06-22 2:58:37

поставьте cygwin и будет тоже что на "фряхе"
или юзайте Connex Network Manager
http://sourceforge.net/projects/connexmanager/
Предскажем будущее hw по логам и дампу, снимем сглаз и порчу с рута, поможем придумать пароль(С)
Блог

Bayerische
капитан
Сообщения: 1820
Зарегистрирован: 2010-12-25 20:41:50
Откуда: Хлебная столица

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

Непрочитанное сообщение Bayerische » 2011-06-22 7:30:17

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

Аватара пользователя
Gamerman
капитан
Сообщения: 1723
Зарегистрирован: 2009-05-17 21:01:23
Откуда: Украина, Ужгород - Днепр
Контактная информация:

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

Непрочитанное сообщение Gamerman » 2011-06-22 8:34:25

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

mediamag
лейтенант
Сообщения: 693
Зарегистрирован: 2008-10-02 20:49:21

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

Непрочитанное сообщение mediamag » 2011-06-22 9:12:48

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

Аватара пользователя
Urgor
лейтенант
Сообщения: 671
Зарегистрирован: 2006-03-14 16:30:18
Откуда: Гилея (СПб)
Контактная информация:

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

Непрочитанное сообщение Urgor » 2011-08-25 14:52:31

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

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

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
Власть в руках у чужаков, и ты им платишь дань...