Script BandWidth Teste e Resultado por email

RouterOS Scripting
1

Pessoal gostaria de saber se alguém tem um script parecido como esse funcionando.
Seria o seguinte fazer o teste em outro mikrotik e mandar o resultado por email, sendo assim programo ele para ver se está passando a banda em determinado link.
Não estou conseguindo mandar o resultado do teste para o email.

:global i
/tool bandwidth-test 192.168.1.1 protocol=udp direction=both duration=12s local-tx-speed=50M remote-tx-speed=50M user=login password=senha
do={
:if ($status=“running”) do={
:set i $tx-current $rx-current
}
}
:delay 15s
/tool e-mail send to=“usuario@gmail.com” subject=“Bandwidth test results” body=(“Transmitted bytes/s:” . $i)

2

http://forum.mikrotik.com/t/bandwidth-test-for-email/74692/1

3

:local txc
:local txcA
:local txcB
:local txcC

:local rxc
:local rxcA
:local rxcB
:local rxcC

:local rxta
:local rxtaA
:local rxtaB
:local rxtaC

:local txta
:local txtaA
:local txtaB
:local txtaC

:local sysname [/system identity get name]
:local datetime “$[/system clock get date] $[/system clock get time]”

:log info “Bandwidth-test start”

/tool bandwidth-test 192.168.50.1 protocol=udp direction=both duration=30s user=usuário password=sua senha do={

:set txcA ($“tx-current” / 1000)
:set txcB ($txcA / 1000 * 1000)
:set txcC ($txcA - $txcB)
:set txcB ($txcB / 1000)
:set txc “$txcB.$txcC”

:set rxcA ($“rx-current” / 1000)
:set rxcB ($rxcA / 1000 * 1000)
:set rxcC ($rxcA - $rxcB)
:set rxcB ($rxcB / 1000)
:set rxc “$rxcB.$rxcC”

:set rxtaA ($“rx-total-average” / 1000)
:set rxtaB ($rxtaA / 1000 * 1000)
:set rxtaC ($rxtaA - $rxtaB)
:set rxtaB ($rxtaB / 1000)
:set rxta “$rxtaB.$rxtaC”

:set txtaA ($“tx-total-average” / 1000)
:set txtaB ($txtaA / 1000 * 1000)
:set txtaC ($txtaA - $txtaB)
:set txtaB ($txtaB / 1000)
:set txta “$txtaB.$txtaC”

}

:log info “Bandwidth-test done, sending info by e-mail”

/tool e-mail send to=“xxx@hotmail.com” from=“xxx@hotmail.com” user=“xxx@hotmail.com” password=“sua senha” server=65.55.172.254 subject=“Teste velocidade backbone : $sysname” body=“$sysname \n $datetime \n \n Resultado : \n TX speed $txc Mbps/s \n RX speed $rxc Mbps/s \n \n TX total average $txta Mbps/s \n RX total average $rxta Mbps/s”

Dentro tools e-mail.

/tool e-mail
set address=74.125.129.109 from=xxx@gmail.com last-status=succeeded password=sua senha port=587 start-tls=yes user=xxx@gmail.com

4

Fiz mais uma opção estudando vários scripts.


/tool {
:local cidade DigiteONomeDoDestinoExCuritiba
:local ipdestino DigiteOIpDeDestinoEx192.168.0.130
:local banda DigiteABandaContratadaEmMbEX50
:local usuario DigiteOUsuarioDoMk
:local passwd DigiteASenhaDoMk
:local email DigiteOEmailDoEnvioDoAlerta
:log info “Bandwidth-test start”
:local txAvg 0
:local rxAvg 0
bandwidth-test protocol=tcp direction=both address=$ipdestino duration=10s user=$usuario password=$passwd do={
:if ($txAvg < $“tx-10-second-average”) do={
:set txAvg $“tx-10-second-average”
}
:if ($rxAvg < $“rx-10-second-average”) do={
:set rxAvg $“rx-10-second-average”
}
}
:put (“tx: " . ($txAvg / 1048576 ) . " Mbps”" rx: " . ($rxAvg / 1048576 ) . " Mbps")
:log warning (“tx: " . ($txAvg / 1048576) . " Mbps” . " rx: " . ($rxAvg / 1048576) . " Mbps")
:if ((($txAvg / 1048576 )<$banda)||(($txAvg / 1048576 )<$banda)) do={
:log info “Bandwidth-test done, sending info by e-mail”
/tool e-mail send to=$email subject=("Alerta de Bandwidth-test de “.[/system identity get name].” para ".$cidade) body=("Teste de “.[/system identity get name].” para “.$cidade.” “.$ipdestino.” banda de “.$banda.“Mbps → tx: " . ($txAvg / 1048576) . " Mbps” . " rx: " . ($rxAvg / 1048576) . " Mbps”)
}
:log info “Bandwidth-test Finish”
}