Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

NDS
Autor: RGudi
Datum: 28.01.05 14:30
Hallo, habe hier ein Stück code mit dem ich die NDS auslesen will, komm auch drauf, und bekomme als wert den Login zurück. Mein Problem ist ich will alle daten von einem Anwender, was mach ich falsch, hilfe wäre echt toll. Hier mein Code: Dim Login Dim ds As New DirectorySearcher("(&(objectCategory=User)(objectClass=Person))") Dim resultset As SearchResultCollection Dim result As SearchResult Dim ResultFields() As String = {"CN"} With ds 'Set the container I want to search (.admin.Fender.user.novell) .SearchRoot = New DirectoryEntry("LDAP://HLPDSK") 'Use the array set above for return fields .PropertiesToLoad.AddRange(ResultFields) 'Set a filter/query .Filter = "objectclass=person" '("(&(objectCategory=User)(objectClass=user))") End With Try 'Perform the search resultset = ds.FindAll() If resultset.Count > 0 Then For Each result In resultset Login = (result.Properties("CN")(0)) ' Nachname = (result.Properties("cn")(1)) 'Console.WriteLine(result.Properties("securityEquals")(0)) Next Else 'No results MsgBox("No Data Found") End If Catch ex As Exception MsgBox(ex.Message) Exit Sub End Try Was du heute kannst besorgen.....

NDS

1.041

RGudi

28.01.05 14:30

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen