Puedo crear usuarios, pero tengo problemas para configurar las propiedades.
Quiero crear el usuario de este propiedades:
CANT usuario cambiar la contraseña
Contraseña nuevos caducado
Yo uso este script. Este script crea el usuario pero atributo USUARIO CANT cambiar la contraseña no se puede instalar:
[code]
Const ADS_UF_SCRIPT = & H1
Const ADS_UF_ACCOUNTDISABLE = & H2
Const ADS_UF_HOMEDIR_REQUIRED = & H8
Const ADS_UF_LOCKOUT = & H10
Const ADS_UF_PASSWD_NOTREQD = & H20
Const ADS_UF_PASSWD_CANT_CHANGE = & H40
Const ADS_UF_ENCRYPTED_TEXT_PASSWORD_ALLOWED = & H80
Const ADS_UF_TEMP_DUPLICATE_ACCOUNT = & H100
Const ADS_UF_NORMAL_ACCOUNT = & H200
Const ADS_UF_INTERDOMAIN_TRUST_ACCOUNT = & H800
Const ADS_UF_WORKSTATION_TRUST_ACCOUNT = & H1000
Const ADS_UF_SERVER_TRUST_ACCOUNT = & H2000
Const ADS_UF_DONT_EXPIRE_PASSWD = & H10000
Const ADS_UF_MNS_LOGON_ACCOUNT = & H20000
Const ADS_UF_SMARTCARD_REQUIRED = & H40000
Const ADS_UF_TRUSTED_FOR_DELEGATION = & H80000
Const ADS_UF_NOT_DELEGATED = & H100000
Const ADS_UF_USE_DES_KEY_ONLY = & H200000
Const ADS_UF_DONT_REQUIRE_PREAUTH = & H400000
Const ADS_UF_PASSWORD_EXPIRED = & H800000
Const ADS_UF_TRUSTED_TO_AUTHENTICATE_FOR_DELEGATION = & H1000000
msgbox "llamando a la sub"
createuser llamada ( "name1", "n1", "123456")
Public Sub createuser (strName, strSAMAccountName, strInitialPassword)
Dim objRootDSE
Dim objUsers
Dim objNewUser
Dim sOU1
Dim sRoot
El error de reanudar el próximo
Se unen a la rootDSE objeto.
Set objRootDSE = GetObject ( "LDAP: / / rootDSE")
Si (Err.Number <> 0) Entonces
msgbox "error de Bind para el objeto rootDSE:" & Err.Number
Exit Sub
Fin Si
sRoot = objRootDSE.Get ( "defaultNamingContext")
Se unen a la carpeta Usuarios en el dominio.
Set objUsers = GetObject ( "LDAP: / / CN = TCB," & objRootDSE. Get ( "defaultNamingContext"))
sOU1 = "TCB"
Set objUsers = GetObject ( "LDAP: / / OU =" sOU1 & & "," & sRoot)
Si (Err.Number <> 0) Entonces
msgbox "LDAP: / / OU =" sOU1 & & "," & sRoot
msgbox "error de unirse a la carpeta Usuarios en el dominio.:" & Err.Number
Exit Sub
Fin Si
Cree el objeto de usuario.
Set objNewUser = objUsers.Create ( "user", "CN =" + strName)
Si (Err. Número <> 0) Entonces
msgbox "error del usuario Crear el objeto ..:" & Err.Number
Exit Sub
Fin Si
Establezca la propiedad sAMAccountName.
objNewUser.Put "sAMAccountName", strSAMAccountName
Si (Err.Number <> 0) Entonces
msgbox "error de Set sAMAccountName la propiedad.:" & Err.Number
Exit Sub
Fin Si
Compro el nuevo usuario.
objNewUser.SetInfo
Si (Err. Número <> 0) Entonces
msgbox "error de Compro el nuevo usuario:" & Err.Number
Exit Sub
Fin Si
Establezca la contraseña inicial. Esto debe realizarse después de
SetInfo se llama porque el usuario debe oponerse
ya existe en el servidor.
objNewUser.SetPassword strInitialPassword
Si (Err.Number <> 0) Entonces
msgbox "error de Set la contraseña inicial:" & Err. Número
Exit Sub
Fin Si
Establezca la propiedad pwdLastSet a cero, lo que obliga al
usuario cambiar su contraseña en el próximo conecta a la red.
objNewUser.Put "pwdLastSet", 0
Si (Err.Number <> 0) Entonces
msgbox "error de Set la contraseña inicial:" & Err.Number
Exit Sub
Fin Si
Para habilitar la cuenta de usuario, eliminar las
ADS_UF_ACCOUNTDISABLE bandera de la userAccountControl
propiedad. Asimismo, eliminar la ADS_UF_PASSWD_NOTREQD y
ADS_UF_DONT_EXPIRE_PASSWD banderas de la
userAccountControl propiedad.
userActCtrl = objNewUser.Get ( "userAccountControl")
userActCtrl = userActCtrl Y ADS_UF_DONT_EXPIRE_PASSWD O ADS_UF_PASSWD_CANT_CHANGE o no (ADS_UF_ACCOUNTDISABLE)
objNewUser.Put "userAccountControl", userActCtrl
Si (Err.Number <> 0) Entonces
Exit Sub
Fin Si
Compro la versión actualizada de propiedades.
objNewUser.SetInfo
& End Sub #91; código & #93; & #91; / code & #93;
Julio 5th, 2005, 2:15 am
