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

» Запись из раздела Несортированное | Комментировать

Комментарии





Ответить