認証 - AADJ

ADSI では、ユーザー名とパスワードで構成される資格情報を使用して、ディレクトリ サービス内のオブジェクトへのアクセスを提供または制限します。 ADsGetObject 関数は、認証に呼び出し元スレッドの資格情報を使用します。 ADsOpenObject 関数と IADsOpenDSObject::OpenDSObject メソッドを使用して、呼び出し元のスレッド以外の資格情報を指定できます。 オブジェクトが認証済みユーザーにバインドされている場合、基になるディレクトリ サービスのセキュリティ要件でサポートされているオブジェクトへのアクセスがユーザーに許可されます。

Note

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