'Ausschnitt aus dem Teil der Funktion WNet_DoServerConnection den du benötigst :
 
 
' Alle Netzlaufwerke durchlaufen und UNC-Pfad mit
  ' benötigten Netzwerkpfad vergleichen
  sDrives = GetAllDrives(DRIVE_REMOTE)
  For i = 1 To Len(sDrives)
    sDrive = Mid$(sDrives, i, 1) & ":"
 
    ' UNC-Pfad ermitteln
    sPath = Space$(512)
    If WNetGetConnectionA(sDrive, sPath, _
      Len(sPath)) = 0 Then
 
      ' Handelt es sich um den gesuchten Server-Pfad?
      sPath = Left$(sPath, InStr(sPath, vbNullChar) - 1)
 
   'jetzt musst du statt den kompletten Pfad zu vergleichen nur schauen ob der 
   ' Pfad mit // anfängt. Wenn ja ist es ein Netzlaufwerk.