Visual Basic

<br />
Declare Function iRasEnumDevices Lib "rasapi32.dll" Alias "RasEnumDevicesA" (ByRef lpRasDevInfo As Integer, ByRef lpcb As Integer, ByRef lpcDevices As Integer) As Integer<br />
    Declare Sub iCopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByRef hpvDest As Integer, ByRef hpvSource As RASDEVINFO, ByVal cbCopy As Integer)<br />
    Declare Sub iCopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByRef hpvSource As RASDEVINFO, ByRef hpvDest As Integer, ByVal cbCopy As Integer)<br />
<br />
Public Structure RASIPADDR<br />
        Dim a As Byte<br />
        Dim b As Byte<br />
        Dim c As Byte<br />
        Dim d As Byte<br />
    End Structure<br />
<br />
Dim lpRasDevInfo As New RASDEVINFO<br />
        Dim lpcb As Integer = 0<br />
        Dim cDevices As Integer<br />
        Dim t_Buff As Integer<br />
        Dim nRet As Integer<br />
        Dim t_ptr As Integer<br />
        Dim i As Integer<br />
<br />
        lpcb = 0<br />
        lpRasDevInfo.Initialize()<br />
        lpRasDevInfo.dwSize = Len(lpRasDevInfo) + (Len(lpRasDevInfo) Mod 4)<br />
<br />
        nRet = iRasEnumDevices(0, lpcb, cDevices)<br />
<br />
        t_Buff = GlobalAlloc(GPTR, lpcb)<br />
<br />
        iCopyMemory(t_Buff, lpRasDevInfo, Len(lpRasDevInfo))<br />
<br />
        nRet = iRasEnumDevices(t_Buff, lpcb, lpcb)