DWORD RasEnumConnections(
    LPRASCONN lprasconn,	// buffer to receive connections data
    LPDWORD lpcb,	// size in bytes of buffer
    LPDWORD lpcConnections	// number of connections written to buffer
   );

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

#define RAS_MaxEntryName       256 
#define RAS_MaxDeviceType      16 
#define RAS_MaxDeviceName      128 

RASCONNA
{
    DWORD    dwSize;
    HRASCONN hrasconn;
    CHAR     szEntryName[ RAS_MaxEntryName +  1  ];
    CHAR     szDeviceType[ RAS_MaxDeviceType +  1  ];
    CHAR     szDeviceName[ RAS_MaxDeviceName +  1  ];
    CHAR     szPhonebook [ MAX_PATH ];
    DWORD    dwSubEntry;
};

    ulong    dwSize
    ulong    hrasconn
    char     szEntryName[  257  ]
    char     szDeviceType[  17  ]
    CHAR     szDeviceName[  129  ]
    CHAR     szPhonebook [  260  ]
    ulong    dwSubEntry

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