Set objUser = GetObject _ AUS DATEI

[Akai_1 10]

Guten Tag,

 

ich bin gerade an einem Exchange 2003 Projekt und habe folgendes Problem:

 

Ich muss die Userdaten im AD verändern, um sie für ein Perlscript aufzubereiten. Wie kann ich VBS dazu bringen, mir eine Textdatei auszulesen, den Wert zu setzen und dann mit der nächsten Zeile fortzufahren?

 

 

 

Set objUser = GetObject _ 
("LDAP://cn=Name Vorname,ou=Beispiel,dc=bla,dc=laberlaber,dc=de") 

objUser.SetPassword "beispiel"

 

Dies Funktioniert nun für einen User... Ich habe mit ldifde die user in das entsprechede LDAP Format gebracht und würde das ganze nun gerne in dieser Richtung laufen lassen:

 

 

Set objUser = GetObject _ 
("LDAP:// AUS DATEI c:\env ZEILE 1-EOF") 

objUser.SetPassword "beispiel"

 

 

 

Die TXT hat diesesn Inhalt

 

cn=Name1 Vorname1,ou=Beispiel,dc=bla,dc=laberlaber,dc=de

cn=Name2 Vorname2,ou=Beispiel,dc=bla,dc=laberlaber,dc=de

usw...

 

Wie kann ich das Anstellen? Vielen Dank für Hilfestellungen.

 

Beste Grüße

 

Akai

[CoolAce 17]

Hy

 

bin zwar kein Skript Freak aber würde dir mal efolgendes empfehlen zu testen

musst halt noch anpassen

 

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)

Vorname = Feld(1)

Nachname = Feld(2)

Passwort = Feld(3)

Call BenuntzerAnlegen(Benutzer,Vorname,Nachname,Passwort)

Loop

f.Close

Wscript.Quit(0)

 

Dieser hammer geile Skript auszug stammt übrigens von thorgood seinem Thread

 

Gruß

 

CoolAce :cool: