Russian Users MikroTik | Форум пользователей MikroTik

Код: Выделить всё

{{... /interface monitor-traffic [/interface find name=$ifName] once do={
{{{...                                                                   
bonding          ethernet     l2tp-server  ovpn-client  pppoe-client  sstp-client       vlan      blink    enable           print         
bridge           gre          list         ovpn-server  pppoe-server  sstp-server       vpls      comment  export           reset-counters
detect-internet  ipip         lte          ppp-client   pptp-client   traffic-eng       vrrp      disable  find             set           
eoip             l2tp-client  mesh         ppp-server   pptp-server   virtual-ethernet  wireless  edit     monitor-traffic  
{{{... :global wanTrafTx (tx-bits-per-second / 1024);
{{{... }                                             
{{... /interface monitor-traffic [/interface find name=$ifName] once do={
{{{...                                                                   
bonding          ethernet     l2tp-server  ovpn-client  pppoe-client  sstp-client       vlan      blink    enable           print         
bridge           gre          list         ovpn-server  pppoe-server  sstp-server       vpls      comment  export           reset-counters
detect-internet  ipip         lte          ppp-client   pptp-client   traffic-eng       vrrp      disable  find             set           
eoip             l2tp-client  mesh         ppp-server   pptp-server   virtual-ethernet  wireless  edit     monitor-traffic  
{{{... :global wanTrafRx (rx-bits-per-second / 1024);

Код: Выделить всё

:global mailAddrTo "yourmail@dom.ru";:global mailAddrCopy "yourbackupmail@dom2.com";:global sec 3;:local cnt 10;:local cntOkRes 1;:local host1 ya.ru;:local host2 8.8.
8.8;:global cpu100 0;for x1 from=1 to=$sec do={:if ( [/system resource get cpu-load]="1")  do={   :global cpu100 ($cpu100+1);};:delay 1;};:if ( $cpu100 = $sec )  do={/tool e-mail send to=$mailAddrTo cc=
$mailAddrCopy body="Within $sec seconds, CPU load on Mikrotik was 100%. Mikrotik will be restarted!" subject="$[/system identity get name]. Mikrotik CPU load was 100% on $[/system clock get time] $[/sys
tem clock get date]";:delay 20;/system reboot;};if ([/ip route find where dst-address=0.0.0.0/0]  = "") do={:log warning "No default gateway! USB port will be power cycled!";/system routerboard usb powe
r-reset duration=5s;:delay 25;};:local defGw [/ip route get [/ip route find where dst-address=0.0.0.0/0] gateway];:global ifName [/ip address get [/ip address find where network=$defGw] interface];:glob
al wanTrafTx "0";:global wanTrafTxRes "0";:global wanTrafRx "0";:global wanTrafRxRes "0";for x from=1 to=5 do={/interface monitor-traffic [/interface find name=$ifName] once do={   :global wanTrafTx (tx
-bits-per-second / 1024);};/interface monitor-traffic [/interface find name=$ifName] once do={   :global wanTrafRx (rx-bits-per-second / 1024);};if ($wanTrafTx > $wanTrafTxRes) do={   :global wanTrafTxR
es $wanTrafTx;};if ($wanTrafRx > $wanTrafRxRes) do={   :global wanTrafRxRes $wanTrafRx;};:delay 1;};if ($wanTrafTxRes < 30000 and $wanTrafRxRes < 30000) do={:local cntRes1 [/ping count=$cnt $host1];:loc
al cntRes2 [/ping count=$cnt $host2];if ($cntRes1 < $cntOkRes and $cntRes2 < $cntOkRes) do={      :local logmsg ("Internet connection fail! \n\nCPU Load: ".[/system resource get cpu-load]."% \nWAN speed
 RX: ".[:tonum $wanTrafRxRes]." kbit/s \nWAN speed TX: ".[:tonum $wanTrafTxRes]." kbit/s \nHost - ".[:tostr $host1]." lost ".[:tonum $cnt] - [:tonum $cntRes1]." packets of ".[:tostr $cnt]." \nHost - ".[
:tostr $host2]." lost ".[:tonum $cnt] - [:tonum $cntRes2]." packets of ".[:tostr $cnt]."\n");      :log info $logmsg;      /interface ppp-client disable [/interface ppp-client find name=$ifName];      :
delay 10;       execute "/system script run \"modemStatus\"";      :delay 5s;      :global modemStatus;      /interface ppp-client enable [/interface ppp-client find name=$ifName];      :delay 20;      
/tool e-mail send to=$mailAddrTo cc=$mailAddrCopy body="$logmsg$modemStatus" subject="$[/system identity get name]. Internet connection fails! $[/system clock get time] $[/system clock get date]"   }};