DisplayName über VBA auslesen (Excel)

[Andidreas]

hallo zusammen,

mein administrator hat mir gerade gezeigt das hinter dem domain user mit dem man sich in windows anmeldet, auch einen display namen hinterlegen kann...
weiß hier zufällig jemand wie man diesen display namen in einem vba makro wieder auslesen kann? also ich möchte gerne denn display namen vom dem user ermitteln der das makro gestartet hat...

für tipps wäre ich sehr dankbar

[omata]

Vielleicht hilft dir das hier weiter.

[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