g0dl!k3

Hi, erstmal Respekt für das tolle Script ist echt Klasse ! Ich habe es für meine Bedürfnisse angepasst und es läuft soweit wunderbar. Das einzigste was mir jetzt nocht fehlt ist der Haken bei "Benutzer kann Kennwort nicht ändern". Mit dem was auf Seite 6 oder 7 steht blick ich nicht ganz durch" Mein Script sieht immo wie folgt aus: ----------------------------------------------------------------------- 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) Sub BenuntzerAnlegen(Benutzer,Vorname,Nachname,Passwort) Dim ouo, b Set ouo = GetObject("LDAP://OU=LT's,DC=dom30,DC=local") Set b = ouo.Create("user", "CN=" & Vorname & " " & Nachname) Dim WshShell, ret Set WshShell = WScript.CreateObject("WScript.Shell") b.Put "sAMAccountName", Benutzer b.Put "displayName", Vorname & " " & Nachname b.Put "givenName", Vorname b.Put "sn", Nachname b.Put "userAccountControl", 66082 b.Put "userPrincipalName", Benutzer & "@DOM30.local" b.Put "profilePath", "\\te140-30-server\daten\profile\" & Benutzer b.Put "homeDirectory", "\\te140-30-server\daten\home\" & Benutzer b.Put "homeDrive", "H:" b.Put "scriptPath", "login.cmd" b.SetInfo b.SetPassword Passwort b.AccountDisabled = False b.SetInfo WScript.Sleep(1000) ret = WshShell.Run ("verz.cmd " & Benutzer,0,1) End Sub ----------------------------------------------------------------------- Was muss ich wo einfügen damit der Benutzer sein Kennwort nicht ändern kann ? Ich bedanke mich schonmal im Vorraus für Eure Hilfe ! Gruß