Hi Guys,

I need some HELP!

Im doing a script for a Mikrotik for a ping test.

Basically the MT needs to ping an ip and if the ip got 5 request timeouts it must do a task(the task is to disable a route on the MT ). But I can't get it to work can you see if below makes any sense for you. Then I have the same script for a up check. So basically if the ping to 10.10.10.1 fails for 5 times it swaps to alternative route( disabling the Default route)

:local i 0; {:do {:set i ($i + 1)} while (($i < 5) && ([/ping 10.10.10.1 interval=3 count=1]=0))};
:if ($i=5 && ( [/ip route find where comment ="Default Route" disabled=yes ] != "")) do={:log info "have swapped";
}

Below is the UP check


:local i 0; {:do {:set i ($i + 1)} while (($i < 5) && ([/ping 10.10.10.1 interval=3 count=1]=1))};
:if ($i=5 && ( [/ip route find where comment ="Default Route" disabled=no ] != "")) do={:log info "have not swapped route";
}


best Regards

Try this:

Maybe this will help

Address list item looks like this

add address=10.0.0.175 comment=wcsnet-ps1*100 list="router ping"


:global scriptemail
:global lastping

:local content
:local checkip
:local checklaststatus
:local checknewstatus
:local checkcomment

:local difference

:local list
:local alerts 0

:log info "******************** starting - ip ping report********************"
:log info "-"

:foreach i in=[/ip firewall address-list find] do={

:set list ([/ip firewall address-list get $i list] )
:if ($list = "router ping") do={

:set checkip ([/ip firewall address-list get $i address] )
:set content ([/ip firewall address-list get $i comment] )

:if ([:find $content "*"] != "") do={

:local pos1 [:find $content "*"]
:local pos2 [:len $content]

:set checklaststatus ([:pick $content ($pos1+1) $pos2])
:set checkcomment ([:pick $content 0 ($pos1)])

:local perc ([/ping $checkip count=10] * 10)

:set checknewstatus "$perc"

:set difference (checknewstatus - $checklaststatus)

:if ($difference < 0) do={
:set difference ($difference * -1)
} else={
:set difference ($difference * 1)
}

:if (difference >= 50 ) do={
/ip firewall address-list set $i comment="$checkcomment*$checknewstatus"
:set alerts ($alerts + 1)

:log warning "$[/system identity get name] connectively test state changed [ $checkcomment ] $checklaststatus -> $checknewstatus state difference: $difference"

}

}
}
}

:set lastping "$[/system clock get date] $[/system clock get time]"

:log info "******************** ending - ip ping report ********************"