Autenticação (ADSI)

No ADSI, as credenciais que consistem em um nome de usuário e senha são usadas para fornecer ou restringir o acesso a objetos no serviço de diretório. A função ADsGetObject usa as credenciais do thread de chamada para autenticação. A função ADsOpenObject e o método IADsOpenDSObject::OpenDSObject podem ser usados para especificar credenciais diferentes daquelas do thread de chamada. Quando um objeto é vinculado a um usuário autenticado, o usuário tem permissão de acesso ao objeto conforme suportado pelos requisitos de segurança do serviço de diretório subjacente.

Observação

A função ADsOpenObject e o método IADsOpenDSObject::OpenDSObject não devem ser usados para validar credenciais de usuário.

 

O exemplo de código a seguir mostra como usar o método OpenDSObject para autenticar um usuário.

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