Excel VBA Macro LDAP/AD Abfrage E-Mail zu Displayname

[Matzekais]

Hallo zusammen,

ich würde gerne ein Macro erstellen mit dem ich eine Liste von E-Mail Adressen per LDAP/AD Abfrage in den Displaynamen und NT-User auflösen kann(jeweils neue Spalten).
Ich habe bereits eine Möglichkeit wie ich einen NT-User in den Displaynamen auflösen kann, komme aber auf keinen grünen Zweig mit den anderen Funktionen.
Hat einer von euch vielleicht eine Idee?

Code: [Auswählen]

Private Sub CommandButton1_Click()
      On Error Resume Next
       strDomain = Range("b2")
      Range("b6:b65000").Clear
        Dim user As ActiveDs.IADsUser
        Dim strPath As String
     ' Application.Cursor = xlWait
        strPath = "WinNT://" & strDomain & "/"
        Dim r As Range
      Set r = Range("a7")
      While Not r.Value = ""
        Set user = GetObject(strPath & r.Value & ",user")
        r.Offset(0, 1) = user.FullName
        DoEvents
        Set r = r.Offset(1)
      Wend
     ' Application.Cursor = xlDefault
    End Sub

Ich habe in Spalte D ab Zeile 16 die E-Mail Adressen stehen.

Vielen dank

Gruß Matze