Autenticación (ADSI)
En ADSI, las credenciales que constan de un nombre de usuario y una contraseña se usan para proporcionar o restringir el acceso a los objetos del servicio de directorio. La función ADsGetObject usa las credenciales del subproceso que realiza la llamada para la autenticación. La función ADsOpenObject y el método IADsOpenDSObject::OpenDSObject se pueden usar para especificar credenciales distintas de las del subproceso que realiza la llamada. Cuando un objeto está enlazado a con un usuario autenticado, se permite al usuario acceder al objeto según lo admita los requisitos de seguridad del servicio de directorio subyacentes.
Nota
La función ADsOpenObject y el método IADsOpenDSObject::OpenDSObject no se deben usar para validar las credenciales de usuario.
En el ejemplo de código siguiente se muestra cómo usar el método OpenDSObject para autenticar a un usuario.
Dim MyNamespace As IADsOpenDSObject
Dim X
oUsername="MyUserName"
oPassword="MyPassword"
OnError GoTo CleanuUp
Set MyNamespace = GetObject("LDAP:")
' For authentication, pass a variable for the user name and password to be used for
' authentication. For security reasons, it is recommended that you use the ADS_SECURE_AUTHENTICATION flag.
'
Set X = MyNamespace.OpenDSObject(DN, oUserName, oPassword, ADS_SECURE_AUTHENTICATION)
CleanUp:
MsgBox ("An error has occurred.")
Set MyNamespace = Nothing
Set X = Nothing
Comentarios
https://aka.ms/ContentUserFeedback.
Próximamente: A lo largo de 2024 iremos eliminando gradualmente GitHub Issues como mecanismo de comentarios sobre el contenido y lo sustituiremos por un nuevo sistema de comentarios. Para más información, vea:Enviar y ver comentarios de