Option Explicit
Dim objOU, objUser, objRootDSE
Dim strContainer, strDNSDomain, strPassword, intAccValue

‘ Bind to Active Directory Domain
Set objRootDSE = GetObject(« LDAP://RootDSE« )
strDNSDomain = objRootDSE.Get(« DefaultNamingContext »)

‘ ————————————————————-‘
‘ Important change OU= to reflect your domain
‘ ————————————————————-‘
strContainer = « OU=Import,DC=ac-rouen,DC=FR »
strPassword = « SCSI »
strContainer = strContainer & strDNSDomain
intAccValue = 512

‘ Loop through OU=, setting passwords for all users
set objOU =GetObject(« LDAP:// » & strContainer )
For each objUser in objOU
If objUser.class= »user » then
objUser.SetPassword strPassword
objUser.Put « userAccountControl », intAccValue
objUser.Put « PwdLastSet », 0
objUser.SetInfo
End If
Next

WScript.Quit