Declare string inet_ntoa in ws2_32 integer
declare integer GetIpAddrTable in iphlpapi string @, long @, integer
Local buf, buflen, cntEntries, i
buflen=8192
buf=Space(buflen)
if GetIpAddrTable(@buf,@buflen,1)=0
cntEntries=c2b(Substr(buf,1,4))
For i=1 to cntEntries
* first DWORD - buf of entries
* read from 5 byte _MIB_IPADDRROW length 24 bytes
? 'ip=',inet_ntoa(c2b(Substr(buf,5+(i-1)*24,4)))
? 'mask=',inet_ntoa(c2b(Substr(buf,5+(i-1)*24+8,4)))
Next
EndIf

Procedure C2B( m.str)
Local n, i
n=0
For i=Len(m.str) to 1 step -1
n=BitLshift(n,8)+Asc(Substr(m.str,i,1))
Next
Return n