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
Hallo,
sieh mal hier:
https://groups.google.com/group/de.comp.datenbanken.ms-access... (https://groups.google.com/group/de.comp.datenbanken.ms-access/browse_thread/thread/c876e6d8402c4730/a0a406356910dabb?hl=de&lnk=gst&q=Active+Directory#a0a406356910dabb)
Gruß Andreas
Gibt es nichts einfacheres?
Hallo,
vielleicht gefällt dir das hier besser:
http://www.vbarchiv.net/tipps/tipp_1518-benutzer-der-gegenwaertigen-domaene-auslesen.html (http://www.vbarchiv.net/tipps/tipp_1518-benutzer-der-gegenwaertigen-domaene-auslesen.html)
HTH
Hallo zusammen
Vielen Dank für Eure Hilfe.
Ich habe einen simplen Code gefunden, welcher meine Anforderungen erfüllt. ;D
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