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