DirectoryServices.SearchResult

  • VB.NET
  • .NET (FX) 4.5–4.8

    DirectoryServices.SearchResult

    Hallo,

    ich hab mal wieder ein Problem,

    die Idee erstmal. Ich möchte aus der ActiveDirectory die User namen , die Durchwahl und die E-Mail Adresse auslesen, das funktioniert soweit auch gut.

    Die Ergebnisse werden mir Zeilenweise ausgegeben.

    Aber:

    Wenn z.B ein user keine Durchwahl hat wird an dieser stelle die Suche abgebrochen, ich Probiere jetzt schon einige Zeit rum, aber ohne Erfolg.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Dim UserID As String
    2. Dim RootDSE As New DirectoryServices.DirectoryEntry("LDAP://EINEIP")
    3. Dim DomainDN As String = CType(RootDSE.Properties("DefaultNamingContext").Value, String)
    4. Dim ADEntry As New DirectoryServices.DirectoryEntry("LDAP://HIERKÖNNTEIHREWERBUNGSTEHEN" & DomainDN)
    6. Dim objSearch As New System.DirectoryServices.DirectorySearcher(ADEntry)
    7. Dim oResults As DirectoryServices.SearchResultCollection
    8. Dim oResult As DirectoryServices.SearchResult
    10. Dim i As Integer
    12. i = 1
    14. UserID = "*."
    15. objSearch.Filter = "(& (objectClass=Person)(cn=*" & "))"
    16. oResults = objSearch.FindAll
    18. For Each oResult In oResults
    19. If oResult.GetDirectoryEntry.Properties("telephoneNumber").Value IsNot Nothing _
    20. And oResult.GetDirectoryEntry.Properties("cn").Value IsNot Nothing _
    21. And oResult.GetDirectoryEntry.Properties("mail").Value IsNot Nothing _
    22. And oResult.GetDirectoryEntry.Properties("mobile").Value IsNot Nothing Then
    23. ListBox1.Items.Add(oResult.GetDirectoryEntry.Properties("telephoneNumber").Value.ToString() & " " _
    24. & oResult.GetDirectoryEntry.Properties("cn").Value.ToString() & " " _
    25. & oResult.GetDirectoryEntry.Properties("mail").Value.ToString() _
    26. & oResult.GetDirectoryEntry.Properties("mobile").Value.ToString())
    28. i = i + 1
    29. End If
    31. Next
    33. '** Wir bringen den Müll weg **
    34. GC.Collect()
    35. Catch ex As Exception
    36. Return
    37. End Try


    Also an der Stelle wenn der Rückgabe wert quasi 0 ist, aus dem Feldnamen telephoneNumber oder eben mobil, soll er dennoch weiter suchen. CN wenn keiner mehr da ist kann er ja aufhören zu suchen ^
    Für einen Tipp währe ich sehr dankbar


    oh man.. fast schon peinlich, habs hinbekommen .. :)

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Blackn0va“ ()

Facebook
Telefonspende