just because i did the work... might as well post it

Needs BinaryIP() and BaseConverter()

Code:

Function GetSubnetIPs($subnet,$subnetmask)
	dim $1,$0,$subnetid,$i,$convert
	$1 = "11111111111111111111111111111111"
	$0 = "00000000000000000000000000000000"
	$subnetmask = substr(binaryip($subnetmask),1,instr(binaryip($subnetmask),0)-1)
	$subnetid = substr(binaryip($subnet),1,len($subnetmask))
	$subnet = substr(binaryip($subnet),len($subnetmask)+1)
	dim $tarray[baseconverter(substr($1,1,len($subnet)),2,10)]
	for $i = 0 to ubound($tarray)
		$convert = baseconverter($i,10,2)
		$ip = binaryip($subnetid + substr($0,1,len($subnet)-len($convert)) + $convert,1)
		$tarray[$i] = $ip
	next
	$getsubnetips = $tarray
endfunction


EXAMPLE:
Code:

$ip = Getsubnetips("128.2.1.0","255.255.192.0")
	? $ip[0]
	? $ip[ubound($ip)]


Bryce