Sub ListNetworkDirves()
Dim WSH As Object
Dim oDrives As Object
Dim i As Integer
Set WSH = CreateObject("WScript.Network")
Set oDrives = WSH.EnumNetworkdrives
For i = 0 To oDrives.Count - 1 Step 2
Debug.Print oDrives.Item(i) & " = " & oDrives.Item(i + 1)
Next i
End Sub