Форум Kerio-rus

Форум Kerio-rus (https://kerio-rus.ru/forum/index.php)
-   Kerio Control (бывший Winroute Firewall) (https://kerio-rus.ru/forum/forumdisplay.php?f=302)
-   -   2 VPN-туннеля между 2 Kerio Control (https://kerio-rus.ru/forum/showthread.php?t=8193)

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

Marrab 29.01.2014 18:11
Re: 2 VPN-туннеля между 2 Kerio Control
 
Эта версия такого не умеет. Обновляйся до 8 с чем-то (точно версию не помню, в которой ввели резервирование VPN).

Artes1408 03.02.2014 12:32
Re: 2 VPN-туннеля между 2 Kerio Control
 
Поделюсь своим решением.
В общем, решили подключаться, используя доменное имя, которое записывается в hosts, и привязано там к ip. Сделал автоитный скрипт, который пингует ip основного инета и, если он не отвечает, правит в hosts основной ip на дополнительный. Как только основной снова начинает отвечать - возвращает всё назад. Вроде бы работает :)
P.s. Да, я любитель автоитных костылей.

skif_r 06.06.2014 12:54
Re: 2 VPN-туннеля между 2 Kerio Control
 
Если не жалко можно выложить куда-нибудь скрипт и описание схемы. Буду очень благодарен

EnMan 06.06.2014 18:48
Re: 2 VPN-туннеля между 2 Kerio Control
 
Обеспечение отказоустойчивости туннелей [Для просмотра данной ссылки нужно зарегистрироваться] мной пару лет назад еще в ветке по VPN.

Artes1408 07.06.2014 11:30
Re: 2 VPN-туннеля между 2 Kerio Control
 
Вот код:
Код:
#include <File.au3>
#include <Constants.au3>
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 07.06.2014 12:19
Re: 2 VPN-туннеля между 2 Kerio Control
 
Artes1408, ух... дружище, если что то пойдет не так в момент выполнения скрипта - без файла hosts не останешься с такой конструкцией?

Artes1408 07.06.2014 12:23
Re: 2 VPN-туннеля между 2 Kerio Control
 
EnMan, ну у меня в нём кроме строчки, касающейся этой задачи ничего нет. А вообще - в скрипте одной строкой можно вписать предварительный бекап хостса при каждой замене.

EnMan 07.06.2014 12:24
Re: 2 VPN-туннеля между 2 Kerio Control
 
Уже если идти таким путем, то хоть воспользуйтесь [Для просмотра данной ссылки нужно зарегистрироваться]

Artes1408 07.06.2014 12:32
Re: 2 VPN-туннеля между 2 Kerio Control
 
Зачем, если с задачей справляется автоит? Та утилита, я так понимаю не сможет пропинговать ip и решить что дальше делать.


Часовой пояс GMT +4, время: 08:57.

Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd. Перевод: zCarot