使用 ActiveX 数据对象绑定到 ADSI 提供程序

由于 ADSI 也是一个 OLE DB 提供程序，因此可以使用 ActiveX 数据对象 (ADO) 连接到 ADSI 提供程序。 与其他 ADO 提供程序一样，若要连接到 OLE DB 提供程序，必须创建新的连接对象，并可以选择指定凭据。 ADSI OLE DB 提供程序的名称是 ADsDSOObject。

例如：

Dim con As New Connection 
'VBScript use: con = CreateObject("ADODB.Connection")
con.Provider = "ADsDSOObject"
con.Open "YourDescriptionHere"

在上一示例中，你代表当前用户进行连接。 若要指定不同的凭据，请使用连接属性：

con.Provider = "ADsDSOObject"
con.Properties("User ID") = "jeffsmith"
con.Properties("Password") = "guesswhat?"
con.Properties("Encrypt Password") = True
con.Open "YourDescriptionHere"

ADSI OLE DB 定义以下连接属性。

properties	数据类型	默认
“User ID”	BSTR	NULL
“Password”	BSTR	NULL
“Encrypt Password”	BOOLEAN	FALSE
“ADSI Flag”	Long	0

 

使用 OLE DB ADO 时，无法绑定到特定对象。 但是，可以查询特定对象并返回结果集。 只有支持 IDirectorySearch 的 ADSI 提供程序才能从 ADO 作为编程模型中获益。

ADSI Flag 属性用于指定绑定身份验证选项。 此属性可以是 ADS_AUTHENTICATION_ENUM 枚举中的标志的组合。