Leviatan1988
Bovino Milenario
- Desde
- 22 May 2008
- Mensajes
- 1.588
- Tema Autor
- #1
Buen día amigos bakunos,
¿Podrían apoyarme con la siguiente duda?
La cuestión es la siguiente: tengo una aplicacion en visual basic, quiero autenticar el usuario contra el active directory, hasta ahí todo va bien, puedo verificar que exista el usuario y puedo obtener los atributos del objeto, sin embargo, no encuentro cual es el atributo para el password y es el que necesito. Aqui les dejo el código principal y los atributos a los que yo he podido acceder. ¿Alguien conoce cual es el atributo del password? o en su defecto, si no se puede acceder a el.
Muchas gracias de antemano.
Dim objetoUsuario, gruposSeguridad
Dim ultimoInicioSesion As String
Dim dominio As String
Dim nombreUsuario As String
Dim estadoCuenta As String
objetoUsuario = GetObject("WinNT://" + dominio + "/" + nombreUsuario + ",user")
If Err.Number = 0 Then
MsgBox("Nombre completo: " & objetoUsuario.Get("Fullname") & vbCrLf & _
"Descripción: " & objetoUsuario.Get("Description") & vbCrLf & _
"Nombre: " & objetoUsuario.Get("Name") & vbCrLf & _
"Carpeta de inicio: " & objetoUsuario.Get("HomeDirectory") & vbCrLf & _
"Script de inicio: " & objetoUsuario.Get("LoginScript") & vbCrLf & _
"Último inicio de sesión: " & ultimoInicioSesion & vbCrLf & _
"Perfil: " & objetoUsuario.Get("Profile") & vbCrLf & _
"Estado de la cuenta: " & estadoCuenta, vbInformation + vbOKOnly)
objetoUsuario = Nothing
Else
MsgBox("No existe el usuario " + nombreUsuario + " o el dominio " + dominio, vbExclamation + vbOKOnly)
End If
¿Podrían apoyarme con la siguiente duda?
La cuestión es la siguiente: tengo una aplicacion en visual basic, quiero autenticar el usuario contra el active directory, hasta ahí todo va bien, puedo verificar que exista el usuario y puedo obtener los atributos del objeto, sin embargo, no encuentro cual es el atributo para el password y es el que necesito. Aqui les dejo el código principal y los atributos a los que yo he podido acceder. ¿Alguien conoce cual es el atributo del password? o en su defecto, si no se puede acceder a el.
Muchas gracias de antemano.
Dim objetoUsuario, gruposSeguridad
Dim ultimoInicioSesion As String
Dim dominio As String
Dim nombreUsuario As String
Dim estadoCuenta As String
objetoUsuario = GetObject("WinNT://" + dominio + "/" + nombreUsuario + ",user")
If Err.Number = 0 Then
MsgBox("Nombre completo: " & objetoUsuario.Get("Fullname") & vbCrLf & _
"Descripción: " & objetoUsuario.Get("Description") & vbCrLf & _
"Nombre: " & objetoUsuario.Get("Name") & vbCrLf & _
"Carpeta de inicio: " & objetoUsuario.Get("HomeDirectory") & vbCrLf & _
"Script de inicio: " & objetoUsuario.Get("LoginScript") & vbCrLf & _
"Último inicio de sesión: " & ultimoInicioSesion & vbCrLf & _
"Perfil: " & objetoUsuario.Get("Profile") & vbCrLf & _
"Estado de la cuenta: " & estadoCuenta, vbInformation + vbOKOnly)
objetoUsuario = Nothing
Else
MsgBox("No existe el usuario " + nombreUsuario + " o el dominio " + dominio, vbExclamation + vbOKOnly)
End If