109092
Nov 09, 2012, updated at 09:36:07 (UTC)
3672
0
0
Gewisse Attribute aus AD Auslesen per LDAP über ein VB Script - Problem bei der Anbindung einer zweiten OU
Hallo zusammen
Ich konnte leider nach einigen Stunden bei google noch immer keine Lösung für mein Problem finden. Ich möchte gewisse Werte, die für eine Telefonliste wichtig sind, per LDAP-Abfrage mittels VB Script abfragen. Das ganze funktioniert auch einwandfrei, bis zu dem Punkt, dass ich eine zweite OU zusätzlich abfragen möchte. Alle Schreibweisen führen nicht zum gewünschten Erfolg.
Ich möchte nun eine zweite OU namens "OU2" einbauen, was muss ich dafür machen?
Vielen Dank für die schnelle und gute Hilfe!
Gruß japi936
Hier mein Script:
Ich möchte nun eine zweite OU namens "OU2" einbauen, was muss ich dafür machen?
Vielen Dank für die schnelle und gute Hilfe!
Gruß japi936
Hier mein Script:
on error resume next
Pfad = "C:\...\user.txt"
set fso = CreateObject("Scripting.FileSystemObject")
set fsoFile = fso.CreateTextFile(Pfad, true)
Set OU = GetObject("LDAP://OU=OU1,DC=DC1,DC=de")
'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.mobile & " ; " ' Mobile
strOutput = strOutput & oUser.facsimileTelephoneNumber & " ; " ' Fax
strOutput = strOutput & oUser.physicalDeliveryOfficeName & " ; " ' Büro/Einrichtung
strOutput = strOutput & oUser.department & " ; " ' Abteilung
strOutput = strOutput & oUser.streetAddress & " ; " ' Straße
strOutput = strOutput & oUser.postalCode & " ; " ' PLZ
strOutput = strOutput & oUser.l & " ; " ' Ort
strOutput = strOutput & oUser.st & " ; " & vbCRLF' Bundesland
'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
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 193994
Url: https://administrator.de/contentid/193994
Printed on: April 26, 2024 at 05:04 o'clock
