User auslesen mit Hilfe von LDAP

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von holzwurm.

    User auslesen mit Hilfe von LDAP

    Hallo nochmal,

    da ich nicht wirklich mit auslesen der LDAP vertraut bin, helfen mir die bestehenden Beiträge leider nicht.

    Ich möchte das durch die Eingabe vom Userkürzel, der vollständige Name User ausgelesen wird und dieser Name dann in einer Textbox erscheint. Mir wurde der Tipp gegeben, das man dies mit Hilfe der LDAP ausgeben könnte.

    Wie bewerkstellige ich das?

    Es geht sich darum, das das Kürzel manuel in einer Textbox eingeben wird und mit Hilfe des eingeben Kürzel soll dann der volle Name angezeigt werden. Zum Beispiel: eingebendes Kürzel "deabcd", angezeigter Name "Müller, Klaus"

    @Coldpepp: Nicht schlimm, vielleicht habe ich dadurch mein Problem besser darstellen können.

    habe nur diesen Code gefunden...

    VB.NET-Quellcode

    1. ' ============================
    2. ' .NET-Code-Beispiel in Visual Basic .NET
    3. ' Ausführen einer LDAP-Suche im AD
    4. ' (C) Holger@Schwichtenberg.de
    5. ' ============================
    6. Sub ADS_suche()
    7. Dim suche As DirectorySearcher
    8. Dim ergebnisliste As SearchResultCollection
    9. Dim ergebnis As SearchResult
    11. out("# Suchanfrage im ADS")
    13. ' --- Suchanfrage
    14. Const suchanfrage = "(&(objectclass=user)(cn=h*))"
    15. ' --- Instanziierung der Klasse
    16. suche = New DirectorySearcher()
    17. ' --- Festlegung des Ausgangspunkts
    18. suche.SearchRoot = New DirectoryEntry(LDAProot)
    19. ' --- Festlegung der LDAP-Query
    20. suche.Filter = suchanfrage
    22. ' --- Ort einbeziehen
    23. suche.PropertiesToLoad.Add("l")
    24. suche.PropertiesToLoad.Add("Description")
    25. ' --- Suchtiefe festlegen
    26. suche.SearchScope = SearchScope.Subtree
    27. ' --- Suche starten
    28. ergebnisliste = suche.FindAll()
    29. ' --- Ergebnismenge ausgeben
    30. For Each ergebnis In ergebnisliste
    31. ' --- Ergebnis lesen
    32. out(getAtt(ergebnis, "Name") & " wohnt In " & _
    33. getAtt(ergebnis, "l"))
    34. out(getAtt(ergebnis, "Description"))
    35. ' --- Ergebnis verändern
    36. Dim de As DirectoryEntry = ergebnis.GetDirectoryEntry
    37. de.Properties("description").Clear()
    38. de.Properties("description").Add("Benutzer mit 'H'")
    39. de.CommitChanges()
    40. Next


    allerdings erscheinen Fehlermeldungen, dass DirectorySearch nicht definiert sei. Laut Seite it-visions.de/lserver/CodeSampleDetails.aspx?c=2878 sollte aber die Aktivierung von System.DirectoryServices reichen und diese sind aktiviert....

Facebook
Telefonspende