身份验证 (ADSI)

在 ADSI 中，由用户名和密码组成的凭据可用于提供或限制对目录服务中对象的访问。 ADsGetObject 函数使用调用线程的凭据进行身份验证。 ADsOpenObject 函数和 IADsOpenDSObject::OpenDSObject 方法可用于指定调用线程以外的凭据。 当某一对象与经过身份验证的用户绑定时，该用户可访问基础目录服务安全要求所支持的对象。

注意

不应将 ADsOpenObject 函数和 IADsOpenDSObject::OpenDSObject 方法用于验证用户凭据。

 

以下代码示例演示了如何使用 OpenDSObject 方法对用户进行身份验证。

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