Использование объекта данных ActiveX для привязки к поставщикам ADSI

Так как ADSI также является поставщиком OLE DB, вы можете использовать объект данных ActiveX (ADO) для подключения к поставщикам ADSI. Как и в случае с другими поставщиками ADO, чтобы подключиться к поставщику OLE DB, необходимо создать новый объект подключения и, при необходимости, указать учетные данные. Имя поставщика OLE DB ADSI — 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"

OLE DB ADSI определяет следующие свойства подключения.

Свойство	Тип данных	По умолчанию.
"Идентификатор пользователя"	BSTR	NULL
"Пароль".	BSTR	NULL
"Encrypt Password" (Шифрование пароля)	BOOLEAN	FALSE
"Флаг ADSI"	Long	0

 

С помощью OLE DB ADO нельзя привязать к конкретному объекту. Однако вы можете запросить конкретный объект и получить результирующий набор. Только поставщики ADSI, поддерживающие IDirectorySearch , получают преимущества от использования ADO в качестве модели программирования.

Свойство ADSI Flag используется для указания параметра проверки подлинности привязки. Это свойство может быть сочетанием флагов из перечисления ADS_AUTHENTICATION_ENUM.