DisplayName über VBA auslesen (Excel)

[Andidreas]

@omata...
vielen dank für den link... der hat mich auf den richtigen weg gebracht...
aber es gibt noch eine viel einfachere und kürzere lösung als in dem forenbeitrag beschrieben:

Code:

Sub DisplayName()

Dim ObjSysInfo, ObjUser         As Object
Dim StrUserDN                   As String

    'Retrive User DN
    Set ObjSysInfo = CreateObject("ADSystemInfo")
    StrUserDN = ObjSysInfo.UserName

    'Bind To User Object
    Set ObjUser = GetObject("LDAP://" & StrUserDN)

    'Show Display Name of User
    MsgBox ObjUser.DisplayName, vbOKOnly, "Display Name"

End Sub