Полезные скрипты

В таком случае воспользуйся редактором скриптов CLI (внутри RouterOS) и редактируй скрипт там. Большинство изменений в синтаксисе можно будет заметить именно там. Нажми F5, чтобы обновить подсветку.

Все версии имеют этот редактор? Где он находится? Спасибо.

Не знаю, куда бы это запостить, но, пожалуй, это лучшее место для этого. По сути, что делает скрипт: он проверяет динамические аренды на моём DHCP-сервере, берёт их MAC-адреса и сверяет их с фильтром фаервола. Если MAC нет в фильтре — добавляет его и блокирует весь трафик с этих адресов. Я использую это, чтобы не давать пользователям халявно пользоваться моим интернетом, особенно когда им от знакомых достаётся мой Wi-Fi ключ.

Ниже скрипт, протестированный на версии 2.9.x:

:foreach i in=[/ip dhcp-server lease find dynamic=yes] do={
  :set dynamicMAC [/ip dhcp-server lease get $i mac-address];
  :set dynamicHOST [/ip dhcp-server lease get $i host-name];
  :set macfound [/ip firewall filter find src-mac-address=$dynamicMAC];

   :if ($macfound != "") do={
       :log info ($dynamicMAC. " уже в фильтре")
   } else= {
       /ip firewall filter add chain=forward src-mac-address=$dynamicMAC action=drop comment=($dynamicHOST . " - " . $dynamicMAC . " Незарегистрированное устройство")
       :log info ("Добавил " . $dynamicMAC. " в фильтр фаервола")
   }
}

Ниже код, проверенный на версии 5.19:

:foreach i in=[/ip dhcp-server lease find dynamic] do={
  :local dynamicMAC [/ip dhcp-server lease get $i mac-address];
  :local dynamicHOST [/ip dhcp-server lease get $i host-name];
  :local macfound [/ip firewall filter find src-mac-address=$dynamicMAC];

   :if ($macfound != "") do={
       :log info ($dynamicMAC. " уже в фильтре")
   } else= {
       /ip firewall filter add chain=forward src-mac-address=$dynamicMAC action=drop comment=($dynamicHOST . " - " . $dynamicMAC . " Незарегистрированное устройство")
       :log info ("Добавил " . $dynamicMAC. " в фильтр фаервола")
   }
}

Удачи!

Спасибо, Janisk, за хорошую информацию. Твой пост мне очень помог.

Я открываю новую тему для своего скрипта: Как действительно заблокировать неверные TCP и UDP пакеты http://forum.mikrotik.com/t/for-isp-how-to-really-block-invalid-icmp-tcp-udp-packets-and-others-ver-2021/75627/1

Где и как можно задать список зарегистрированных пользователей?

Скрипт для загрузки актуального списка адресов в черный список, чтобы блокировать известные ботнеты, спамеров, мошенников и серверы управления и контроля (C&C). http://forum.mikrotik.com/t/blacklist-filter-update-script/89817/1

Только что добавил скрипт для ограничения данных в Hotspot http://forum.mikrotik.com/t/hotspot-data-limits/90475/1. Устанавливает лимит данных при входе — не требует постоянного мониторинга скриптом — и отключает пользователя, когда данные исчерпаны.

Ищу способ отредактировать мой скрипт отчёта по напряжению. Сейчас он настроен на отправку письма с отчётом ежедневно в 23:00, хочу изменить на 8:00, но при этом получаю отрицательные значения часов, например -1, -2, -3 и так далее. Я сделал две правки и посмотрю, что будет завтра, но если кто-то знает простой способ исправить — дайте знать. Ниже скрипт, который я использовал с сайта (два скрипта). Я не очень разбираюсь в скриптах, но стараюсь разобраться, просто хочу получать отчёты в 8 утра вместо 11 вечера. В строке ниже изменил 23 - $x на 08 + $x в надежде получить положительные числа:

global highvolt  
global lowvolt  
global hivolttime  
global lovolttime  
global starttime  
global vh  
local tvolt  
local thisbox [/system identity get name]
local thisdate [/system clock get date]
local thishour  
local emessage “Ежедневный отчёт по напряжению для $thisbox за $thisdate\n\n”  
if ([:len $vh] > 0) do={
 for x from=0 to=([:len $vh]-1) step=1 do={
   set tvolt [:tostr [:pick $vh $x]]
   set thishour [:tostr (08 + $x)]
   while ([:len $thishour] < 2) do={set thishour (“0” . $thishour)}
   set emessage ($emessage . $thishour . ":00 = " . [:pick $tvolt 0 2] . “.” . [:pick $tvolt 2 3] . “\n”)
 }  
 set emessage ($emessage . "\nС момента запуска VoltMonitor " . $starttime . “\n”)  
 set tvolt [:tostr $highvolt]
 set emessage ($emessage . "Максимум = " . [:pick $tvolt 0 2] . “.” . [:pick $tvolt 2 3] . " В в " . $hivolttime . “\n”)
 set tvolt [:tostr $lowvolt]
 set emessage ($emessage . "Минимум = " . [:pick $tvolt 0 2] . “.” . [:pick $tvolt 2 3] . " В в " . $lovolttime . “\n”)
 set email address in next line /tool e-mail send to=“myemail” subject=“$thisbox Voltage Report” body=$emessage  
}  
remark out the next line for testing to avoid resetting the voltage array :set vh  

##########################################################################  
Volt monitor script — я изменил строку ниже, чтобы запускать отчёт не в 23 часа, а в 8 утра  
#set lowvoltalarm значение тревоги по напряжению в десятых частей вольта. 118 = 11.8v  
# +015 это компенсация для реального напряжения.  
global lowvoltalarm 225  
global highvolt  
global lowvolt  
global starttime  
global hivolttime  
global lovolttime  
global vh  
local thisbox [/system identity get name]
global voltage ([/system health get voltage] + 015)
local thistime [/system clock get time]
local thisdate [/system clock get date]
local thishour [:pick $thistime 0 2]
local emessage ($thisbox . " напряжение " . [:pick $voltage 0 2] . “.” . [:pick $voltage 2 3])
if ([:len $lowvolt] < 1) do={set lowvolt 999; set highvolt 0}
if ($voltage <= $lowvoltalarm) do={/tool e-mail send to=“mycelltext” subject=“$thisbox низкое напряжение” body=$emessage}  
if ($voltage <= $lowvoltalarm) do={/tool e-mail send to=“hiscelltext” subject=“$thisbox низкое напряжение” body=$emessage}  
if ($voltage > $highvolt) do={set highvolt $voltage; set hivolttime ($thistime . " " . $thisdate)}  
if ($voltage < $lowvolt) do={set lowvolt $voltage; set lovolttime ($thistime . " " . $thisdate)}  
if ([:len $vh] > 0) do={set vh ([:toarray $voltage] + $vh)} else={set vh [:toarray $voltage]}
if ([:len $starttime] < 1) do={set starttime ($thistime . " " . $thisdate)}
if ($thishour = “08”) do={execute voltreport}