Mikrotik.moscow [тема: Статистика пула IP-адресов]

Mikrotik.moscow [тема: Статистика пула IP-адресов] http://mikrotik.moscow Новое в теме Статистика пула IP-адресов форума RouterOS на сайте Mikrotik.moscow [mikrotik.moscow] ru http://backend.userland.com/rss2 Sat, 01 Aug 2026 06:50:12 -0400 Статистика пула IP-адресов Статистика пула IP-адресов RouterOS в форуме RouterOS.
Этот скрипт, вероятно, был написан задолго до того, как в RouterOS появилась прямая поддержка подсетевой арифметики. Если у вас версия 6 или 7, то он должен работать. Замените это:

# Преобразование в массив октетов (замена '.' на ',')
:for x from=0 to=([:len [:tostr $minaddress]] - 1) do={
:if ([:pick [:tostr $minaddress] $x ($x + 1)] = ".") do={
:set minaddress ([:pick [:tostr $minaddress] 0 $x] . "," . [:pick [:tostr $minaddress] ($x + 1) [:len [:tostr $minaddress]]])
}
}

:for x from=0 to=([:len [:tostr $maxaddress]] - 1) do={
:if ([:pick [:tostr $maxaddress] $x ($x + 1)] = ".") do={
:set maxaddress ([:pick [:tostr $maxaddress] 0 $x] . "," . [:pick [:tostr $maxaddress] ($x + 1) [:len [:tostr $maxaddress]]])
}
}

# Вычисление доступных адресов для текущего диапазона
:if ([:len [:toarray $minaddress]] = [:len [:toarray $maxaddress]]) do={
:set maxindex ([:len [:toarray $minaddress]] - 1)
:for x from=$maxindex to=0 step=-1 do={
# Вычисляем 256^($maxindex - $x)
:set tmpint 1
:if (($maxindex - $x) > 0) do={
:for y from=1 to=($maxindex - $x) do={ :set tmpint (256 * $tmpint) }
}
:set tmpint ($tmpint * ([:tonum [:pick [:toarray $maxaddress] $x]] - [:tonum [:pick [:toarray $minaddress] $x]]) )
:set pooladdresses ($pooladdresses + $tmpint)
}
}

# Добавляем текущий диапазон к общему количеству доступных адресов пула
:set pooladdresses ($pooladdresses + 1)

На это:
:set pooladdresses ($pooladdresses + ([:toip $maxaddress] - [:toip $minaddress]))

Я думал, что так скрипт будет работать намного быстрее, но похоже, что это особо не влияет. Если у вас много DHCP-пулов, скрипт всё равно долго выполняется. Ещё можно было бы для ускорения поднять poolused наверх и добавить проверку с условием, что если пул пустой — пропускать его. Но всё равно, если пулов много, будет медленно.

Вот мой переработанный код с локальными переменными в областях видимости и проверкой if poolused > 0:

:local criticalthreshold 85
:local warnthreshold 70

/ip pool {
:put ("Статистика IP-пулов")
:put ("------------------")

# Обход всех IP-пулов
:foreach p in=[find] do={

:local poolname [get $p name]
:local pooladdresses 0
:local poolused [:len [used find pool=[:tostr $poolname]]]
:local minaddress
:local maxaddress

:if ($poolused > 0) do={
:local line (" " . $poolname)

# Обход диапазонов IP текущего пула
:foreach r in=[:toarray [get $p range]] do={

# Получаем минимальный и максимальный адреса
:local findindex [:find [:tostr $r] "-"]
:if ([:len $findindex] > 0) do={
:set minaddress [:pick [:tostr $r] 0 $findindex]
:set maxaddress [:pick [:tostr $r] ($findindex + 1) [:len [:tostr $r]]]
} else={
:set minaddress [:tostr $r]
:set maxaddress [:tostr $r]
}

:set pooladdresses ($pooladdresses + ([:toip $maxaddress] - [:toip $minaddress]))
}

:local poolpercent (($poolused * 100) / $pooladdresses)

# Вывод информации
:set line ([:tostr $line] . " [" . $poolused . "/" . $pooladdresses . "]")
:set line ([:tostr $line] . " " . $poolpercent . " % занято")

# Цветовое выделение в зависимости от порогов заполнения
:if ( [:tonum $poolpercent] > $criticalthreshold ) do={
:log error ("IP-пул " . $poolname . " заполнен на " . $poolpercent . "%")
:put ([:terminal style varname] . $line)
} else={
:if ( [:tonum $poolpercent] > $warnthreshold ) do={
:log warning ("IP-пул " . $poolname . " заполнен на " . $poolpercent . "%")
:put ([:terminal style syntax-meta] . $line)
} else={
:put ([:terminal style none] . $line)
}
}
}
}
}
20.09.2023 22:33:00, alcohol.]]> http://mikrotik.moscow/forum/forum57/88146-statistika-pula-ip_adresov/message423930 http://mikrotik.moscow/forum/forum57/88146-statistika-pula-ip_adresov/message423930 Wed, 20 Sep 2023 22:33:00 -0400 RouterOS Статистика пула IP-адресов Статистика пула IP-адресов RouterOS в форуме RouterOS.
Пока у вас настроена система электронной почты вот так: https://wiki.mikrotik.com/wiki/Manual:Tools/email, тогда измените:
# Отправка данных
:log info message=("script=pool pool=$poolname used=$poolused total=$pooladdresses")
на:
# Отправка данных
/tool e-mail send to=your.mail@gmail.com subject="test" body="script=pool pool=$poolname used=$poolused total=$pooladdresses" start-tls=yes

Проверено — работает отлично. Но вы будете получать по одному письму на каждый пул. Это можно исправить. И вы не получите красивые графики, которые дает Splunk. Смотрите мою подпись.

РЕДАКТИРОВАНИЕ
Чтобы протестировать в командной строке (cli), замените на:
# Отправка данных
:put ("script=pool pool=$poolname used=$poolused total=$pooladdresses")

И добавьте [ перед первой строкой и ] после последней. Вырежьте и вставьте в cli для теста.
21.06.2019 19:37:00, Jotne.]]> http://mikrotik.moscow/forum/forum57/88146-statistika-pula-ip_adresov/message423929 http://mikrotik.moscow/forum/forum57/88146-statistika-pula-ip_adresov/message423929 Fri, 21 Jun 2019 19:37:00 -0400 RouterOS Статистика пула IP-адресов Статистика пула IP-адресов RouterOS в форуме RouterOS.
Очень полезный скрипт. Можно ли сделать так, чтобы информация DHCP приходила на почту? Можешь добавить это в скрипт?
21.06.2019 19:12:00, plisken.]]> http://mikrotik.moscow/forum/forum57/88146-statistika-pula-ip_adresov/message423928 http://mikrotik.moscow/forum/forum57/88146-statistika-pula-ip_adresov/message423928 Fri, 21 Jun 2019 19:12:00 -0400 RouterOS Статистика пула IP-адресов Статистика пула IP-адресов RouterOS в форуме RouterOS.
Обновлённый скрипт для подсчёта аренды, отображаемой в ip dhcp-server lease, а не того, что используется в пуле, чтобы учесть все статические зарезервированные IP.

# Сбор информации о DHCP пулах
# ----------------------------------
/ip pool {
:local poolname
:local pooladdresses
:local poolused
:local minaddress
:local maxaddress
:local findindex
:local tmpint
:local maxindex

# Перебор IP пулов
:foreach pool in=[find] do={
:set poolname [get $pool name]
:set pooladdresses 0
:set poolused 0

# Перебор IP-диапазонов текущего пула
:foreach range in=[:toarray [get $pool range]] do={

# Получение минимального и максимального адресов
:set findindex [:find [:tostr $range] "-"]
:if ([:len $findindex] > 0) do={
:set minaddress [:pick [:tostr $range] 0 $findindex]
:set maxaddress [:pick [:tostr $range] ($findindex + 1) [:len [:tostr $range]]]
} else={
:set minaddress [:tostr $range]
:set maxaddress [:tostr $range]
}

# Преобразование в массив октетов (замена '.' на ',')
:for x from=0 to=([:len [:tostr $minaddress]] - 1) do={
:if ([:pick [:tostr $minaddress] $x ($x + 1)] = ".") do={
:set minaddress ([:pick [:tostr $minaddress] 0 $x] . "," . \
[:pick [:tostr $minaddress] ($x + 1) [:len [:tostr $minaddress]]])
}
}

:for x from=0 to=([:len [:tostr $maxaddress]] - 1) do={
:if ([:pick [:tostr $maxaddress] $x ($x + 1)] = ".") do={
:set maxaddress ([:pick [:tostr $maxaddress] 0 $x] . "," . \
[:pick [:tostr $maxaddress] ($x + 1) [:len [:tostr $maxaddress]]])
}
}

# Подсчёт доступных адресов в текущем диапазоне
:if ([:len [:toarray $minaddress]] = [:len [:toarray $maxaddress]]) do={
:set maxindex ([:len [:toarray $minaddress]] - 1)
:for x from=$maxindex to=0 step=-1 do={
# Вычисляем 256^($maxindex - $x)
:set tmpint 1
:if (($maxindex - $x) > 0) do={
:for y from=1 to=($maxindex - $x) do={ :set tmpint (256 * $tmpint) }
}
:set tmpint ($tmpint * ([:tonum [:pick [:toarray $maxaddress] $x]] - \
[:tonum [:pick [:toarray $minaddress] $x]]))
:set pooladdresses ($pooladdresses + $tmpint)
}
}

# Добавляем текущий диапазон к общему количеству доступных адресов пула
:set pooladdresses ($pooladdresses + 1)

# /foreach range
}

# Проверка, используется ли пул в DHCP или VPN, и вывод количества занятых аренды
:local dname [/ip dhcp-server find where address-pool=$poolname]
:if ([:len $dname] = 0) do={
:set poolused [:len [used find pool=[:tostr $poolname]]]
} else={
:local dname [/ip dhcp-server get [find where address-pool=$poolname] name]
:set poolused [:len [/ip dhcp-server lease find where server=$dname]]
}

# Отправляем данные
:log info message=("script=pool pool=$poolname used=$poolused total=$pooladdresses")

# /foreach pool
}
# /ip pool
}
21.06.2019 18:27:00, Jotne.]]> http://mikrotik.moscow/forum/forum57/88146-statistika-pula-ip_adresov/message423927 http://mikrotik.moscow/forum/forum57/88146-statistika-pula-ip_adresov/message423927 Fri, 21 Jun 2019 18:27:00 -0400 RouterOS Статистика пула IP-адресов Статистика пула IP-адресов RouterOS в форуме RouterOS.
Нравится этот скрипт, но нашёл в нём большую ошибку. Он не учитывает DHCP IP, которые переведены в статические. /ip dhcp-server lease print показывает все IP во всех пулах, и статические, и динамические. /ip pool used print, который используется в скрипте, показывает только закреплённые IP. Для меня это всего лишь часть всех IP, и scoop показывает гораздо меньше используемых адресов, чем есть на самом деле. Если будет время, посмотрю, как исправить и получить правильные цифры.
20.06.2019 22:26:00, Jotne.]]> http://mikrotik.moscow/forum/forum57/88146-statistika-pula-ip_adresov/message423926 http://mikrotik.moscow/forum/forum57/88146-statistika-pula-ip_adresov/message423926 Thu, 20 Jun 2019 22:26:00 -0400 RouterOS Статистика пула IP-адресов Статистика пула IP-адресов RouterOS в форуме RouterOS.
Ребята, нужна скрипт для автоматической переадресации VLAN с одного порта на другой, если моя основная ссылка падает. То есть: если основной линк ether1 отключается, то созданные VLAN с ether1 автоматически переносились бы на ether2. Хочу сделать это для авто-резервирования линка. Спасибо, Shakib
19.12.2018 09:05:00, Shakib.]]> http://mikrotik.moscow/forum/forum57/88146-statistika-pula-ip_adresov/message423925 http://mikrotik.moscow/forum/forum57/88146-statistika-pula-ip_adresov/message423925 Wed, 19 Dec 2018 09:05:00 -0500 RouterOS Статистика пула IP-адресов Статистика пула IP-адресов RouterOS в форуме RouterOS.
Ребята, нужна скрипт для переноса VLAN с одного порта на другой. То есть, если моя основная ссылка ether1 падает, созданные VLAN с ether1 автоматически переключаются на ether2. Хочу сделать это для автоматического резервирования канала. Спасибо, Shakib
19.12.2018 09:01:00, Shakib.]]> http://mikrotik.moscow/forum/forum57/88146-statistika-pula-ip_adresov/message423924 http://mikrotik.moscow/forum/forum57/88146-statistika-pula-ip_adresov/message423924 Wed, 19 Dec 2018 09:01:00 -0500 RouterOS Статистика пула IP-адресов Статистика пула IP-адресов RouterOS в форуме RouterOS.
Где я могу посмотреть результат? Например, когда я делаю копипаст в терминал, результат виден, но если я запускаю скрипт, где тогда увидеть результат? В логах ничего нет. Спасибо.
17.03.2018 04:21:00, nichky.]]> http://mikrotik.moscow/forum/forum57/88146-statistika-pula-ip_adresov/message423923 http://mikrotik.moscow/forum/forum57/88146-statistika-pula-ip_adresov/message423923 Sat, 17 Mar 2018 04:21:00 -0400 RouterOS Статистика пула IP-адресов Статистика пула IP-адресов RouterOS в форуме RouterOS.
Повторяю свой вопрос: можете показать код на примере 192.168.100.1/24, пожалуйста? Для меня это немного непонятно. Большое спасибо!
16.03.2018 20:21:00, plisken.]]> http://mikrotik.moscow/forum/forum57/88146-statistika-pula-ip_adresov/message423922 http://mikrotik.moscow/forum/forum57/88146-statistika-pula-ip_adresov/message423922 Fri, 16 Mar 2018 20:21:00 -0400 RouterOS Статистика пула IP-адресов Статистика пула IP-адресов RouterOS в форуме RouterOS.
Можешь показать пример кода на основе 192.168.100.1/24, пожалуйста? Для меня это немного непонятно. Спасибо!
24.06.2017 08:40:00, plisken.]]> http://mikrotik.moscow/forum/forum57/88146-statistika-pula-ip_adresov/message423921 http://mikrotik.moscow/forum/forum57/88146-statistika-pula-ip_adresov/message423921 Sat, 24 Jun 2017 08:40:00 -0400 RouterOS Статистика пула IP-адресов Статистика пула IP-адресов RouterOS в форуме RouterOS.
Извините, что разбудил эту очень старую тему. Недавно один автор запроса понадобилось кастомное решение для получения оповещений и записи статистики использования DHCP пула Mikrotik с помощью bash-скрипта на базе Linux. Я использовал этот скрипт и попытался вывести его на новый уровень. Bash-скрипт на Ubuntu удалённо запускает этот скрипт, получает результаты в файл, сохраняет данные в таблицах MySQL, форматирует вывод по желанию и отправляет письмо, если пул использован на XX %. Я сделал это решение — оно не слишком изящное и точно не профессиональное, но я многому научился. Это просто моя идея и её могущественный обмен, возможно, кто-то найдёт это полезным для других проектов. Просто мои пять копеек https://aacable.wordpress.com/2016/06/02/getting-out-of-the-box-solution-with-mikrotik-bash-mysql/
02.06.2016 12:02:00, aacable.]]> http://mikrotik.moscow/forum/forum57/88146-statistika-pula-ip_adresov/message423920 http://mikrotik.moscow/forum/forum57/88146-statistika-pula-ip_adresov/message423920 Thu, 02 Jun 2016 12:02:00 -0400 RouterOS Статистика пула IP-адресов Статистика пула IP-адресов RouterOS в форуме RouterOS.
Привет, nest! Не мог бы ты поделиться конфигурацией для отправки результата скрипта по электронной почте? Буду благодарен за помощь. Спасибо, Nil.
02.08.2014 09:21:00, nileshkahar.]]> http://mikrotik.moscow/forum/forum57/88146-statistika-pula-ip_adresov/message423919 http://mikrotik.moscow/forum/forum57/88146-statistika-pula-ip_adresov/message423919 Sat, 02 Aug 2014 09:21:00 -0400 RouterOS Статистика пула IP-адресов Статистика пула IP-адресов RouterOS в форуме RouterOS.
dssmiktik — ты добавил это в вики? Мне кажется, этот скрипт станет очень полезным, когда я добавлю функцию отправки нам уведомлений на почту. Спасибо. У нас уже был один хотспот, куда внезапно набежало много посетителей, и мы быстро исчерпали IP-адреса (обычно за время аренды бывает 50-100 пользователей, а тут внезапно почти в 10 раз больше, с /23 у нас просто не было шансов справиться). Если бы этот скрипт нас вовремя оповестил, мы могли бы принять меры заранее, а не реагировать на звонки с жалобами, что клиенты не могут выйти в интернет. Ещё раз спасибо!
08.01.2012 23:30:00, nest.]]> http://mikrotik.moscow/forum/forum57/88146-statistika-pula-ip_adresov/message423918 http://mikrotik.moscow/forum/forum57/88146-statistika-pula-ip_adresov/message423918 Sun, 08 Jan 2012 23:30:00 -0500 RouterOS Статистика пула IP-адресов Статистика пула IP-адресов RouterOS в форуме RouterOS.
спасибо
08.01.2012 08:20:00, huigezi.]]> http://mikrotik.moscow/forum/forum57/88146-statistika-pula-ip_adresov/message423917 http://mikrotik.moscow/forum/forum57/88146-statistika-pula-ip_adresov/message423917 Sun, 08 Jan 2012 08:20:00 -0500 RouterOS Статистика пула IP-адресов Статистика пула IP-адресов RouterOS в форуме RouterOS.
СУПЕР! Вот что я так давно искал, а нашёл только сейчас в двухлетнем посте!!! СПАСИБО!!
07.01.2012 11:29:00, m4rk0.]]> http://mikrotik.moscow/forum/forum57/88146-statistika-pula-ip_adresov/message423916 http://mikrotik.moscow/forum/forum57/88146-statistika-pula-ip_adresov/message423916 Sat, 07 Jan 2012 11:29:00 -0500 RouterOS Статистика пула IP-адресов Статистика пула IP-адресов RouterOS в форуме RouterOS.
Я написал скрипт для сбора информации о занятых и доступных адресах во всех IP-пулах. Это может быть полезно, если у вас несколько пулов и нужно равномерно распределять нагрузку между ними. Кроме того, его можно использовать для отслеживания процента заполнения IP-пула с уведомлениями через логи, email или для автоматического запуска какого-либо действия. Скрипт работает с одним IP, диапазоном IP или несколькими диапазонами, заданными в пуле.
# Статистика по IP -> Пул
#
# criticalthreshold = выводить название пула красным, если заполнение пула превышает этот %
# warnthreshold = выводить название пула желтым, если заполнение пула превышает этот %

:local criticalthreshold 85
:local warnthreshold 70

# Внутренние вычисления...
# ----------------------------------
/ip pool {
:local poolname
:local pooladdresses
:local poolused
:local poolpercent
:local minaddress
:local maxaddress
:local findindex
:local tmpint
:local maxindex
:local line

:put ("Статистика IP-пулов")
:put ("------------------")

# Перебираем все IP-пулы
:foreach p in=[find] do={

:set poolname [get $p name]
:set pooladdresses 0
:set poolused 0
:set line ""

:set line (" " . $poolname)

# Перебираем диапазоны IP в текущем пуле
:foreach r in=[:toarray [get $p range]] do={

# Определяем минимальный и максимальный адрес
:set findindex [:find [:tostr $r] "-"]
:if ([:len $findindex] > 0) do={
:set minaddress [:pick [:tostr $r] 0 $findindex]
:set maxaddress [:pick [:tostr $r] ($findindex + 1) [:len [:tostr $r]]]
} else={
:set minaddress [:tostr $r]
:set maxaddress [:tostr $r]
}

# Преобразуем в массив октетов (замена '.' на ',')
:for x from=0 to=([:len [:tostr $minaddress]] - 1) do={
:if ([:pick [:tostr $minaddress] $x ($x + 1)] = ".") do={
:set minaddress ([:pick [:tostr $minaddress] 0 $x] . "," . [:pick [:tostr $minaddress] ($x + 1) [:len [:tostr $minaddress]]]) }
}
:for x from=0 to=([:len [:tostr $maxaddress]] - 1) do={
:if ([:pick [:tostr $maxaddress] $x ($x + 1)] = ".") do={
:set maxaddress ([:pick [:tostr $maxaddress] 0 $x] . "," . [:pick [:tostr $maxaddress] ($x + 1) [:len [:tostr $maxaddress]]]) }
}

# Считаем количество доступных адресов в текущем диапазоне
:if ([:len [:toarray $minaddress]] = [:len [:toarray $maxaddress]]) do={
:set maxindex ([:len [:toarray $minaddress]] - 1)
:for x from=$maxindex to=0 step=-1 do={
# Вычисляем 256^($maxindex - $x)
:set tmpint 1
:if (($maxindex - $x) > 0) do={
:for y from=1 to=($maxindex - $x) do={ :set tmpint (256 * $tmpint) }
}
:set tmpint ($tmpint * ([:tonum [:pick [:toarray $maxaddress] $x]] - [:tonum [:pick [:toarray $minaddress] $x]]) )
:set pooladdresses ($pooladdresses + $tmpint)
# конец цикла for x
}

# если длина массива $minaddress = длине $maxaddress
}

# Добавляем к общему количеству адресов один текущий диапазон (возвращаем к общему подсчёту)
:set pooladdresses ($pooladdresses + 1)

# конец foreach r
}

# Теперь у нас есть общее число доступных адресов во всех диапазонах этого пула
# Получаем число занятых адресов в пуле
:set poolused [:len [used find pool=[:tostr $poolname]]]
:set poolpercent (($poolused * 100) / $pooladdresses)

# Выводим информацию
:set line ([:tostr $line] . " [" . $poolused . "/" . $pooladdresses . "]")
:set line ([:tostr $line] . " " . $poolpercent . " % занято")

# Устанавливаем цвет вывода в зависимости от порогов заполнения
:if ( [:tonum $poolpercent] > $criticalthreshold ) do={
:log error ("IP Pool " . $poolname . " заполнен на " . $poolpercent . "%")
:put ([:terminal style varname] . $line)
} else={
:if ( [:tonum $poolpercent] > $warnthreshold ) do={
:log warning ("IP Pool " . $poolname . " заполнен на " . $poolpercent . "%")
:put ([:terminal style syntax-meta] . $line)
} else={
:put ([:terminal style none] . $line)
}
}

# конец foreach p
}
# /ip pool
}
29.03.2010 20:38:00, dssmiktik.]]> http://mikrotik.moscow/forum/forum57/88146-statistika-pula-ip_adresov/message423915 http://mikrotik.moscow/forum/forum57/88146-statistika-pula-ip_adresov/message423915 Mon, 29 Mar 2010 20:38:00 -0400 RouterOS