Скрипт переподключения к VPN серевру

Здесь выкладываем скрипты
Правила форума
Уважаемые Пользователи форума, обратите внимание!
Ни при каких обстоятельствах, Администрация форума, не несёт ответственности за какой-либо, прямой или косвенный, ущерб причиненный в результате использования материалов, взятых на этом Сайте или на любом другом сайте, на который имеется гиперссылка с данного Сайта. Возникновение неисправностей, потерю программ или данных в Ваших устройствах, даже если Администрация будет явно поставлена в известность о возможности такого ущерба.
Просим Вас быть предельно осторожными и внимательными, в использовании материалов раздела. Учитывать не только Ваши пожелания, но и границы возможностей вашего оборудования.
Ответить
wolf_ktl
Сообщения: 417
Зарегистрирован: 25 июн 2013, 18:12

1
Последний раз редактировалось wolf_ktl 30 май 2014, 12:10, всего редактировалось 1 раз.


wolf_ktl
Сообщения: 417
Зарегистрирован: 25 июн 2013, 18:12

wolf_ktl писал(а):Скрипт переподключения к VPN серверу у которого нет внешнего постоянного IP ну или есть.

Скрипт пингует по двум ip сервер и выбирает лучший из них
Скрипт можно запускать хоть каждую минуту

dnsname1 - доменное имя для первого канала интернета
dnsname2 - доменное имя для второго канала интернета

 "reconnect pin vpn client script v 2.0 aka Wolf_KTL 2014"
# reconnect pin vpn client script v 2.0
# aka Wolf[KTL] 2014

:local PingCount 3
/ip dns cache flush
#google dns
:local dnsname1 "*****"
:local dnsname2 "******"

:local PingTarget1 [:resolve $dnsname1];
:local PingTarget2 [:resolve $dnsname2];

log info "*********** START VPN CLIENT SCRIPT ************** "
:local PingResult1 [/ping $PingTarget1 count=$PingCount]
:local PingResult2 [/ping $PingTarget2 count=$PingCount]
log info "Rusul ping"
log info "good packet $dnsname1 $PingResult1 "
log info "good packet $dnsname2 $PingResult2 "
:local tempip [/interface l2tp-client get [/interface l2tp-client find name="l2tp-office"] connect-to];
:log info "Tekushiy VPN $tempip";

#Esli pingi pervovo lus4she 4em vtorovo
:if ($PingResult1>$PingResult2) do={
log info "The Best $dnsname1"

:if ($PingTarget1 != $tempip) do={

:log info "Menyaem IP adress server VPN"
:log info "$dnsname1 $PingTarget1"
/int l2tp-client set l2tp-office connect-to=$PingTarget1
} else {
:log info "Menyat IP adress server VPN ne nado"
}
}

#Esli pingi ravni
:if ($PingResult1=$PingResult2) do={
log info "The Best $dnsname1"

:if ($PingTarget1 != $tempip) do={
:log info "Menyaem IP adress server VPN"
:log info "$dnsname1 $PingTarget1"
/int l2tp-client set l2tp-office connect-to=$PingTarget1
} else {
:log info "Menyat IP adress server VPN ne nado"
}

}


#Esli pingi vtorovo lus4she 4em pervogo
:if ($PingResult1<$PingResult2) do={
log info "The Best $dnsname2"
:if ($PingTarget2 != $tempip) do={
:log info "Menyaem IP adress server VPN"
:log info "$dnsname2 $PingTarget2"
/int l2tp-client set l2tp-office connect-to=$PingTarget2

} else {
:log info "Menyat IP adress server VPN ne nado"
}
}
log info "*** End script VPN CLIENT SCRIPT *****"



Ответить