Bitnaper

He super, das script funzt musste aber noch ein par Kleinichkeiten ändern und zwar bei einem deutschen system muss es auch in deutsch da steht "NT-Autorität\selbst" und "NT-Autorität\JEDER" sonst bringt er nen fehler. Vielen Dank erstmal habt mir sehr geholfen. Gruß Stefan

was mir da auch fehlt ist das mit dem Benutzer kan Kennwort nicht ändern und Kennwort läuft nicht ab. Gibt es niemand der das schnell in VBS schreiben könnte?

kann ich da auch festlegen an welchem PC sich der user nur anmelden darf? habe nix dazu nachlesen können

Also der Aufbau der TExtdatei ist eigentlich einfach: Benutzer1,Nachname1,Passwort1,Computer1 Benutzer2,Nachname2,Passwort2,Computer2 Benutzer3,Nachname3,Passwort3,Computer3 DAs Tool ist gut aber er kommt mit meiner exeltabele einfach nicht klar hab die aus dem Beispiel von dem Programm geändert aber das Progi sagt das es nicht geht

Hallo, hab ein großes Problem muss jede menge User anlegen und würde mir die arbeit gerne etwas erleichtern indem ich ein Script benutze das mir die Userdaten aus einer Textdatei holt benutze. Ich hab folgendes Problem ich kann kein VBS daher ist es für mich schwierig bestehende VBS Scripte zu bearbeiten und an meien Bedürfnisse anzupassen. Ich hoffe es ist jemand so net und würde mir das unten genannte script so anpassen das es: User anlegt mit dem Namen + Anmeldename(gleich wie name), Das Passwort aus der Txt nimmt, Das Passwort nie abläuft, Das Passwort nicht änderbar ist, Homeverzeichnisse und Scripts brauche ich nicht, Domäne ist "schulgao.de", Die User dürfen sich nur an einem PC anmelden welcher auch in TXT steht so jetzt das Script 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) Nachname = Feld(1) Passwort = Feld(2) Computer = Feld(3) Call BenuntzerAnlegen(Benutzer,Nachname,Passwort,Computer) Loop f.Close Wscript.Quit(0) Sub BenuntzerAnlegen (Benutzer,Nachname,Passwort,Computer) Dim ouo, b Const ADS_UF_PASSWD_CANT_CHANGE = &H0040 Const ADS_UF_DONT_EXPIRE_PASSWD = &H10000 Set ouo = GetObject("LDAP://OU=users,DC=SCHULGAO,DC=de") Set b = ouo.Create("user", "CN=" & " " & Nachname) Dim WshShell, ret Set WshShell = WScript.CreateObject("WScript.Shell") b.Put "sAMAccountName", Benutzer b.Put "userPrincipalName", Benutzer & "@schulgao.de" b.SetInfo b.SetPassword Passwort b.AccountDisabled = False objPasswordNoChangeFlag = ADS_UF_PASSWD_CANT_CHANGE b.Put "userFlags", objPasswordNoChangeFlag objPasswordDontExpireFlag = ADS_UF_DONT_EXPIRE_PASSWD b.Put "userFlags", objPasswordDontExpireFlag b.SetInfo WScript.Sleep(1000) End Sub Vielen Vielen Dank schonmal im vorraus Gruß Stefan