Option Explicit Dim objOU, objUser, objRootDSE Dim strLastUser, strDNSDomain, intCounter, intAccValue Dim strContainer(1), intCounter ' define the containers strContainer(0) = "OU=Support Manager's,OU=Help Desk - User's,OU=Adatum - User's," strContainer(1) = "OU=Support Shift's,OU=Help Desk - User's,OU=Adatum - User's," strContainer(2) = "OU=Development - Manager,OU=Development,OU=Adatum - User's," strContainer(3) = "OU=Development - Secretary,OU=Development,OU=Adatum - User's," strContainer(4) = "OU=Development - Team Manager's,OU=Development,OU=Adatum - User's," strContainer(5) = "OU=Development - Employee's,OU=Development,OU=Adatum - User's," strContainer(6) = "OU=Finance - Manager,OU=Finance,OU=Adatum - User's," strContainer(7) = "OU=Finance - Secretary,OU=Finance,OU=Adatum - User's," strContainer(8) = "OU=Finance - Team Manager's,OU=Finance,OU=Adatum - User's," strContainer(9) = "OU=Finance - Employee's,OU=Finance,OU=Adatum - User's," strContainer(10) = "OU=Marketing - Manager,OU=Marketing,OU=Adatum - User's," strContainer(11) = "OU=Marketing - Secretary,OU=Marketing,OU=Adatum - User's," strContainer(12) = "OU=Marketing - Team Manager's,OU=Marketing,OU=Adatum - User's," strContainer(13) = "OU=Marketing - Employee's,OU=Marketing,OU=Adatum - User's," strContainer(14) = "OU=Sale's - Manager,OU=Sale's,OU=Adatum - User's," strContainer(15) = "OU=Sale's - Secretary,OU=Sale's,OU=Adatum - User's," strContainer(16) = "OU=Sale's - Team Manager's,OU=Sale's,OU=Adatum - User's," strContainer(17) = "OU=Sale's - Employee's,OU=Sale's,OU=Adatum - User's," strContainer(18) = "OU=General Manager's,OU=Adatum - User's," Set objRootDSE = GetObject("LDAP://RootDSE") strDNSDomain = objRootDSE.Get("DefaultNamingContext") intAccValue = 544 For intCounter = 0 to 1 strContainer(intCounter) = strContainer(intCounter) & strDNSDomain set objOU =GetObject("LDAP://" & strContainer(intCounter)) intCounter = 0 For each objUser in objOU If objUser.class="user" then objUser.SetPassword "p@$$w0rd" objUser.SetInfo objUser.Put "userAccountControl", intAccValue objUser.SetInfo intCounter = intCounter +1 strLastUser = objUser.Get ("name") objuser.Put "pwdLastSet", CLng(0) objuser.SetInfo End if next Next WScript.Echo intCounter & " Users change pwd next logon. Value " _ & intAccValue WScript.Quit