mirror.MikroTik/laspavel.mikrotik-scripts
1
0
Fork 0
mirror of https://github.com/laspavel/mikrotik-scripts.git synced 2025-06-22 22:23:33 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Update vpnscript.rsc

Browse source
This commit is contained in:
laspavel 2023-05-13 10:14:52 +03:00
parent 5ff06a163b
commit 50c4df53db
1 changed files with 17 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

30
vpnscript.rsc
View file

@ -1,13 +1,17 @@
:global vpnhosts { "at.vpnunlimitedapp.com"; "be.vpnunlimitedapp.com"; "bg.vpnunlimitedapp.com"; "by.vpnunlimitedapp.com"; "cy.vpnunlimitedapp.com"; "cz.vpnunlimitedapp.com"; "dk.vpnunlimitedapp.com"; "ee.vpnunlimitedapp.com"; "de.vpnunlimitedapp.com"; "de-dus.vpnunlimitedapp.com"; "gr.vpnunlimitedapp.com"; "hu.vpnunlimitedapp.com"; "hr.vpnunlimitedapp.com"; "lv.vpnunlimitedapp.com"; "md.vpnunlimitedapp.com"; "nl.vpnunlimitedapp.com"; "pl.vpnunlimitedapp.com"; "ro.vpnunlimitedapp.com"; "si.vpnunlimitedapp.com"; "ch.vpnunlimitedapp.com"; "tr.vpnunlimitedapp.com" } :do {
:global randnum [:tostr ([/tool fetch mode=https http-method=get url="https://www.random.org/integers/\?num=1&min=1&max=21&col=1&base=10&format=plain&rnd=new" as-value output=user ]->"data")] :global vpnhosts "at.vpnunlimitedapp.com,be.vpnunlimitedapp.com,bg.vpnunlimitedapp.com,cy.vpnunlimitedapp.com,cz.vpnunlimitedapp.com,dk.vpnunlimitedapp.com,ee.vpnunlimitedapp.com,de.vpnunlimitedapp.com,de-dus.vpnunlimitedapp.com,gr.vpnunlimitedapp.com,hu.vpnunlimitedapp.com,hr.vpnunlimitedapp.com,lv.vpnunlimitedapp.com,md.vpnunlimitedapp.com,nl.vpnunlimitedapp.com,pl.vpnunlimitedapp.com,ro.vpnunlimitedapp.com,si.vpnunlimitedapp.com,ch.vpnunlimitedapp.com,tr.vpnunlimitedapp.com";
:global idxx [:tonum [:pick $randnum 0 [:find $randnum " "]]]; :global randnum [:put [:rndnum from=0 to=19]];
:global vpnhost [:pick $vpnhosts $idxx ]; :global vpnhost [:pick [:toarray $vpnhosts] $randnum ];
/interface l2tp-client disable VPN1
/interface l2tp-client set [find Name=VPN1] connect-to=$vpnhost /ip firewall connection remove [/ip firewall connection find protocol=udp]
/interface l2tp-client enable VPN1 /ip firewall connection remove [/ip firewall connection find protocol=tcp]
beep length=300ms;
:set randnum /interface l2tp-client disable VPN1;
:set idxx /interface l2tp-client set [find Name=VPN1] connect-to=$vpnhost;
:set vpnhosts /interface l2tp-client enable VPN1;
:set vpnhost
:log info "*** Interface l2tp-client modified ***" :log info "*** Interface l2tp-client modified ***";
} on-error={
/log error "********** VPNSCRIPT finished with error *********";
}