User must change password on next logon

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