Pregunta: | 43896 - ACTIVE DIRECTORY DESDE VB |
Autor: | Ismael Alvarez |
Necesito Traerme los Usuarios de Active directory desde vb y saber si se puede actualizar desde vb los usuarios |
Respuesta: | noe |
Ejemplo: Utilizar ADO para efectuar consultas en Active Directory Dim con As New Connection, rs As New Recordset Dim Com As New Command 'Abrir un objeto Connection con.Provider = "ADsDSOObject" con.Open "Active Directory Provider" 'Crear un objeto de comando en esta conexión Set Com.ActiveConnection = con Com.CommandText = "select name from 'LDAP://DC=Arcadia,DC=COM' where objectClass='*' ORDER BY NAME" '----------------------------------------- 'Establecer las preferencias para la búsqueda '-------------------------------------- Com.Properties("Page Size") = 1000 Com.Properties("Timeout") = 30 'segundos Com.Properties("searchscope") = ADS_SCOPE_SUBTREE '-------------------------------------------- 'Ejecutar la consulta '-------------------------------------------- Set rs = Com.Execute '-------------------------------------- ' Desplazarse por el conjunto de registros '---------------------------------------- While Not rs.EOF Debug.Print rs.Fields("Name").Value rs.MoveNext Wend |