Usando um objeto de dados ActiveX para vincular a provedores ADSI
Como o ADSI também é um provedor OLE DB, você pode usar um ActiveX Data Object (ADO) para se conectar a provedores ADSI. Assim como acontece com outros provedores ADO, para se conectar a um provedor OLE DB, você deve criar um novo objeto de conexão e, opcionalmente, especificar as credenciais. O nome do provedor ADSI OLE DB é ADsDSOObject.
Por exemplo:
Dim con As New Connection
'VBScript use: con = CreateObject("ADODB.Connection")
con.Provider = "ADsDSOObject"
con.Open "YourDescriptionHere"
No exemplo anterior, você está conectado em nome do usuário atual. Para especificar credenciais diferentes, use as propriedades de conexão:
con.Provider = "ADsDSOObject"
con.Properties("User ID") = "jeffsmith"
con.Properties("Password") = "guesswhat?"
con.Properties("Encrypt Password") = True
con.Open "YourDescriptionHere"
ADSI OLE DB define as seguintes propriedades de conexão.
| Propriedade | Tipo de dados | Default |
|---|---|---|
| "ID do usuário" | BSTR | NULL |
| "Password" | BSTR | NULL |
| "Criptografar senha" | BOOLEAN | FALSE |
| "Bandeira ADSI" | Longo | 0 |
Usando OLE DB ADO, você não pode vincular a um objeto específico. No entanto, você pode consultar um objeto específico e obter um conjunto de resultados. Somente provedores ADSI que oferecem suporte a IDirectorySearch se beneficiam de ter o ADO como um modelo de programação.
A propriedade ADSI Flag é usada para especificar a opção de autenticação de associação. Essa propriedade pode ser uma combinação de sinalizadores da enumeração ADS_AUTHENTICATION_ENUM.