AFAIK these are mutually exclusive. Why
would you need both? If you want to force at least one password change and then
have it never expire you could create the account with the “User Must
Change password at next logon” property to on and then have your script
check the state of the Change password property and if it’s clear then
set the Password never sets flag.
You certainly can’t , IIRC, create
or set both at the same time.
Regards
Peter Johnson
From:
[EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Fernandez Rego, Ramon
Sent: 03 August 2005 14:22
To: [email protected]
Subject: [ActiveDir] Set
UserAccountControl
Hi,
Is
there any possibility of setting both properties?
"Password
never expires" and "User must change password at next logon"
I
tried with this script, but i can't:
------------------------------
Set
objConnection = CreateObject("ADODB.Connection")
objConnection.Open
"Provider=ADsDSOObject;"
m=0
strOU
= "cn=test,ou=usuarios,ou=XXXXXXX"
Set
objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection
= objConnection
objCommand.Properties
("Size Limit")= 1001
objCommand.Properties
("Cache Results")= False
objCommand.Properties("Page
Size") = 1001
objCommand.CommandText
= _
"<LDAP://"& strOU
&",dc=asp,dc=mundo-r,dc=com>;(objectCategory=user)" & _
";distinguishedName,name,mail,ADsPath;subtree"
Set
objRecordSet = objCommand.Execute
While
Not objRecordSet.EOF
strADsPath = objRecordset.Fields("ADsPath")
Set objUser = GetObject(strADsPath)
objUser.Put "UserAccountControl" ,
"524288" ' 0x80000 + 0x10200 = pass never exp + user must
change
objUser.SetInfo
wscript.echo strADsPath & ";" & objUser.UserAccountControl
m=m+1
objRecordSet.MoveNext
Wend
objConnection.Close
wscript.echo
"Numero objetos afectados: " &m
------------------------------------------------------------------------------
Thanks,
Moncho
**************************************************************************************************
Este mensaje se dirige exclusivamente a su destinatario. Puede contener
información privilegiada, confidencial o legalmente protegida.
Si ha recibido este mensaje por error le rogamos que lo borre inmediatamente,
así como todas
sus copias, y lo comunique al remitente.
En virtud de la legislación vigente está prohibida la utilización, divulgación,
copia o impresión sin autorización.
No existe renuncia a la confidencialidad o privilegio por causa de una
transmisión errónea.
**************************************************************************************************
