Modify User Password Settings and Account Expiration Date

Description:
Script that performs three functions for all the users in organizational unit:
1) Ensures that all passwords will expire;
2) Requires users to change their password;
3) Assigns an expiration date to the user account.

Language: VBScript
Script Code

Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000
set colItems = GetObject ("LDAP://ou=put_your_OU, dc=put_your_domaint, dc=com")

colItems.Filter = Array("user")
For Each objUser in colItems
'--Remove Non-Expiring Password
intUAC = objUser.Get("userAccountControl")

If ADS_UF_DONT_EXPIRE_PASSWD AND intUAC Then
objUser.Put "userAccountControl", intUAC XOR ADS_UF_DONT_EXPIRE_PASSWD
objUser.SetInfo
End If
'--Require Users to Change Their Password
objUser.Put "pwdLastSet", 0
objUser.SetInfo

'-- Put Expiration Date to user account
objUser.AccountExpirationDate = "07/30/2007"
objUser.SetInfo
Next

Script In Microsoft Site