VB script

[Odoggy5]

just starting messing with some scripts for AD wondering if somebody could help meout with this one. This script unchecks the password never expires value for a user, how can I do the opposite and put a check mark in that option?

CONST ADS_UF_DONT_EXPIRE_PASSWD = &h10000
Set objUser = GetObject _
 ("LDAP://cn=pos2000,ou=pos2000 users,dc=rtd02590,dc=local")
intUAC = objUser.Get("userAccountControl") 

If intUAC AND _
 ADS_UF_DONT_EXPIRE_PASSWD Then
 objUser.Put "userAccountControl", intUAC XOR _
  ADS_UF_DONT_EXPIRE_PASSWD
 objUser.SetInfo
End If

[Oscar]

userAccountControl is an additive parameter, so it's made up of x + y + z to determine which permissions etc the user has. For example, if a user has a value of 512 (Normal), the value for "Password not required" is 32, so to set the account to not require a password, set the userAccountControl to 512+32=544
You can get a more comprehensive list of the codes from http://www.computerperformance.co.uk/ezine/ezine23b.htm