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