"Kennwort läuft nie ab" per Script deaktivieren

[Götzi 10]

Hi,

 

ich wollt fragen, wie man die Option "Das Kennwort läuft nie ab" per vbs-Script deaktiveren kann.

 

Aktivieren kann ichs ja so:

 

Set usr = GetObject("LDAP://CN=jeffsmith,OU=Sales,DC=Fabrikam,DC=Com")

flag = usr.Get("userAccountControl")

newFlag = flag Or ADS_UF_DONT_EXPIRE_PASSWD

usr.Put "userAccountControl", newFlag

usr.SetInfo

 

 

Nur zum deaktivieren der Option hab ich nichts gefunden.

 

Götzi

[freak04 10]

Hallo,

 

 

bin mir nicht ganz sicher, aber versuch's mal so ...

...

newFlag = flag And not 65536

...

 

 

16 = Konto gesperrt

32 = kein kennwort erforderlich

64 = Kennwort kann nicht geändert werden

65536 = Konto läuft nie ab

 

 

mfg

[Götzi 10]

Vielen Dank, hat geklappt

 

Götzi