Thema Datum  Von Nutzer Rating
Antwort
Rot Excel VBA Macro LDAP/AD Abfrage E-Mail zu Displayname
 30.03.2015 10:01:16 Matze
NotSolved

Ansicht des Beitrags:
Von:
Matze		 Datum:
30.03.2015 10:01:16		 Views:
1058		 Rating:
     
Antwort:
  Ja
Thema:
Excel VBA Macro LDAP/AD Abfrage E-Mail zu Displayname

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?

    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

Vielen dank

Gruß Matze

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Excel VBA Macro LDAP/AD Abfrage E-Mail zu Displayname
 30.03.2015 10:01:16 Matze
NotSolved