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

Russo · Отправлено: **23:29, 25-11-2011** | #2

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

LexaNach · Отправлено: **19:27, 27-11-2011** | #3

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

Anton04 · Конфигурация компьютера

LexaNach,

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

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

Loran_rus · Отправлено: **06:46, 29-11-2011** | #5

Цитата:

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