Code: Select all
{
:local buffer;
:local fileName "address-list"
{
:local ip
/interface bridge host
:foreach ID in=[find] do={
:local mac [get $ID mac-address]
:local idmac [/ip arp find mac-address="$mac"]
:if ([:len $idmac] > 0) do={
:set ip [/ip arp get $idmac address]
:put "mac=$mac ip=$ip"
:set $buffer ($buffer."IPV4=".$ip." MAC=".$mac."\n");
}
}
}
/file print file=$fileName where name="";
delay 1s;
/file set $fileName contents=$buffer;
}