andreasgrothe
Jul 11, 2007, updated at Jul 16, 2007 (UTC)
view20944
view6
0
Goto Top

Adressbuch erstellen mit Daten des Active Directory

GermanQuestionVB for ApplicationsDevelopment
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
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 63556

Url: https://administrator.de/contentid/63556

Printed on: April 16, 2024 at 04:04 o'clock

6 Comments
Latest comment
Goto Top
Member: Xaero1982
Xaero1982 Jul 13, 2007 at 06:51:08 (UTC)
Goto Top
Ehm, inwieweit ist denn das AD ausgefüllt mit Adressdaten?
Name, Tel. etc oder wie soll das Adressbuch aussehen.
Member: AndreasGrothe
AndreasGrothe Jul 13, 2007 at 07:13:10 (UTC)
Goto Top
AD ist komplett gefülllt.
Ich will Name, Vorname, Beschreibung Mail und telefonnummer

Danke
Member: noizze
noizze Jul 15, 2007 at 21:14:23 (UTC)
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.
Member: Xaero1982
Xaero1982 Jul 16, 2007, updated at Dec 02, 2014 at 18:39:35 (UTC)
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
Member: ThomGo
ThomGo Dec 02, 2014 at 13:59:00 (UTC)
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 ...
Member: Xaero1982
Xaero1982 Dec 02, 2014 updated at 18:40:03 (UTC)
Goto Top
Echt jetzt? Einen 7 Jahre alten Beitrag? Und dann extra dafür registriert?
GermanQuestionVB for ApplicationsDevelopment