Форум Модем

OFF: Для всех, у кого модемы не хотят переподключаться после суточных разрывов

OFF: Для всех, у кого модемы не хотят переподключаться после суточных разрывов

СМИ
19.02.2010 - 13:54
Накопал я ответ:
код(сохранить в файл "modem rebot.vbs" и запустить!) :
 
On Error Resume Next
 
strComputer = "."
strTarget = "mail.ru" 'IP address or hostname
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colPings = objWMIService.ExecQuery _
("Select * From Win32_PingStatus where Address = '" & strTarget & "'")
If Err = 0 Then
Err.Clear
For Each objPing in colPings 'избавиться от форича
If Err = 0 Then
Err.Clear
If objPing.StatusCode = 0 Then
' если статус = 0, пустая строка - другое
Else
Set oShell = WScript.CreateObject("WScript.Shell")
oShell.Run "telnet.exe 192.168.1.1"
WScript.Sleep 1000
oShell.SendKeys "user" & chr(13)
WScript.Sleep 1000
oShell.SendKeys "password" & chr(13)
WScript.Sleep 1000
oShell.SendKeys "reboot" & chr(13)
End If
Else
Err.Clear
WScript.Echo "Unable to call Win32_PingStatus on " & strComputer & "."
End If
Next
Else
Err.Clear
WScript.Echo "Unable to call Win32_PingStatus on " & strComputer & "."
End If
 
user-имя доступа к настройкам к модему
password-пароль доступа к настройкам к модему
 
И все работает прекрасно!
Перевести с VBA на Delpi не составит не кому труда!
Поясняю, данный код пингует сервер (в данном случае mail.ru) и если сервр не отвечает , то отпровляет модем в ребут !!!
Только вылеваеться одна проблема под ХР все работает прекрасно , а под Vista нет , он просто не чего не делает !!!
Просто попробывал команду run-> Telnet.exe он пишет что типа программа не найдена , вот и все !!!!
_
Мопед не мой, я просто разместил объяву. Чтобы telnet появился в Висте или 7 надо просто скопировать из XP файлик telnet.exe
Далее прописываем скрипт в планировщике заданий и фсо. Повесил себе. Как поведет себя - посмотрим.
К списку тем К списку тем

Интересные темы

forumodem.ru
28.09.2021 - 21:52
Смотри также:
\\\ Бипайн с тарифом Яблочный фреш ///
Какой модем лучше брать?!
Е 1550 и USB удлинитель

Re: OFF: Для всех, у кого модемы не хотят переподключаться после суточных разрывов

Lukich
1 - 19.02.2010 - 17:00
Ничего в Висту и 7-ку копировать из ХР не надо, там есть Telnet :)
Чтобы его включить: Пуск - Панель управления - Программы - Программы и компоненты - Включение или отключение компонентов Виндовс - Клиент Telnet (поставить крыжик)
К списку тем К списку тем

Добавить новое сообщение

Ваше имя:
Тема сообщения:
Сообщение:
« Кто знает адреса БС Мегафона в районе Энки и Витаминкомбината Siemens SpeedStream 6515 firmware update »
© 2009—2010 Форум Модем