Agregar un usuario al Active Directory
Publicado por Edupa (18 intervenciones) el 18/10/2005 19:30:54
Buenas, estoy intentando hacer un programa para insertar usuarios al active directory desde mi programa. El usuario se crea a partir de una cuenta ya existente, con lo cual tengo que copiar esa cuenta a mi nuevo usuario y modificar los datos. El codigo que tengo es el siguiente.
Dim Container As IADsContainer
Dim NewUser As IADsUser
' Enlazar al contenedor conocido del dominio «Mi_PC»
Set Container = GetObject("WinNT://Dominio")
'plantilla es la cuenta que quiero copiar en mi nuevo usuario nuevaCuenta
Set NewUser = Container.CopyHere("WinNT://Dominio/plantilla", "nuevaCuenta")
NewUser.FirstName = "Eduardo"
NewUser.Description = "Ventas"
' Establecer la contraseña del usuario
NewUser.SetPassword ("eduardo")
' Completar la operación para crear el objeto en el directorio·
NewUser.SetInfo
Al ejecutar esto me sale el error: run-time error '-2147467263(80004001)'
No implementado
Para ejecutar esto tengo la referencia Active DS Type Library.
Dim Container As IADsContainer
Dim NewUser As IADsUser
' Enlazar al contenedor conocido del dominio «Mi_PC»
Set Container = GetObject("WinNT://Dominio")
'plantilla es la cuenta que quiero copiar en mi nuevo usuario nuevaCuenta
Set NewUser = Container.CopyHere("WinNT://Dominio/plantilla", "nuevaCuenta")
NewUser.FirstName = "Eduardo"
NewUser.Description = "Ventas"
' Establecer la contraseña del usuario
NewUser.SetPassword ("eduardo")
' Completar la operación para crear el objeto en el directorio·
NewUser.SetInfo
Al ejecutar esto me sale el error: run-time error '-2147467263(80004001)'
No implementado
Para ejecutar esto tengo la referencia Active DS Type Library.
Valora esta pregunta
0