VisualBasic (VBA) LDAP FullName für user ID "XYZ" ausgeben lassen

[ShokiNN]

Moin Moin liebe CB'ler,
ich bin zz. am verzweifeln ich benötige eine LDAP Anbindung, die mir dann den FullName "Nachme, Vorname (Abteilung)" ausgibt, den Code für den aktuell angemeldeten User habe ich schon fertig aber den für nicht angemeldete finde ich einfach nicht und bekomme es leider auch nicht hin -.- .

Es soll der/die username/n genommen werden, der/die im unteren textfeld steht/stehen. Mehre sollen via Komma getrennt werden.

Hier ist der Code, wie ich den FullName zum aktuellen User auslese:

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)

bearbeiter = objuser.FullName

Me.txtbx_bearbaendern_ueberpruefen = bearbeiter

Schon mal Vielen Dank im Voraus
LG
ShokiNN'

 

[Brinox]

Ich habe auf der Arbeit den Code dafür rumfliegen, ich könnte dir Montag Bescheid geben. Ich hole mir dabei ein Userobjekt über RootDSE und greife dann den Namen per Property ab. Ganz genau hab ichs aber nicht mehr im Sinn.

 

[ShokiNN]

Super das wäre wirklich klasse! Dann haben die Frustrationen und Agressionen endlich ein Ende