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

Схожие темы

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

Комментарии

Расширение вен: варикозное расширение вен лечение. Лечение варикозного расширения.

Первая школа блогеров в России - школа блогеров в Уфе начала свою работу.


Ответить




*

Anti-Spam Image