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

[LexaNach]

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

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

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

[Russo]

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

[LexaNach]

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

[Anton04]

LexaNach,

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

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

[Loran_rus]

пинговал каждые 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 соединение то команду можно поправить под нужное