mirror of
https://github.com/pothi/mikrotik-lte-scripts.git
synced 2025-06-20 21:35:46 +02:00
Migrate scripts from mikrotik-scripts repo and make further improvements for the first commit!
This commit is contained in:
Pothi Kalimuthu
parent
bd0215876c
commit
3d3ddb191b
7 changed files with 615 additions and 2 deletions
16
README.md
16
README.md
|
|
@ -1,2 +1,14 @@
|
|||
# mikrotik-lte-scripts
|
||||
Scripts for MikroTik LTE products.
|
||||
# MikroTik LTE Scripts
|
||||
|
||||
Scripts for MikroTik LTE products such as SXT LTE Kit. MikroTik LTE products with LTE modem have some unique features such as SMS. So, they require a bit different set of scripts for day-to-day tasks such as forwarding of an SMS to email, etc. Here are the scripts that I use.
|
||||
|
||||
#### More MikroTik scripts by me...
|
||||
|
||||
- [Generic MikroTik Scripts](https://github.com/pothi/mikrotik-scripts)
|
||||
- Coming soon (MikroTik hAP Scripts).
|
||||
- Coming soon (Mikrotik v7 scripts).
|
||||
- Coming soon (Mikrotik v7 changes).
|
||||
|
||||
# Contact
|
||||
|
||||
You may contact me by my first name (Github username) @riseup.net, @protonmail.com, @duck.com.
|
||||
|
|
|
|||
82
bootstrap-scripts/sxt-lte-bootstrap.rsc
Normal file
82
bootstrap-scripts/sxt-lte-bootstrap.rsc
Normal file
|
|
@ -0,0 +1,82 @@
|
|||
:global country "India";
|
||||
:global identity "Mikrotik";
|
||||
:global myPassword;
|
||||
|
||||
# override the default values here
|
||||
:set identity "SXT LTE Kit";
|
||||
:set myPassword [:pick ([/cert scep-server otp generate as-value minutes-valid=1]->"password") 0 20]
|
||||
:put "Your new password is..."
|
||||
:put $myPassword
|
||||
|
||||
# my subnet
|
||||
:global mySubnetCIDR "10.88.50.0/24";
|
||||
:global dhcpServerIP "10.88.50.1";
|
||||
:global dhcpPoolRange "10.88.50.88-10.88.50.100";
|
||||
:global dhcpName "my-dhcp";
|
||||
:global myBridgeAddress "10.88.50.1/24";
|
||||
|
||||
# SSH
|
||||
:global sshUserName "pothi";
|
||||
|
||||
### ------------------------------------------------------------------------------------ ###
|
||||
# Generic Tweaks #
|
||||
### ------------------------------------------------------------------------------------ ###
|
||||
|
||||
# Configure Identity
|
||||
/system identity set name=$identity
|
||||
|
||||
# Minor Tweaks
|
||||
/interface detect-internet
|
||||
set detect-interface-list=WAN
|
||||
set lan-interface-list=LAN
|
||||
set wan-interface-list=all
|
||||
set internet-interface-list=all
|
||||
|
||||
# Wireless tweaks
|
||||
|
||||
# install public SSH key
|
||||
:put "Importing SSH key..."
|
||||
{
|
||||
:local result [ /tool fetch https://launchpad.net/~pothi/+sshkeys dst-path=pothi-ssh-key-rsa as-value];
|
||||
:while ($result->"status" != "finished") do={ :delay 2s }
|
||||
}
|
||||
:delay 1s
|
||||
/user ssh-keys import public-key-file=pothi-ssh-key-rsa;
|
||||
:delay 1s
|
||||
/file remove pothi-ssh-key-rsa;
|
||||
:put "Done importing SSH key."
|
||||
|
||||
# Reduce disk activity
|
||||
/ip dhcp-server config set store-leases-disk=never;
|
||||
|
||||
# Configure NTP Client
|
||||
/system ntp client set primary-ntp=[ :resolve pool.ntp.org ];
|
||||
/system ntp client set secondary-ntp=[ :resolve time.cloudflare.com ];
|
||||
/system ntp client set enabled=yes;
|
||||
|
||||
### ------------------------------------------------------------------------------------ ###
|
||||
# Specific to LTE Products #
|
||||
### ------------------------------------------------------------------------------------ ###
|
||||
# SMS Receive capability
|
||||
/tool sms set auto-erase=yes receive-enabled=yes secret=0000 port=lte1;
|
||||
|
||||
:put "Changing the sim slot to 'b'."
|
||||
/system routerboard modem set sim-slot=b
|
||||
|
||||
# Change subnet
|
||||
#change static DNS entry for router.lan
|
||||
/ip dns static set numbers=[find name=router.lan] address=$dhcpServerIP;
|
||||
|
||||
/ip pool add name=$dhcpName ranges=$dhcpPoolRange;
|
||||
/ip dhcp-server network add address=$mySubnetCIDR gateway=$dhcpServerIP dns-server=$dhcpServerIP;
|
||||
/ip address add address=$myBridgeAddress interface=bridge;
|
||||
/ip dhcp-server set [find interface=bridge] address-pool=my-dhcp
|
||||
:put "Subnet changed."
|
||||
|
||||
:put "Removing old subnet."
|
||||
:put "This will make the current SSH session unresponsive."
|
||||
:put "Renew or release the IP in DHCP client in the router or disble & enable DHCP client to make everything work again."
|
||||
/ip pool remove default-dhcp;
|
||||
/ip dhcp-server network remove [find gateway=192.168.88.1];
|
||||
/ip address remove [find address="192.168.88.1/24"]
|
||||
|
||||
383
default-conf/sxt-lte-kit-v6.49.7.txt
Normal file
383
default-conf/sxt-lte-kit-v6.49.7.txt
Normal file
|
|
@ -0,0 +1,383 @@
|
|||
# nov/ 6/2022 9:41: 7 by RouterOS 6.49.7
|
||||
#
|
||||
script: #| Welcome to RouterOS!
|
||||
#| 1) Set a strong router password in the System > Users menu
|
||||
#| 2) Upgrade the software in the System > Packages menu
|
||||
#| 3) Enable firewall on untrusted networks
|
||||
#| -----------------------------------------------------------------------------
|
||||
#| CPE RouterMode:
|
||||
#| * wireless interface connected to providers network (WAN port);
|
||||
#| * WAN port is protected by firewall and enabled DHCP client
|
||||
#| LAN Configuration:
|
||||
#| IP address 192.168.88.1/24 is set on bridge (LAN port)
|
||||
#| DHCP Server: enabled;
|
||||
#| DNS: enabled;
|
||||
#| WAN (gateway) Configuration:
|
||||
#| gateway: lte1 ;
|
||||
#| ip4 firewall: enabled;
|
||||
#| ip6 firewall: enabled;
|
||||
#| NAT: enabled;
|
||||
#| Login
|
||||
#| admin user protected by password
|
||||
|
||||
:global defconfMode;
|
||||
:log info "Starting defconf script";
|
||||
#-------------------------------------------------------------------------------
|
||||
# Apply configuration.
|
||||
# these commands are executed after installation or configuration reset
|
||||
#-------------------------------------------------------------------------------
|
||||
:if ($action = "apply") do={
|
||||
# wait for interfaces
|
||||
:local count 0;
|
||||
:while ([/interface ethernet find] = "") do={
|
||||
:if ($count = 30) do={
|
||||
:log warning "DefConf: Unable to find ethernet interfaces";
|
||||
/quit;
|
||||
}
|
||||
:delay 1s; :set count ($count +1);
|
||||
};
|
||||
:local count 0;
|
||||
:while ([/interface lte find] = "") do={
|
||||
:set count ($count +1);
|
||||
:if ($count = 40) do={
|
||||
:log warning "DefConf: Unable to find LTE interface(s)";
|
||||
/ip address add address=192.168.88.1/24 interface=ether1 comment="defconf";
|
||||
/quit
|
||||
}
|
||||
:delay 1s;
|
||||
};
|
||||
/interface list add name=WAN comment="defconf"
|
||||
/interface list add name=LAN comment="defconf"
|
||||
/interface bridge
|
||||
add name=bridge disabled=no auto-mac=yes protocol-mode=rstp comment=defconf;
|
||||
:local bMACIsSet 0;
|
||||
:foreach k in=[/interface find where !(slave=yes || name="lte1" || name~"bridge")] do={
|
||||
:local tmpPortName [/interface get $k name];
|
||||
:if ($bMACIsSet = 0) do={
|
||||
:if ([/interface get $k type] = "ether") do={
|
||||
/interface bridge set "bridge" auto-mac=no admin-mac=[/interface get $tmpPortName mac-address];
|
||||
:set bMACIsSet 1;
|
||||
}
|
||||
}
|
||||
:if (([/interface get $k type] != "ppp-out") && ([/interface get $k type] != "lte")) do={
|
||||
/interface bridge port
|
||||
add bridge=bridge interface=$tmpPortName comment=defconf;
|
||||
}
|
||||
}
|
||||
/ip pool add name="default-dhcp" ranges=192.168.88.10-192.168.88.254;
|
||||
/ip dhcp-server
|
||||
add name=defconf address-pool="default-dhcp" interface=bridge lease-time=10m disabled=no;
|
||||
/ip dhcp-server network
|
||||
add address=192.168.88.0/24 gateway=192.168.88.1 dns-server=192.168.88.1 comment="defconf";
|
||||
/ip address add address=192.168.88.1/24 interface=bridge comment="defconf";
|
||||
/ip dns {
|
||||
set allow-remote-requests=yes
|
||||
static add name=router.lan address=192.168.88.1 comment=defconf
|
||||
}
|
||||
|
||||
/interface list member add list=LAN interface=bridge comment="defconf"
|
||||
/interface list member add list=WAN interface=lte1 comment="defconf"
|
||||
/ip firewall nat add chain=srcnat out-interface-list=WAN ipsec-policy=out,none action=masquerade comment="defconf: masquerade"
|
||||
/ip firewall {
|
||||
filter add chain=input action=accept connection-state=established,related,untracked comment="defconf: accept established,related,untracked"
|
||||
filter add chain=input action=drop connection-state=invalid comment="defconf: drop invalid"
|
||||
filter add chain=input action=accept protocol=icmp comment="defconf: accept ICMP"
|
||||
filter add chain=input action=accept dst-address=127.0.0.1 comment="defconf: accept to local loopback (for CAPsMAN)"
|
||||
filter add chain=input action=drop in-interface-list=!LAN comment="defconf: drop all not coming from LAN"
|
||||
filter add chain=forward action=accept ipsec-policy=in,ipsec comment="defconf: accept in ipsec policy"
|
||||
filter add chain=forward action=accept ipsec-policy=out,ipsec comment="defconf: accept out ipsec policy"
|
||||
filter add chain=forward action=fasttrack-connection connection-state=established,related comment="defconf: fasttrack"
|
||||
filter add chain=forward action=accept connection-state=established,related,untracked comment="defconf: accept established,related, untracked"
|
||||
filter add chain=forward action=drop connection-state=invalid comment="defconf: drop invalid"
|
||||
filter add chain=forward action=drop connection-state=new connection-nat-state=!dstnat in-interface-list=WAN comment="defconf: drop all from WAN not DSTNATed"
|
||||
}
|
||||
/ipv6 firewall {
|
||||
address-list add list=bad_ipv6 address=::/128 comment="defconf: unspecified address"
|
||||
address-list add list=bad_ipv6 address=::1 comment="defconf: lo"
|
||||
address-list add list=bad_ipv6 address=fec0::/10 comment="defconf: site-local"
|
||||
address-list add list=bad_ipv6 address=::ffff:0:0/96 comment="defconf: ipv4-mapped"
|
||||
address-list add list=bad_ipv6 address=::/96 comment="defconf: ipv4 compat"
|
||||
address-list add list=bad_ipv6 address=100::/64 comment="defconf: discard only "
|
||||
address-list add list=bad_ipv6 address=2001:db8::/32 comment="defconf: documentation"
|
||||
address-list add list=bad_ipv6 address=2001:10::/28 comment="defconf: ORCHID"
|
||||
address-list add list=bad_ipv6 address=3ffe::/16 comment="defconf: 6bone"
|
||||
filter add chain=input action=accept connection-state=established,related,untracked comment="defconf: accept established,related,untracked"
|
||||
filter add chain=input action=drop connection-state=invalid comment="defconf: drop invalid"
|
||||
filter add chain=input action=accept protocol=icmpv6 comment="defconf: accept ICMPv6"
|
||||
filter add chain=input action=accept protocol=udp port=33434-33534 comment="defconf: accept UDP traceroute"
|
||||
filter add chain=input action=accept protocol=udp dst-port=546 src-address=fe80::/10 comment="defconf: accept DHCPv6-Client prefix delegation."
|
||||
filter add chain=input action=accept protocol=udp dst-port=500,4500 comment="defconf: accept IKE"
|
||||
filter add chain=input action=accept protocol=ipsec-ah comment="defconf: accept ipsec AH"
|
||||
filter add chain=input action=accept protocol=ipsec-esp comment="defconf: accept ipsec ESP"
|
||||
filter add chain=input action=accept ipsec-policy=in,ipsec comment="defconf: accept all that matches ipsec policy"
|
||||
filter add chain=input action=drop in-interface-list=!LAN comment="defconf: drop everything else not coming from LAN"
|
||||
filter add chain=forward action=accept connection-state=established,related,untracked comment="defconf: accept established,related,untracked"
|
||||
filter add chain=forward action=drop connection-state=invalid comment="defconf: drop invalid"
|
||||
filter add chain=forward action=drop src-address-list=bad_ipv6 comment="defconf: drop packets with bad src ipv6"
|
||||
filter add chain=forward action=drop dst-address-list=bad_ipv6 comment="defconf: drop packets with bad dst ipv6"
|
||||
filter add chain=forward action=drop protocol=icmpv6 hop-limit=equal:1 comment="defconf: rfc4890 drop hop-limit=1"
|
||||
filter add chain=forward action=accept protocol=icmpv6 comment="defconf: accept ICMPv6"
|
||||
filter add chain=forward action=accept protocol=139 comment="defconf: accept HIP"
|
||||
filter add chain=forward action=accept protocol=udp dst-port=500,4500 comment="defconf: accept IKE"
|
||||
filter add chain=forward action=accept protocol=ipsec-ah comment="defconf: accept ipsec AH"
|
||||
filter add chain=forward action=accept protocol=ipsec-esp comment="defconf: accept ipsec ESP"
|
||||
filter add chain=forward action=accept ipsec-policy=in,ipsec comment="defconf: accept all that matches ipsec policy"
|
||||
filter add chain=forward action=drop in-interface-list=!LAN comment="defconf: drop everything else not coming from LAN"
|
||||
}
|
||||
/ip neighbor discovery-settings set discover-interface-list=LAN
|
||||
/tool mac-server set allowed-interface-list=LAN
|
||||
/tool mac-server mac-winbox set allowed-interface-list=LAN
|
||||
:if (!($defconfPassword = "" || $defconfPassword = nil)) do={
|
||||
/user set admin password=$defconfPassword
|
||||
}
|
||||
}
|
||||
#-------------------------------------------------------------------------------
|
||||
# Revert configuration.
|
||||
# these commands are executed if user requests to remove default configuration
|
||||
#-------------------------------------------------------------------------------
|
||||
:if ($action = "revert") do={
|
||||
/user set admin password=""
|
||||
/system routerboard mode-button set enabled=no
|
||||
/system routerboard mode-button set on-event=""
|
||||
/system script remove [find comment~"defconf"]
|
||||
/ip firewall filter remove [find comment~"defconf"]
|
||||
/ipv6 firewall filter remove [find comment~"defconf"]
|
||||
/ipv6 firewall address-list remove [find comment~"defconf"]
|
||||
/ip firewall nat remove [find comment~"defconf"]
|
||||
/interface list member remove [find comment~"defconf"]
|
||||
/interface detect-internet set detect-interface-list=none
|
||||
/interface detect-internet set lan-interface-list=none
|
||||
/interface detect-internet set wan-interface-list=none
|
||||
/interface detect-internet set internet-interface-list=none
|
||||
/interface list remove [find comment~"defconf"]
|
||||
/tool mac-server set allowed-interface-list=all
|
||||
/tool mac-server mac-winbox set allowed-interface-list=all
|
||||
/ip neighbor discovery-settings set discover-interface-list=!dynamic
|
||||
:local o [/ip dhcp-server network find comment="defconf"]
|
||||
:if ([:len $o] != 0) do={ /ip dhcp-server network remove $o }
|
||||
:local o [/ip dhcp-server find name="defconf" !disabled]
|
||||
:if ([:len $o] != 0) do={ /ip dhcp-server remove $o }
|
||||
/ip pool {
|
||||
:local o [find name="default-dhcp" ranges=192.168.88.10-192.168.88.254]
|
||||
:if ([:len $o] != 0) do={ remove $o }
|
||||
}
|
||||
:local o [/ip dhcp-client find comment="defconf"]
|
||||
:if ([:len $o] != 0) do={ /ip dhcp-client remove $o }
|
||||
/ip dns {
|
||||
set allow-remote-requests=no
|
||||
:local o [static find comment="defconf"]
|
||||
:if ([:len $o] != 0) do={ static remove $o }
|
||||
}
|
||||
/ip address {
|
||||
:local o [find comment="defconf"]
|
||||
:if ([:len $o] != 0) do={ remove $o }
|
||||
}
|
||||
:foreach iface in=[/interface ethernet find] do={
|
||||
/interface ethernet set $iface name=[get $iface default-name]
|
||||
}
|
||||
/interface bridge port remove [find comment="defconf"]
|
||||
/interface bridge remove [find comment="defconf"]
|
||||
/interface bonding remove [find comment="defconf"]
|
||||
}
|
||||
:log info Defconf_script_finished;
|
||||
:set defconfMode;
|
||||
|
||||
caps-mode-script: #-------------------------------------------------------------------------------
|
||||
# Note: script will not execute at all (will throw a syntax error) if
|
||||
# dhcp or wireless-fp packages are not installed
|
||||
#-------------------------------------------------------------------------------
|
||||
|
||||
#| CAP configuration
|
||||
#|
|
||||
#| Wireless interfaces are set to be managed by CAPsMAN.
|
||||
#| All ethernet interfaces and CAPsMAN managed interfaces are bridged.
|
||||
#| DHCP client is set on bridge interface.
|
||||
|
||||
# bridge port name
|
||||
:global brName "bridgeLocal";
|
||||
:global logPref "defconf:";
|
||||
|
||||
|
||||
:global action;
|
||||
|
||||
:log info $action
|
||||
|
||||
:if ($action = "apply") do={
|
||||
|
||||
# wait for ethernet interfaces
|
||||
:local count 0;
|
||||
:while ([/interface ethernet find] = "") do={
|
||||
:if ($count = 30) do={
|
||||
:log warning "DefConf: Unable to find ethernet interfaces";
|
||||
/quit;
|
||||
}
|
||||
:delay 1s; :set count ($count + 1);
|
||||
}
|
||||
|
||||
:local macSet 0;
|
||||
:local tmpMac "";
|
||||
|
||||
:foreach k in=[/interface ethernet find] do={
|
||||
# first ethernet is found; add bridge and set mac address of the ethernet port
|
||||
:if ($macSet = 0) do={
|
||||
:set tmpMac [/interface ethernet get $k mac-address];
|
||||
/interface bridge add name=$brName auto-mac=no admin-mac=$tmpMac comment="defconf";
|
||||
:set macSet 1;
|
||||
}
|
||||
# add bridge ports
|
||||
/interface bridge port add bridge=$brName interface=$k comment="defconf"
|
||||
}
|
||||
|
||||
# try to add dhcp client on bridge interface (may fail if already exist)
|
||||
:do {
|
||||
/ip dhcp-client add interface=$brName disabled=no comment="defconf"
|
||||
} on-error={ :log warning "$logPref unable to add dhcp client";}
|
||||
|
||||
|
||||
# try to configure caps (may fail if for example specified interfaces are missing)
|
||||
:local interfacesList "";
|
||||
:local bFirst 1;
|
||||
|
||||
# wait for wireless interfaces
|
||||
:while ([/interface wireless find] = "") do={
|
||||
:if ($count = 30) do={
|
||||
:log warning "DefConf: Unable to find wireless interfaces";
|
||||
/quit;
|
||||
}
|
||||
:delay 1s; :set count ($count + 1);
|
||||
}
|
||||
|
||||
# delay just to make sure that all wireless interfaces are loaded
|
||||
:delay 5s;
|
||||
:foreach i in=[/interface wireless find] do={
|
||||
if ($bFirst = 1) do={
|
||||
:set interfacesList [/interface wireless get $i name];
|
||||
:set bFirst 0;
|
||||
} else={
|
||||
:set interfacesList "$interfacesList,$[/interface wireless get $i name]";
|
||||
}
|
||||
}
|
||||
:do {
|
||||
/interface wireless cap
|
||||
set enabled=yes interfaces=$interfacesList discovery-interfaces=$brName bridge=$brName
|
||||
} on-error={ :log warning "$logPref unable to configure caps";}
|
||||
|
||||
}
|
||||
|
||||
:if ($action = "revert") do={
|
||||
:do {
|
||||
/interface wireless cap
|
||||
set enabled=no interfaces="" discovery-interfaces="" bridge=none
|
||||
} on-error={ :log warning "$logPref unable to unset caps";}
|
||||
|
||||
:local o [/ip dhcp-client find comment="defconf"]
|
||||
:if ([:len $o] != 0) do={ /ip dhcp-client remove $o }
|
||||
|
||||
/interface bridge port remove [find comment="defconf"]
|
||||
/interface bridge remove [find comment="defconf"]
|
||||
|
||||
}
|
||||
wps-sync-mode-script: #-------------------------------------------------------------------------------
|
||||
# Note: script will not execute at all (will throw a syntax error) if
|
||||
# dhcp or wireless-fp packages are not installed
|
||||
#-------------------------------------------------------------------------------
|
||||
|
||||
#| WPS Sync Configuration:
|
||||
#| * Wireless and ethernet interfaces bridged with enabled DHCP client
|
||||
#| * wlan1/2 access points and wlan3 wps sync repeater
|
||||
#| Wireless: CAP enabled on wlan1/2
|
||||
#| WPS Sync:
|
||||
#| mode: repeater;
|
||||
#| LAN Configuration:
|
||||
#| DHCP client: enabled;
|
||||
|
||||
|
||||
# bridge port name
|
||||
:global brName "bridgeLocal";
|
||||
:global logPref "defconf:";
|
||||
:global ssid;
|
||||
|
||||
:global action;
|
||||
|
||||
:log info $action
|
||||
|
||||
:if ($action = "apply") do={
|
||||
|
||||
# wait for ethernet interfaces
|
||||
:local count 0;
|
||||
:while ([/interface ethernet find] = "") do={
|
||||
:if ($count = 30) do={
|
||||
:log warning "DefConf: Unable to find ethernet interfaces";
|
||||
/quit;
|
||||
}
|
||||
:delay 1s; :set count ($count + 1);
|
||||
}
|
||||
|
||||
:local macSet 0;
|
||||
:local tmpMac "";
|
||||
|
||||
:foreach k in=[/interface ethernet find] do={
|
||||
# first ethernet is found; add bridge and set mac address of the ethernet port
|
||||
:if ($macSet = 0) do={
|
||||
:set tmpMac [/interface ethernet get $k mac-address];
|
||||
/interface bridge add name=$brName auto-mac=no admin-mac=$tmpMac comment="defconf";
|
||||
:set macSet 1;
|
||||
}
|
||||
# add bridge ports
|
||||
/interface bridge port add bridge=$brName interface=$k comment="defconf"
|
||||
}
|
||||
|
||||
# try to add dhcp client on bridge interface (may fail if already exist)
|
||||
:do {
|
||||
/ip dhcp-client add interface=$brName disabled=no comment="defconf"
|
||||
} on-error={ :log warning "$logPref unable to add dhcp client";}
|
||||
|
||||
|
||||
:local count 0;
|
||||
:while ([/interface wireless print count-only] < 3) do={
|
||||
:set count ($count +1);
|
||||
:if ($count = 40) do={
|
||||
:log warning "DefConf: Unable to find wireless interfaces";
|
||||
/ip address add address=192.168.88.1/24 interface=ether1 comment="defconf";
|
||||
/quit
|
||||
}
|
||||
:delay 1s;
|
||||
};
|
||||
|
||||
:foreach k in=[/interface wireless find] do={
|
||||
# add bridge ports
|
||||
/interface bridge port add bridge=$brName interface=$k comment="defconf"
|
||||
}
|
||||
|
||||
:local hwInfo [/interface wireless info hw-info [.. find where default-name="wlan3"] as-value];
|
||||
#:if (($hwInfo->"locked-countries")~"russia") do={
|
||||
/interface wireless set [find where default-name="wlan3"] channel-width=20/40mhz-XX band=5ghz-a/n/ac
|
||||
#} else={
|
||||
# /interface wireless set [find where default-name="wlan3"] channel-width=20/40/80mhz-XXXX band=5ghz-a/n/ac
|
||||
#}
|
||||
|
||||
/interface wireless cap
|
||||
set discovery-interfaces=bridgeLocal enabled=yes interfaces=wlan1,wlan2
|
||||
/interface wireless
|
||||
setup-repeater wlan3 duration=2m
|
||||
}
|
||||
|
||||
:if ($action = "revert") do={
|
||||
:local o [/ip dhcp-client find comment="defconf"]
|
||||
:if ([:len $o] != 0) do={ /ip dhcp-client remove $o }
|
||||
|
||||
/interface bridge port remove [find comment="defconf"]
|
||||
/interface bridge remove [find comment="defconf"]
|
||||
|
||||
/interface wireless cap set enabled=no interfaces="" discovery-interfaces=""
|
||||
/interface wireless reset-configuration wlan1
|
||||
/interface wireless reset-configuration wlan2
|
||||
/interface wireless reset-configuration wlan3
|
||||
|
||||
|
||||
}
|
||||
|
||||
:set brName;
|
||||
:set logPref;
|
||||
:set ssid;
|
||||
custom-script:
|
||||
29
scripts/firmware-check-lte.rsc
Normal file
29
scripts/firmware-check-lte.rsc
Normal file
|
|
@ -0,0 +1,29 @@
|
|||
# Alert upon new firmware for LTE Modem
|
||||
|
||||
# Ref: https://wiki.mikrotik.com/wiki/Manual:Interface/LTE#Modem_firmware_upgrade
|
||||
|
||||
# requirement/s:
|
||||
# policy: read, write, policy, test
|
||||
# active internet
|
||||
# $adminEmail
|
||||
|
||||
:global adminEmail
|
||||
:if ([:typeof $adminEmail] = "nothing" || $adminEmail = "") do={ :log error "adminEmail is not defined or nil."; :error "Error: Check the log"; }
|
||||
|
||||
:log info "\nChecking for new firmware for LTE Modem..."
|
||||
|
||||
:local lteFirmwareInfo [/interface lte firmware-upgrade lte1 as-value];
|
||||
|
||||
:local lteInstalledVer ($lteFirmwareInfo->"installed");
|
||||
:local lteLatestVer ($lteFirmwareInfo->"latest");
|
||||
|
||||
:if ( $lteInstalledVer != $lteLatestVer ) do={
|
||||
/tool e-mail send to="$adminEmail" subject="A new FIRMWARE update is available for (SXT) LTE." \
|
||||
body=" LTE Installed Firmware Version: $lteInstalledVer
|
||||
LTE Latest Firmware Version: $lteLatestVer"
|
||||
:log info "A new firmware is available for LTE modem and an email is sent to '$adminEmail'."
|
||||
} else={
|
||||
:log info "No new firmware update for LTE."
|
||||
:log info "LTE Installed Firmware Ver: $lteInstalledVer"
|
||||
:log info " LTE Latest Firmware Ver: $lteLatestVer"
|
||||
}
|
||||
40
scripts/sim-toggle.rsc
Normal file
40
scripts/sim-toggle.rsc
Normal file
|
|
@ -0,0 +1,40 @@
|
|||
# Toggle SIM Slot in LTE Modem.
|
||||
|
||||
# Applicable for RouterOS above 6.45.1
|
||||
# see https://wiki.mikrotik.com/wiki/Dual_SIM_Application#Initial_settings
|
||||
# see https://forum.mikrotik.com/viewtopic.php?f=13&t=159520&p=816964#p816964
|
||||
|
||||
:log info "\nSIM toggled by the script..."
|
||||
|
||||
/system routerboard modem
|
||||
|
||||
:local oldSlot [get sim-slot]
|
||||
:local newSlot
|
||||
:local oldOperator
|
||||
:local newOperator
|
||||
|
||||
:if ( $oldSlot = "a" ) do={
|
||||
:set $newSlot "b"
|
||||
:set $oldOperator "BSNL"
|
||||
:set $newOperator "Airtel"
|
||||
} else={
|
||||
:set $newSlot "a"
|
||||
:set $oldOperator "Airtel"
|
||||
:set $newOperator "BSNL"
|
||||
}
|
||||
|
||||
set sim-slot=$newSlot
|
||||
|
||||
# Speed restrictions enable / disable
|
||||
:if ( $newOperator = "Airtel" ) do={
|
||||
/queue simple enable Airtel
|
||||
/ip firewall filter disable [find action=fasttrack-connection]
|
||||
} else={
|
||||
/queue simple disable Airtel
|
||||
/ip firewall filter enable [find action=fasttrack-connection]
|
||||
}
|
||||
|
||||
:log warning "LTE SIM SLOT will change from $oldSlot to $newSlot";
|
||||
:log warning "LTE SIM SLOT will change from $oldOperator to $newOperator";
|
||||
:log info "Please hold on while switching SIM. Internet will come back in a few seconds."
|
||||
:delay 2s
|
||||
33
scripts/sms-to-email.rsc
Normal file
33
scripts/sms-to-email.rsc
Normal file
|
|
@ -0,0 +1,33 @@
|
|||
# SMS to Email
|
||||
|
||||
# Source: https://forum.mikrotik.com/viewtopic.php?f=9&t=61068#p312202
|
||||
|
||||
# Note: The SMS is removed from the inbox after sent by Email and forwarded
|
||||
# even if email and forward fail! So, test it often!
|
||||
|
||||
:global adminEmail
|
||||
:if ([:typeof $adminEmail] = "nothing" || $adminEmail = "") do={ :log error "adminEmail is not defined or nil."; :error "Error: Check the log"; }
|
||||
|
||||
:local smsPhone
|
||||
:local smsMessage
|
||||
:local smsTimeStamp
|
||||
|
||||
/tool sms inbox
|
||||
|
||||
:foreach receivedSMS in=[find] do={
|
||||
:set smsPhone [get $receivedSMS phone]
|
||||
:set smsMessage [get $receivedSMS message]
|
||||
:set smsTimeStamp [get $receivedSMS timestamp]
|
||||
|
||||
:log info "\nSMS Received From: $smsPhone on $smsTimeStamp Message: $smsMessage"
|
||||
|
||||
# Send Email to $adminEmail
|
||||
:do {
|
||||
/tool e-mail send to="$adminEmail" body="$smsMessage" \
|
||||
subject="SMS from $smsPhone at $smsTimeStamp"
|
||||
} on-error={ :log error "SMS to Email Failed." }
|
||||
:delay 3s
|
||||
|
||||
# Let's remove the SMS!
|
||||
remove $receivedSMS
|
||||
}
|
||||
34
scripts/sms-to-sms.rsc
Normal file
34
scripts/sms-to-sms.rsc
Normal file
|
|
@ -0,0 +1,34 @@
|
|||
# SMS to SMS
|
||||
|
||||
# Limitation: It doesn't forward the full SMS message. It forwards the actual message, but doesn't forward the senderPhoneNumber or timestamp of received SMS. So, it doesn't remove the SMS and the SMS is removed only by the other script (sms-to-email).
|
||||
|
||||
# Source: https://forum.mikrotik.com/viewtopic.php?f=9&t=61068#p312202
|
||||
|
||||
:global adminPh
|
||||
:if ([:typeof $adminEmail] = "nothing" || $adminEmail = "") do={ :log error "adminEmail is not defined or nil."; :error "Error: Check the log"; }
|
||||
:local smsForwardPh $adminPh
|
||||
:if ([:typeof $adminPh] = "nothing" || $adminPh = "") do={ :log error "adminPh is not defined or nil."; :error "Error: Check the log"; }
|
||||
|
||||
:local smsPhone
|
||||
:local smsMessage
|
||||
:local smsTimeStamp
|
||||
|
||||
/tool sms inbox
|
||||
|
||||
:foreach receivedSMS in=[find] do={
|
||||
:set smsPhone [get $receivedSMS phone]
|
||||
:set smsMessage [get $receivedSMS message]
|
||||
:set smsTimeStamp [get $receivedSMS timestamp]
|
||||
|
||||
:log info "\nSMS Received From: $smsPhone on $smsTimeStamp Message: $smsMessage"
|
||||
|
||||
# Forward the SMS to $smsForwardPh, without $smsPhone and smsTimeStamp
|
||||
:do {
|
||||
/tool sms send lte1 phone-number=$smsForwardPh message=$smsMessage
|
||||
} on-error={ :log error "SMS to SMS Failed." }
|
||||
:delay 2s
|
||||
|
||||
# *** Let's NOT remove the SMS! ***
|
||||
# Let the other script (SMS to Email) remove it, after sending the message with *full details*.
|
||||
# remove $receivedSMS
|
||||
}
|
||||
Loading…
Add table
Add a link
Reference in a new issue