Elencare le Connessioni di Accesso Remoto

In un modulo Bas inserire:

Option Explicit

'modulo per trovare tutte le connessioni di
'accesso remoto presenti nel sistema
Public Type RASENTRYNAME95
dwSize As Long
szEntryname(256) As Byte
End Type

Public Declare Function RasEnumEntriesA Lib "RasApi32.DLL" _
(ByVal reserved As String, ByVal lpszPhonebook As String, _
lprasentryname As Any, lpcb As Long, lpcEntries As Long) _
As Long

Public Sub Connessioni_AccessoRemoto(AccessiRemoti() As String)
Dim s As Long, ln As Long, conname As String, i As Long
Dim r(255) As RASENTRYNAME95

r(0).dwSize = 264
s = 256 * r(0).dwSize
Call RasEnumEntriesA(vbNullString, vbNullString, r(0), s, ln)
ln = ln - 1
ReDim AccessiRemoti(ln)
For i = 0 To ln
conname = StrConv(r(i).szEntryname(), vbUnicode)
AccessiRemoti(i) = Left$(conname, InStr(conname, vbNullChar) - 1)
Next i
End Sub

In un Form inserire una ComboBox ed il seguente codice:

Option Explicit

Private Sub Form_Load()
Dim AccessiRemoti() As String, i As Integer
Connessioni_AccessoRemoto AccessiRemoti
For i = 0 To UBound(AccessiRemoti)
Combo1.AddItem AccessiRemoti(i)
Next
End Sub

Testato su: Windows 98, Windows Me, Windows 2000 Professional