andreasgrothe
Goto Top

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

Content-ID: 63556

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

Ausgedruckt am: 07.04.2025 um 11:04 Uhr

Xaero1982
Xaero1982 13.07.2007 um 08:51:08 Uhr
Goto Top
Ehm, inwieweit ist denn das AD ausgefüllt mit Adressdaten?
Name, Tel. etc oder wie soll das Adressbuch aussehen.
AndreasGrothe
AndreasGrothe 13.07.2007 um 09:13:10 Uhr
Goto Top
AD ist komplett gefülllt.
Ich will Name, Vorname, Beschreibung Mail und telefonnummer

Danke
noizze
noizze 15.07.2007 um 23:14:23 Uhr
Goto Top
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.
Xaero1982
Xaero1982 16.07.2007, aktualisiert am 02.12.2014 um 19:39:35 Uhr
Goto Top
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 face-smile

PS: Ach ja speichern als *.vbs
ThomGo
ThomGo 02.12.2014 um 14:59:00 Uhr
Goto Top
Es gibt einen interessanten Lösungsansatz mit einer Freeware (FirstWare) hier:
http://www.active-directory-faq.de/2014/12/ad-basiertes-intranet-telefo ...
Xaero1982
Xaero1982 02.12.2014 aktualisiert um 19:40:03 Uhr
Goto Top
Echt jetzt? Einen 7 Jahre alten Beitrag? Und dann extra dafür registriert?