NT4 Server - Benutzerscript zum einrichten vieler User per Batch

Automatisierte Eingabe von "Can't password change" funktioniert nicht. Wo sind die Scripter unter Euch?

Hallo ZUSAMMEN,

wie der Titel schon sagt, mein Script zum Anlegen von Usern unter NT4-Server funktioniert leider nicht einwandfrei. Leider wird ein bestimmter UserFlag nicht gesetzt, der es dem User nicht gestatten soll, dass er sein Passwort ändern kann: NewUser.Put "UserFlags", Flags OR &H00040 - wahrscheinlich liegt der Fehler bei mir, aber meine bisherigen Recherchen brachten keinerlei Erfolg. Wenn ich den Flag setze, dass der User sein Passwort bei der ersten Anmeldung ändern muss klappt es ('NewUser.Put "PasswordExpired", CLng(1)), aber es entspricht nicht der Anforderung die ich habe.

Jetzt hoffe ich auf Eure Hilfe bzw. Euer Wissen.....

Gruß Kohli


Script

Sub OneProfile(Benutzer,Vorname,Nachname,Passwort,Klasse) 'Übergabe der Parameter
On Error Resume Next

LogonScript = "login.bat"
'UserHome = "\\" & dcsrv & "\" & Benutzer & "$"
if Benutzer = "schueler" then
UserProfile = "\\" & dcsrv & "\" & ProfileDir & "$\" & "schueler"
Else
UserProfile = "\\" & dcsrv & "\" & ProfileDir & "$\" & "masterp"
End if

Set NewUser = oDomain.Create("user",Benutzer)
NewUser.FullName = Vorname & " " & Nachname
if Benutzer <> "schueler" then
if Benutzer <> "masterp" then
NewUser.HomeDirectory = UserHome
NewUser.Description = "Schueler, Profil angelegt am: " & datum
End if
End if
if Benutzer = "schueler" then
NewUser.Description = "Profil für den Benutzer 'schueler', erstellt am: " & datum
End if
if Benutzer = "masterp" then
NewUser.Description = "Master Profil, wird von allen Schuelern verwendet."
End if
NewUser.Profile = UserProfile
NewUser.LoginScript = LogonScript
if Benutzer = "schueler" then
NewUser.SetPassword("Pa$$w0rd")
Else
NewUser.SetPassword(Passwort)
End if
If Benutzer <> "schueler" then
'NewUser.Put "PasswordExpired", CLng(1)
NewUser.Put "UserFlags", Flags OR &H00040
End if
NewUser.SetInfo