[deepred]

Tonny_Bennet,

Скрипт очень неплохой и срочная модернизация ему не требуется, а для
мониторинга подключения можно использовать такой способ:

Код:

Set WshShell = CreateObject("WScript.Shell")
       Do 
       RetCode   =  WshShell.Run("ping -n 1 <<узел доступный по vpn>>", 0, True)
       ChEnable  =  true
           If RetCode = 1 Then
              Call AddRouteFunction("str")
           End if
       Wscript.Sleep 600000 ' Задержка на проверку соединения
       Loop While ChEnable

Function AddRouteFunction(str)
     -
     - основное тело твоего скрипта
     -
End Function 
WScript.Quit (1)

Нечто подобное, но с ручным запуском есть здесь vbscript: Bat файл мониторинга подключения