1 Respuesta
Respuesta de joajai
1
Puedes conectar con LDAP a través de ADO.
Un ejemplo:
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set conn = New ADODB.Connection
conn.Provider = "ADSDSOObject"
conn.Open "ADs Provider"
Set rs = conn.Execute( _
"<LDAP://server/o=organization/ou=site/cn=recipients>;" _
& "(objectClass=*);ADsPath,objectClass,cn;subtree")
While Not rs.EOF
Debug.Print rs.Fields(0).Value, rs.Fields(1).Value, _
rs.Fields(2).Value
Rs. MoveNext
Wend
Conn. Close
Para poder conectar con LDAP debes conocer bien no sólo cómo funciona LDAP (puedes buscar en microsoft información sobre ADSI (el directorio activo funciona como ldap) sino también como es la implementación en la que quieres leer.
Te recomiendo que eches un ojo a la página
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnactdir/html/buildingadapps.asp
Un ejemplo:
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set conn = New ADODB.Connection
conn.Provider = "ADSDSOObject"
conn.Open "ADs Provider"
Set rs = conn.Execute( _
"<LDAP://server/o=organization/ou=site/cn=recipients>;" _
& "(objectClass=*);ADsPath,objectClass,cn;subtree")
While Not rs.EOF
Debug.Print rs.Fields(0).Value, rs.Fields(1).Value, _
rs.Fields(2).Value
Rs. MoveNext
Wend
Conn. Close
Para poder conectar con LDAP debes conocer bien no sólo cómo funciona LDAP (puedes buscar en microsoft información sobre ADSI (el directorio activo funciona como ldap) sino también como es la implementación en la que quieres leer.
Te recomiendo que eches un ojo a la página
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnactdir/html/buildingadapps.asp
