:local online 0
:local problema 0
:local informacao ""
:local data [/system clock get date]
:local hora [/system clock get time]
:local tstping
: for i from=2 to=254 do={
:if ([ping ("169.254.143." . $i) count 4]>0) do={
:set online ($online+1)
:set tstping [ping ("169.254.143." . $i) count 10 size=1500 do-not-fragment]
:if (tstping<9&&tstping>1) do={
:set problema ($problema+1)
:set informacao ($informacao."Cliente Com IP - "."169.254.143." . $i." => ".(10-$tstping)." pct's | ")
}
}
}
:if ($informacao!="") do={:log info ("PING==>> $problema Cliente(s) de $online Conectado(s) esta(ao) com problemas no Ping [Cliente => Pacotes Perdidos]: " . $informacao)} else {:log info "PING OK!!! ==>>$online Clientes Conectados, Nenhum Apresentou Problemas. Rede 100%"}
:if (($online/2)<$problema) do={
:log info "EMAIL==>> Como $problema dos $online usuarios conectados neste instante, portanto, mais da metade da rede apresentou problemas, foi enviado um email de aviso."
/tool e-mail send to="[EMAIL="[email protected]"][email protected][/EMAIL]" subject="WL_INSTAVEL: Provedor apresentou instabilidades na wireless em $data as $hora" body="$problema Cliente(s) de $online Conectado(s) esta(ao) com problemas no Ping [Cliente => Pacotes Perdidos]: $informacao. Isto indica que mais da metade da rede esta com o tempo de resposta acima do minimo recomendado para um bom funcionamento, caracterizando assim, problema geral na Wireless."
}