Changes between Version 4 and Version 5 of Mikrotikvpn

Timestamp:

03/02/21 10:08:23 (4 years ago)

Author:

krit

Comment:

--

Mikrotikvpn

@@ -24 +24 @@
 {{{
 #!sh
- 5   name="http_get_5" owner="admin" policy=ftp,reboot,read,write,policy,test,password,sniff,sensitive,romon 
-     dont-require-permissions=no last-started=feb/27/2021 00:36:10 run-count=10 source=
+[admin@G02] /system script> print 
+Flags: I - invalid 
+ 0   name="http_getvpn" owner="admin" policy=ftp,reboot,read,write,policy,test,password,sniff,sensitive,romon 
+     dont-require-permissions=no last-started=mar/02/2021 17:06:04 run-count=20 source=
        {
-             :local serialnum [/system routerboard get serial-number];
-             :put $serialnum;
-             :local result [/tool fetch url="http://192.168.5.1/~krit/Tmp/$serialnum/out2.txt" as-value output=user];
-             :put $result;
-             :local msg ($result->"data");
-             :put "---msg---";
-             :put $msg;
-             :put "---msg 3 --";
-             :local myArray [:toarray [:pick $msg ([:find $msg ":"]) [:len $msg]]];
-             :local ipaddr [:pick $myArray 0];
-             :local uname [:pick $myArray 1];
-             :local passwd [:pick $myArray 2];
-             :local conn [:pick $myArray 3];
-             :put "ip: $ipaddr";
-             :put "user: $uname";
-             :put "passwd: $passwd";
-             :put "connect: $conn"; 
-             :put "------------";
-             :local serialnum [/system routerboard get serial-number];
-             :put $serialnum;
-             :if ($result->"status" = "finished") do={                                            
-                :if ( $conn = "0" ) do={
-                    :log info "value is $conn disable l2tp-out1 for user $uname";      
-                    :put "value is $conn disable l2tp-out1 for user $uname";
-                    /interface l2tp-client disable l2tp-out1; 
-                } else={             
-                    :put "edit user: $uname in l2tp";
-                    :log info "edit user: $uname in l2tp";
-                    /interface l2tp-client set connect-to=$ipaddr l2tp-out1;
-                    /interface l2tp-client set user=$uname l2tp-out1; 
-                    /interface l2tp-client set password=$passwd l2tp-out1;
-                    /interface l2tp-client enable l2tp-out1;
-                 }
-              }                        
+                    :local serialnum [/system routerboard get serial-number];
+                    :put $serialnum;
+                    :local result [/tool fetch url="http://trueiot.io/~pong/SF19/G02/cmd.txt" as-value output=user];
+                    :put $result;
+                    :local msg ($result->"data");
+                    :put "---msg---";
+                    :put $msg;
+                    :put "---msg 3 --";
+                    :local myArray [:toarray [:pick $msg ([:find $msg ":"]) [:len $msg]]];
+                    :local ipaddr [:pick $myArray 0];
+                    :local uname [:pick $myArray 1];
+                    :local passwd [:pick $myArray 2];
+                    :local conn [:pick $myArray 3];
+                    :put "ip: $ipaddr";
+                    :put "user: $uname";
+                    :put "passwd: $passwd";
+                    :put "connect: $conn"; 
+                    :put "------------";
+                    :local serialnum [/system routerboard get serial-number];
+                    :put $serialnum;
+                    :if ($result->"status" = "finished") do={                                            
+                       :if ( $conn = "0" ) do={
+                           :log info "value is $conn disable l2tp-out1 for user $uname";      
+                           :put "value is $conn disable l2tp-out1 for user $uname";
+                           /interface l2tp-client disable l2tp-out1; 
+                       } else={             
+                           :if ( [/ping 10.50.30.254 count=3 size=64 interval=2s]=0 ) do={
+                             :log error "----VPN didn't connect";
+                             :put "edit user: $uname in l2tp";
+                             :log info "edit user: $uname in l2tp";
+                             /interface l2tp-client set connect-to=$ipaddr l2tp-out1;
+                             /interface l2tp-client set user=$uname l2tp-out1; 
+                             /interface l2tp-client set password=$passwd l2tp-out1;
+                             /interface l2tp-client enable l2tp-out1;
+                           } else={
+                             :log info "----VPN already connect";
+                           }
+                        }
+                     }                        
        } 
+
+ 1   name="script_reboot" owner="admin" policy=ftp,reboot,read,write,policy,test,password,sniff,sensitive,romon 
+     dont-require-permissions=no run-count=0 source=
+       :if ([/ping 8.8.8.8 count=3 size=64 interval=2s]=0) do={
+           :log error "LTE DOWN";
+           /system reboot;
+       } else={
+           :log info "LTE OK";
+       }
+
+ 2   name="check_internet" owner="admin" policy=ftp,reboot,read,write,policy,test,password,sniff,sensitive,romon 
+     dont-require-permissions=no run-count=0 source=
+       :if ([/ping 8.8.8.8 count=3 size=64 interval=2s]=0) do={
+              :log error "----Internet DOWN";
+              /interface lte set numbers=lte1 disabled=yes;
+              /system routerboard usb power-reset duration=1;
+              :log info "---Power USB DOWN ---";
+              /delay 40s;
+              /interface lte set numbers=lte1 disabled=no;
+              :log info "---Enable lte1 ";
+       } else={
+              :log info "----Internet OK";
+       }   
+
 
 [admin@MikroTik] >