[Anonymоus]

Есть интернет соединение по РРРОЕ, иногда бывает такое, что соединение есть, а интернета и пинга нет. »

Этот скрипт должен помочь. Подключается к серверу (в случае неудачи ждёт и снова пытается), как только соединение установлено - периодически пингует заданный сайт, если пинг не проходит (пропал интернет) - принудительно разрывает подключение и подсоединяется заново. Все настройки вынесены в переменные вверху. Пароль и логин хранятся в скрипте, если к компьютеру имеете доступ не только вы - это небезопасно.

Код:

@Echo Off

Rem Максимальное число реконнектов при потере сервера
Set /A Reconnect="6"
:Main
Rem Имя вашего соединения (скопируйте из "Сетевые подключения")
Set Connection="Sevenline VPN-6"
Rem Имя пользователя
Set User="inquisitor"         
Rem Пароль 
Set Pass="*********"                   
Rem Максимальное кол-во попыток подключения
Set Max="10"
Rem Здесь устанавливаем адрес сайта, по доступности к которому будем проверять наличие интернета. К примеру - 209.85.229.104 - google
Set Site=209.85.229.104
Rem Таймаут между проверками (секунды)
Set TimeOut=120
Set /A TimeOut=TimeOut*1000
Rem Устанавливаем время ожидания до повторного подключения (секунды)
Set RetryTime=300
Set /A RetryTime=RetryTime*1000


Set NC=".\bin\nc.exe" 
Set /A i="0" 
             
:Loop    
    Echo.
    Echo Идет соединение с %Connection%...
    Echo Попытка #%i%
    RasDial %Connection% %User% %Pass% 2>Nul 1>&2
    If %ErrorLevel% GTR 0 (
        Echo Ошибка при соединении с %Connection%, подключаемся заново.
        Set /A i="i + 1"
        If "%i%" == %Max% GoTo Fail
        GoTo Loop
    ) Else (
        Echo.
        Echo Соединено.
        Echo.
        Echo.
        %NC% Wait 15000
        GoTo Watch
    )

:Fail
    Echo.
    Echo.
    Echo.
    Echo Соединится с %Connection% не удалось.
    Echo.
    Echo Ждём и пробуем ещё раз (осталось %Reconnect% попыток).
    %NC% Wait %RetryTime%
    Set /A Reconnect="Reconnect - 1"
    If "%Reconnect%" LEQ "0" Echo Число попыток соединения исчерпано&GoTo EOF
    GoTo Main

:Watch
    Set /A t="0"
    :ReCheck
        Ping -n 1 %Site%>nul
        Set /A t="t + 1"
        Echo [%date% - %time:~-0,8%]  Проверка соединения #%t%
        If %ErrorLevel% GTR 0 (
            Echo Соединение %Connection% недоступно, попытка переподключения...
            RasDial %Connection% /DISCONNECT
            GoTo Main
        ) Else (
            Echo Соединение %Connection% доступно.
            %NC% Wait %TimeOut%
            GoTo ReCheck
        )

:EOF

UPD: Забыл добавить - скрипт требует консольную версию утилиты NirCmd (для организации задержки), создайте рядом со скриптом папку bin и поместите туда exe-файл NirCmd, переименовав его в nc.exe