2 VPN-туннеля между 2 Kerio Control

[Artes1408]

Имеем 2 сети, объединённые через VPN-туннель Kerio Control 7.3.2
В первой сетке 2 канала инета (один резервный на случай пропадания основного). Во второй 1. Керио из 2 сетки стучится на керио из 1 (актив) на статический ип основного инета.
Вопрос: можно ли сделать, чтобы при падении основного инета керио из 2 сетки сам пытался стучаться на статический ип резервного канала первой сетки?

[Marrab]

Эта версия такого не умеет. Обновляйся до 8 с чем-то (точно версию не помню, в которой ввели резервирование VPN).

[Artes1408]

Поделюсь своим решением.
В общем, решили подключаться, используя доменное имя, которое записывается в hosts, и привязано там к ip. Сделал автоитный скрипт, который пингует ip основного инета и, если он не отвечает, правит в hosts основной ip на дополнительный. Как только основной снова начинает отвечать - возвращает всё назад. Вроде бы работает
P.s. Да, я любитель автоитных костылей.

[skif_r]

Если не жалко можно выложить куда-нибудь скрипт и описание схемы. Буду очень благодарен

[EnMan]

Обеспечение отказоустойчивости туннелей [Для просмотра данной ссылки нужно зарегистрироваться] мной пару лет назад еще в ветке по VPN.

[Artes1408]

Вот код:

#include 
#include 
while 1
   FileDelete("C:\Windows\System32\drivers\etc\hosts.txt")
   $ping=Ping("ххх.ххх.ххх.ххх")
   If $ping Then
          Sleep(10000)
   Else
          RunWait('"' & @ComSpec & '" /c ' & 'rename C:\Windows\System32\drivers\etc\hosts hosts.txt', @WindowsDir, @SW_HIDE)
          $file=FileOpen("C:\Windows\System32\drivers\etc\hosts.txt",1)
          FileSetPos($file,0,0) 
          $CountLines=_FileCountLines("C:\Windows\System32\drivers\etc\hosts.txt")
          $z=0
          For $i = 1 to $CountLines
                 $line = FileReadLine($file)
                 $z=StringInStr($line,"vpn.cherles.com")
                 ;MsgBox(0,$i, $line)
                 If $z>0 Then
                        _FileWriteToLine ("C:\Windows\System32\drivers\etc\hosts.txt",$i,"yyy.yyy.yyy.yyy vpn.cherles.com",1)
                        ;MsgBox(0,"0", $i)
                        ExitLoop
                 ElseIf $i=$CountLines Then
                        _FileWriteToLine ("C:\Windows\System32\drivers\etc\hosts.txt",$i+1,"yyy.yyy.yyy.yyy vpn.cherles.com",1)
                        $i=$i+1
                        ;MsgBox(0,"1", $i)
                        ExitLoop
                 EndIf
          Next
          FileClose($file)
          RunWait('"' & @ComSpec & '" /c ' & 'rename C:\Windows\System32\drivers\etc\hosts.txt hosts', @SystemDir, @SW_HIDE)
          While Not(Ping("ххх.ххх.ххх.ххх"))
                 Sleep(10000)
          WEnd
          RunWait('"' & @ComSpec & '" /c ' & 'rename C:\Windows\System32\drivers\etc\hosts hosts.txt', @SystemDir, @SW_HIDE)
          $file=FileOpen("C:\Windows\System32\drivers\etc\hosts.txt",1)
          _FileWriteToLine ("C:\Windows\System32\drivers\etc\hosts.txt",$i,"ххх.ххх.ххх.ххх vpn.cherles.com",1)
          FileClose($file)
          RunWait('"' & @ComSpec & '" /c ' & 'rename C:\Windows\System32\drivers\etc\hosts.txt hosts', @SystemDir, @SW_HIDE)
   EndIf
WEnd

Пришлось чуть-чуть поплясать с переименовыванием хостса в обычный тхт, иначе автоит не хотел с ним работать, как с текстовым файлом.

[EnMan]

Artes1408, ух... дружище, если что то пойдет не так в момент выполнения скрипта - без файла hosts не останешься с такой конструкцией?

[Artes1408]

EnMan, ну у меня в нём кроме строчки, касающейся этой задачи ничего нет. А вообще - в скрипте одной строкой можно вписать предварительный бекап хостса при каждой замене.

[EnMan]

Уже если идти таким путем, то хоть воспользуйтесь [Для просмотра данной ссылки нужно зарегистрироваться]

[Artes1408]

Зачем, если с задачей справляется автоит? Та утилита, я так понимаю не сможет пропинговать ip и решить что дальше делать.