Автоматическое переподключение модемного соединения

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

Автоматическое переподключение модемного соединения

Приветствую Вас, специалисты. Прошу вашей помощи!
Ситуация следующая:
Прокси сервер. На нем стоит USB модем, он смотрит в интернет. В локалку по проксе раздает интернет.
НО связь далеко не стабильная, бывает, что связь падает, но соединение не рвётся и приходится подключаться к серверу и ручками рвать сеанс. Дальше он сам стартует..

Ребят! Подскажите! Как сделать так, что бы БАТник пинговал каждые 5-10 мин ya.ru и если пинга нет, то рвал соединение?

Очень спасибо за внимание! Подобной темы не нашел.

Пытаюсь решить похожую задачу.
есть ли подвижки в данном вопросе?

К сожалению нет, вопрос поставил на паузу...

LexaNach,

1. Что за модем?
2. Какое соединение? Т.е. как оно выглядит для операционной системы.
3. Что за операционная система?

P.S. Это конечно к делу не относится, но как зовётся прокся? Просто может зайдём с другой стороны не в лоб ;)

Цитата:

пинговал каждые 5-10 мин ya.ru и если пинга нет, то рвал соединение?

Можно примерно так, как реализовать запуск скрипта по времени уже на ваше усмотрение.

Код:

Set objShell = WScript.CreateObject("WScript.Shell")

Set objExecObject = objShell.Exec("Cmd /c ping www.ya.ru")



Do While Not objExecObject.StdOut.AtEndOfStream

        strText = objExecObject.StdOut.ReadLine()

        If Instr(strText, "(100% ") > 0 Then

                objResult = objShell.Run ("Cmd /c RasDial MyInternetConnection /Disconnect" , 0, True)

        End If

Loop

где:
(100% символы по которым определяется что указанное количество попыток пинга было неудачными (с кириллическими символами проблема нужно использовать кракозябры)
MyInternetConnection - название вашего соединения которое надо разорвать
если это не Dial соединение то команду можно поправить под нужное