User must change password on next logon

Запись создана марта 12, 2008

'скрипт рекурсивно устанавливает всем пользователям домена атрибут "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

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

Комментарии





Ответить