Is this something that can be done within the Mikrotik OS?

Ok, can you show me a similar script so I can learn from it and try to reverse engineer it?

Can you point me in the right direction on the variables for the name in the comments section? I can't find any info on that at all.

[admin@MikroTik] > /tool netwatch add host=10.0.1.20 comment="Printer" interval=1m down-script=printerdown     
[admin@MikroTik] > :put [/tool netwatch get value-name=comment [find host=10.0.1.20]]                              
Printer

You could either use netwatch or just look through the dhcp leases and ping them. I have two scripts that do a lot of that...

Sent from my SCH-I545 using Tapatalk

You could either use netwatch or just look through the dhcp leases and ping them. I have two scripts that do a lot of that...

Sent from my SCH-I545 using Tapatalk

Looking at my scripts I could most likely merge them and do what your looking for... would have to be on a recent version of RouterOS so I can use hash arrays... just let me know if you would be interested.

ros code

#
# Dead Peer Detector
#

# Set Comments (Tunnel, Peer, Policy) = "+DPD+<STRING>+"

#
# Variables
#
:local failureThreshold 3

:local pingResults {""}

:local linkDown do={
	:put ("LINK DOWN - " . $1)
}

:global linkUp do={
	:put ("LINK UP - " . $1)
}


# Main Loop
/ip dhcp-server lease {
	:foreach i in=[find (!dynamic && comment~"^([^+]*\\+DPD\\+([^+]*)\$"] do={
		:local leaseComment [get $i comment]

		:local tempComment [:pick $leaseComment ([:find $leaseComment "+"]+1) [:len $leaseComment]]
		:local peerString [:pick $tempComment ([:find $tempComment "+"]+1) [:len $tempComment]]

		:local peerAddress [get $i address]

		:if ([:typeof ($pingResults->$leaseComment)] = "nothing") do={:set ($pingResults->$leaseComment) 0}

		:set pingResult [ping $peerAddress count=1]

		:if ($pingResult = 0) do={
			:if (($pingResults->$leaseComment) < ($failureThreshold + 2)) do={
				:set ($pingResults->$leaseComment) (($pingResults->$leaseComment) + 1)
				
				:if (($pingResults->$leaseComment) = $failureThreshold) do={
					$linkDown ($peerComment)
				}
			}
		}

		:if ($pingResult = 1) do={
			:if (($pingResults->$leaseComment) > 0) do={
				:set ($pingResults->$leaseComment) (($pingResults->$leaseComment) - 1)
				
				:if (($pingResults->$leaseComment) = ($failureThreshold - 1)) do={
					$linkUp ($peerComment)
				}
			}
		}
	}
}

Eric,

Thanks for doing this. I am on version 5.26. I haven't upgraded yet because I'm not sure of the stability of the newer versions. Do I need to upgrade to make this work?

Next, is the script going through all of the ip address on the network, or just the static ip addresses?

Next, does this script work with net watch, or is it stand alone? I didn't see any email output in the script.

Thanks Eric.

Eric,

I am going to hold off on this for now. I want to wait until version 6 (or 7) becomes more stable. I am going to stick with version 5 for now. For now I will just use net watch.

Thanks for all of your help as always.

You could either use netwatch or just look through the dhcp leases and ping them. I have two scripts that do a lot of that...

Sent from my SCH-I545 using Tapatalk

Looking at my scripts I could most likely merge them and do what your looking for... would have to be on a recent version of RouterOS so I can use hash arrays... just let me know if you would be interested.

Got bored... Haven't tested it... but something like this..

ros code

#
# Dead Peer Detector
#

# Set Comments (Tunnel, Peer, Policy) = "+DPD+<STRING>+"

#
# Variables
#
:local failureThreshold 3

:local pingResults {""}

:local linkDown do={
	:put ("LINK DOWN - " . $1)
}

:global linkUp do={
	:put ("LINK UP - " . $1)
}


# Main Loop
/ip dhcp-server lease {
	:foreach i in=[find (!dynamic && comment~"^([^+]*\\+DPD\\+([^+]*)\$"] do={
		:local leaseComment [get $i comment]

		:local tempComment [:pick $leaseComment ([:find $leaseComment "+"]+1) [:len $leaseComment]]
		:local peerString [:pick $tempComment ([:find $tempComment "+"]+1) [:len $tempComment]]

		:local peerAddress [get $i address]

		:if ([:typeof ($pingResults->$leaseComment)] = "nothing") do={:set ($pingResults->$leaseComment) 0}

		:set pingResult [ping $peerAddress count=1]

		:if ($pingResult = 0) do={
			:if (($pingResults->$leaseComment) < ($failureThreshold + 2)) do={
				:set ($pingResults->$leaseComment) (($pingResults->$leaseComment) + 1)
				
				:if (($pingResults->$leaseComment) = $failureThreshold) do={
					$linkDown ($peerComment)
				}
			}
		}

		:if ($pingResult = 1) do={
			:if (($pingResults->$leaseComment) > 0) do={
				:set ($pingResults->$leaseComment) (($pingResults->$leaseComment) - 1)
				
				:if (($pingResults->$leaseComment) = ($failureThreshold - 1)) do={
					$linkUp ($peerComment)
				}
			}
		}
	}
}