global type tras from structure
   ulong    dwSize
    ulong    hrasconn
    char     szEntryName[  257  ]
    char     szDeviceType[  17  ]
    CHAR     szDeviceName[  129  ]
    CHAR     szPhonebook [  260  ]
    ulong    dwSubEntry
end type

FUNCTION long RasEnumConnections(ref tras lpRasCon[], ref long lpcb, ref long lpcConnections) LIBRARY "RasApi32.dll" ALIAS FOR RasEnumConnectionsA

tras t[]
long i
long cb
long count
long size= 676 

for i= 1  to  10 
	t[i].dwsize=size
next

cb=size*upperbound(t)

i=RasEnumConnections(t,cb,count)

mle_1.text+="ret="+string(i)+'~r~n'
mle_1.text+="count="+string(count)+'~r~n'
mle_1.text+='~r~n'


for i= 1  to count
	mle_1.text+='i='+string(i)+'~r~n'
	mle_1.text+='name='+t[i].szEntryName+'~r~n'
	mle_1.text+='type='+t[i].szDeviceType+'~r~n'
	mle_1.text+='device='+t[i].szDeviceName+'~r~n'
	mle_1.text+='~r~n'
next

ret=0
count=1

i=1
name=UMC
type=MODEM
device=Standard Modem over IR link