#Script Sinal Check
#
#Lista as estacoes que estao com Sinal Abaixo do limite com opcao para desconecta-las
#
# Autor: André Ximenes De Melo Junior (
[email protected])
#
#Instrucoes de uso:
# -- Adicionar o codigo completo em SYSTEM >> SCRIPTS
# -- Por padrao o script nao vai derrubar nenhuma estacao, rode o script padrao antes de
# configurar a variavel cut para 1, tendo certeza que o script esta OK.
# -- O script pode ser executado pelo botao "run script" ou via linha de comando.
# "/ system script run <nome do script>
# -- O script so funciona em interfaces que o modo de operacao seja AP-BRIDGE
# -- crie uma regra no Scheduler para auomatizar o uso
# -- Testado na versão 6.33
#
#Informacoes:
#
#Variavel Smax -> deve ter o valor do Signal MAXIMO permitido.
#Variavel cut -> deve ser 0 ou 1, 0 somente mostra, 1 mostra e desconecta a estacao.
#Script Sinal Check
#
#Lista as estacoes que estao com Sinal acima do limite com opcao para desconecta-las
#
# Autor: André Ximenes De Melo Junior (
[email protected])
#
#Instrucoes de uso:
# -- Adicionar o codigo completo em SYSTEM >> SCRIPTS
# -- Por padrao o script nao vai derrubar nenhuma estacao, rode o script padrao antes de
# configurar a variavel cut para 1, tendo certeza que o script esta OK.
# -- O script pode ser executado pelo botao "run script" ou via linha de comando.
# "/ system script run <nome do script>
# -- O script so funciona em interfaces que o modo de operacao seja AP-BRIDGE
# -- crie uma regra no Scheduler para auomatizar o uso
# -- Testado na versão 6.33
#
#Informacoes:
#
#Variavel Smax -> deve ter o valor do Signal MAXIMO permitido.
#Variavel cut -> deve ser 0 ou 1, 0 somente mostra, 1 mostra e desconecta a estacao.
##################################################################
#Configuracoes das variaveis valor do sinal sem o ( - )
:local Smax 70;
:local cut 1;
############ Script - NAO ALTERAR #####################################
:local mac "";
:local Smed "";
:local removido "";
:local Slimp "";
:log warning ("[Sinal Check] Procurando clientes com Sinal Menor que " . $Smax);
:foreach i in=[ / interface wireless find mode="ap-bridge" running] do={
:local intname [ / interface wireless get $i name ];
:log warning (" Interface: " . $intname);
:foreach x in=[/interface wireless registration-table find interface=$intname] do={
:set Smed [/interface wireless registration-table get value-name=signal-strength number=$x];
:set Slimp [
ick $Smed 1 3]
#:log warning ("SINAL " . $Slimp);
:set removido "";
:if ($Slimp > $Smax) do={
:set mac [ / interface wireless registration-table get $x mac-address];
:if ($cut = 1) do= {
:set removido " removido...";
/ interface wireless registration-table remove $x;
};
:log warning (" mac: " . $mac . "@" . $intname . " [" . $Smed . "]" . $removido);
};
};
};
############ FIM #####################################