Re: Angemeldeter Benutzer

Tech-Archive recommends: Speed Up your PC by fixing your registry



"Raphael Boos" wrote:



"Armin Zingler" wrote:

"Raphael Boos" <RaphaelBoos@xxxxxxxxxxxxxxxxxxxxxxxxx> schrieb

System.Data.Dll (auf dem .Net-Reiter). Ist standardmäßig bei neuen
Projekten schon referenziert.
ADO.Net-Doku:
http://msdn.microsoft.com/de-de/library/e80y5yhx.aspx (und
natürlich [F1])


wurde dank Peter Götz anders gelöst, trotzdem thx :)


Wenn Du den Hinweis auf System.DirectoryServices meinst, den hast du von mir
schon vorher erhalten. :)


Ja. Wird wahrscheinlich so sein. Danke auch dir :)

Nur hab ich jetzt ein Problem. Ich habe jetzt alles (fast alles) mit
System.DirectoryServices gemacht. Zuerst einmal mein Code:

Dim DirEntry As New
System.DirectoryServices.DirectoryEntry("LDAP://dc=Meine,dc=Domain";)
Dim DirSearcher As New
System.DirectoryServices.DirectorySearcher(DirEntry)
Dim result As System.DirectoryServices.SearchResult


strBenutzer = Environment.UserName

DirSearcher.Filter =
"(&(objectClass=user)(objectCategory=person)(samAccountName=" & strBenutzer &
"))"
DirSearcher.SearchScope = DirectoryServices.SearchScope.Subtree

For Each result In DirSearcher.FindAll()

'Daten des Benutzers in Variablen schreiben
DirSearcher.PropertiesToLoad.Add("givenName")
strVorname = result.Properties("givenName").Item(0)


Das funktioniert irgendwie nicht. Gibt immer eine Fehlermeldung aus:
Der Index lag außerhalb des Bereichs. Er muss nicht negativ und kleiner als
die Auflistung sein. Parametername: index


Wie muss ich den Code umstellen bzw. verändern, damit es geht? Oder habe ich
etwas vergessen oder falsch gemacht?

Und kann ich statt bei "LDAP://dc=Meine,dc=Domain"; auch irgendwie
"LDAP://rootDSE"; nehmen?

Mfg Raphael

Also, hab jetzt Try-Catch versucht und voilà, es funktioniert. Das lag
daran, das wenn ein Feld leer ist, dass dann diese Fehlermeldung kommt.

Nun ist eben noch die Frage mit diesem rootDSE..

Und nicht zu vergessen, die drei unteren vom ersten Beitrag :)
.

Relevant Pages

  • Fehler bei Aktualisierung von Kontrollbox
    ... einen anderen Datensatz auswähle kommt diese Fehlermeldung. ... Dim rs As DAO.Recordset ... Set rs = Me.RecordsetClone ... > wollte ich mir alle Datensaetze einer Tabelle in einer Kontrollbox anzeigen ...
    (microsoft.public.de.access)
  • Fehler beim Speichern einer Excel-Arbeitsmappe
    ... Mein Wunsch ist, aus einem Word-Dokument eine Excel-Mappe zu ... bearbeiten. ... Dim xlapp As New Excel.Application ... Anpassungen gab es zwar keine Fehlermeldung mehr, ...
    (microsoft.public.de.word.vba)
  • Re: mehrere Buttons dynamisch erstellen
    ... > einen unterschiedlichen Index. ... Ziehe dazu zur Entwurfszeit einen CommandButton auf Deine Form. ... Dim sngH As Single ...
    (microsoft.public.de.vb)
  • Warum "Aufgerufener ist ungültig"?
    ... Fehlermeldung, die andere nicht. ... Dim ie As New SHDocVw.InternetExplorer ... test = ie.Document.frames.name '<-- Hier kommt der Fehler ... Weiß jemand, ...
    (microsoft.public.de.german.entwickler.dotnet.vb)
  • Re: Zahlen vergleichen und Rangliste
    ... > Dim ZahlenAs Single ... > Next Zaehler ... > Dim MinIndex As Integer ... > Dim Index As Integer ...
    (microsoft.public.de.vb)