Return first free IP

RouterOS Scripting
1

Hi,

Could someone help me to write a simple script for routeros?
In PPP secrets I’ve few users:

/ppp secret> print 
Flags: X - disabled 
 #   NAME       SERVICE CALLER-ID    PASSWORD    PROFILE    REMOTE-ADDRESS 
 0   
     ppp        any                  *            vpn3       10.15.32.254   
 1   
     mazek5     any                  *            vpn3       10.15.32.69
 2   
     beta1      any                  *            vpn3       10.15.32.10
 3   
     test        any                  *            vpn1       10.15.32.15

They have assigned addresses from subnet: 10.15.32.0/24.
I need script which return first unassigned IP. In this case: 10.15.32.1.

Thank you.

2

This will check 1-254, stopping at first unassigned remote-ip.

:local min 1;
:local max 254;
:local freeip;
:while ($min <= $max) do={
	if ([:len [/ppp secret find remote-address=("10.15.32.".$min)]] = 0) do={
		:set freeip ("10.15.32.".$min);
		:set min $max;
	}
	:set min ($min + 1);
}
:put $freeip;