скрипт рекурсивно устанавливает всем пользователям домена атрибут "User must change password on next logon"

'скрипт рекурсивно устанавливает всем пользователям домена атрибут "User must change password on next logon" 'для корректной работы необходимо в переменной strMyDomain определить имя домена с точки зрения LDAP - 'т.е. все точки заменить на "DC=". Таким образом, домен argo.com превращается в DC=argo,DC=com 'в переменную strMyOU необходимо поместить наименование Organization Unit`а, юзеров которого необходимо подвергнуть 'процедуре изменения пароля. Dim strMyOU Dim strMyDomain Dim objOU, objUser Dim strContainer, strLastUser strMyOU = "argo" strMyDomain = "DC=argo,DC=com" sub recurs(ou) strContainer = "OU="+ou+"," + strMyDomain set objOU = GetObject("LDAP://" & strContainer ) For each objUser in objOU strLastUser = objUser.Get ("name") If objUser.Class="organizationalUnit" Then recurs(strLastUser+", OU="+ou) Elseif objUser.Class="user" Then objUser.Put "pwdLastSet", 0 objUser.SetInfo end if next end Sub recurs strMyOU WScript.Quit

Слова: Active Directory, AD, windows, script
Oct. 19, 2006 // 18:03 [ permalink : LJ ]