Hallo ich habe ein Script angepasst um bei bestehenden Benutzern zusätzliche Daten ins profil zu bekommen.
Dazu gibt es eine textdatei in der die Daten stehen (im Format:
"Benutzername","zusätzliche Info")
Will ca. 3000 User damit updaten.
Mein problem ist das ich nicht rausbekomme wie ich den einzelnen user den ich updaten will im LDAP auswähle:
Ich hoffe mein Anfang ist schonmal richtig ?
Set ouo = GetObject("LDAP://CN=users,DC=sonne,DC=google,DC=de")
Der Benutzer befindet sich in der OU Mitarbeiter, darunter existiert noch eine OU Marketing
wie baue ich in den LDAP String die Variable "Benutzer" ein ?
Dim fso, f, Zeile, Feld
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile ("user.txt",1,0)
Do while not f.AtEndOfLine
Zeile = f.readLine
Feld = split(Zeile,",")
Benutzer = Feld(0)
Buro = Feld(1)
Call change(Benutzer,Buro)
Loop
f.Close
wscript.echo "Benutzer geändert"
Wscript.Quit(0)
Sub change (Benutzer,Buro)
Dim ouo
Set ouo = GetObject("LDAP://CN=users,DC=sonne,DC=google,DC=de")
ouo.Put "company", Buro
ouo.SetInfo
WScript.Sleep(1000)
End Sub
Vielen Dank schonmal