Active Directory auslesen

[Accesser11]

Hallo zusammen

Wie kann ich mit VBA in Access das Active Directory auslesen? Ich möcht gerne den Benutzernamen, den Vornamen und den Nachname angezeigt haben.
Bitte um entsprechenden Code.

Vielen Dank dür für die prompte Hilfe!
Accesser11

[Hondo]

Hallo,
sieh mal hier:
https://groups.google.com/group/de.comp.datenbanken.ms-access...
Gruß Andreas

[Accesser11]

Gibt es nichts einfacheres?

[database]

Hallo,

vielleicht gefällt dir das hier besser:

http://www.vbarchiv.net/tipps/tipp_1518-benutzer-der-gegenwaertigen-domaene-auslesen.html

HTH

[Accesser11]

Hallo zusammen

Vielen Dank für Eure Hilfe.

Ich habe einen simplen Code gefunden, welcher meine Anforderungen erfüllt.

Code (vb) [Auswählen] Erweitern

On Error Resume Next
Dim qQuery, objSysInfo, objuser
' Active Directory Informationen für den angemeldeten User lesen
Set objSysInfo = CreateObject("ADSystemInfo")
objSysInfo.RefreshSchemaCache
qQuery = "LDAP://" & objSysInfo.UserName
Set objuser = GetObject(qQuery)
Bezeichnungsfeld186.Caption = objuser.FullName

Über objuser können noch weitere Werte angezeigt werden.

@database: Leider hat dieser Code bei mir nicht funktioniert.

Viele Grüsse
Accesser11