Adressbuch erstellen mit Daten des Active Directory

Würde meinen Kollegen gerne ein Adressbuch auf Basis der Active Directory Daten zur Verfügung stellen.
Was würdet ihr für eine gute Lösung halten? Möglichst einfach zu realsieren.

Danke

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 63556

Url: https://administrator.de/forum/adressbuch-erstellen-mit-daten-des-active-directory-63556.html

Ausgedruckt am: 27.04.2025 um 19:04 Uhr

6 Kommentare

Neuester Kommentar

Ehm, inwieweit ist denn das AD ausgefüllt mit Adressdaten?
Name, Tel. etc oder wie soll das Adressbuch aussehen.

AD ist komplett gefülllt.
Ich will Name, Vorname, Beschreibung Mail und telefonnummer

Danke

Hi,
wenn alles ausgefüllt ist, ist das kein Problem.
Einfach Adressbuch Software deiner Wahl nutzen wie Outlook, Thunderbird, Notes .... .
Eigentlich unterstützen alle Email Clients LDAP, dort dann einfach Servername des AD, Basis-DN und bei AD wichtig, da anonyme LDAP abfrage standardmäßig nicht erlaubt ist, Bind-DN eines Benutzers aus dem AD inkl Password angeben.

Falls es bei der Zuordnung der Felder Probleme gibt, einfach am Email-Client zuordnung ändern.
zum Beispiel sn = Vorname, givenname = Nachname, müsste aber Standardmäßig funktionieren.

Also, ich weiß ja nicht wie dein AD aufgebaut ist, aber lade dir mal das Tool jose runter. Damit kannst du dir erst mal einen Überblick verschaffen.

Anschließend kannste mit dem folgenden Script:
Name, Email, Beschreibung, Telefonnummer

on error resume next

Pfad = "c:\user.txt"  

set fso = CreateObject("Scripting.FileSystemObject")  
set fsoFile = fso.CreateTextFile(Pfad, true)

'Hier entsprechende Einträge machen; Vorher z.B. mit Jose auslesen und LDAP Namen kopieren  
Set OU = GetObject("LDAP://OU=Organisationseinheiten,DC=domäne,DC=rechterTeilDerDomäne")  

'Setup um alle User in der oben genannten OU zu ändern.  
'Gather each user name.  
For Each oUser in OU

'Sicherstellen das NUR User Klasse.  
if oUser.Class = "user" Then  
'Überprüfen, ob Name nicht leer ist  
    if oUser.sn <> "" then  
        strOutput = strOutput & oUser.sn & ", " 'Vorname  
        strOutput = strOutput & oUser.givenname & " ; " 'Nachname  
        strOutput = strOutput & oUser.mail & " ; " 'Mail  
        strOutput = strOutput & oUser.telephoneNumber & " ; " ' Telefon  
        strOutput = strOutput & oUser.description  & " " & vbcrlf ' Beschreibung  
    End If
End if

'Objekt schließen.  
Set oUser = Nothing

Next

fsoFile.WriteLine strOutput

WsCript.echo "OU Update fertig"  
WsCript.Quit

Evtl. musst du noch entsprechende Delimiter einfügen. Es wird dann als Textdatei gespeichert, die man entsprechend formatiert, importieren kann.

Vielleicht bekommste es ja hin