User must change password on next logon
Запись создана 12 марта, 2008
'скрипт рекурсивно устанавливает всем пользователям домена атрибут "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 = "+ou)
Elseif objUser.Class="o,DC=com"
sub recurs(ou)
strContainer = "OU="+ou+"," + strMyDomain
set objOU = GetObject("LDAP://" & strCon
'атрибут "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 = "+ou)
Elseif objUser.Class="o,DC=com"
sub recurs(ou)
strContainer = "OU="+ou+"," + strMyDomain
set objOU = GetObject("LDAP://" & strCon
Схожие темы
» Запись из раздела Несортированное | Комментировать
Комментарии
Ответить