elchuma
asked on
LDAP Query - get OU names with ldap query
Hi experts!!!
I'am building intranet app based on LDAP database.
With exchange experts help I made page that query LDAP, so I have user names, mail, tel. no. . . .
I need to query LDAP for OU names.
Is it possible?
here is the code posted by WMIF that I used for Intranet app. to get user names.
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
strUser = "DOMAIN\user"
strPassword = "pass"
Dim Conn, strRS, RS, strConn
Set Conn = Server.CreateObject("ADODB .Connectio n")
Set RS = Server.CreateObject("ADODB .Recordset ")
Conn.Provider = "ADsDSOObject"
Conn.Properties("User ID") = strUser
Conn.Properties("Password" ) = strPassword
Conn.Properties("Encrypt Password") = True
strConn = "Active Directory Provider"
Conn.Open strConn , strUser, strPassword
strRS = "SELECT sn,givenName,memberOf FROM 'LDAP://domain.co.yu' WHERE objectCategory='person'"
RS.Open strRS, Conn,1,1
While RS.EOF = False
memgroups = rs("memberOf")
for each memgroup in memgroups
%>
<%=rs.Fields("sn")%> - <%=rs.Fields("givenname")% > <%= memgroup%> <br>
<%
next
RS.MoveNext
Wend
%>
Best Regards,
Marko
I'am building intranet app based on LDAP database.
With exchange experts help I made page that query LDAP, so I have user names, mail, tel. no. . . .
I need to query LDAP for OU names.
Is it possible?
here is the code posted by WMIF that I used for Intranet app. to get user names.
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
strUser = "DOMAIN\user"
strPassword = "pass"
Dim Conn, strRS, RS, strConn
Set Conn = Server.CreateObject("ADODB
Set RS = Server.CreateObject("ADODB
Conn.Provider = "ADsDSOObject"
Conn.Properties("User ID") = strUser
Conn.Properties("Password"
Conn.Properties("Encrypt Password") = True
strConn = "Active Directory Provider"
Conn.Open strConn , strUser, strPassword
strRS = "SELECT sn,givenName,memberOf FROM 'LDAP://domain.co.yu' WHERE objectCategory='person'"
RS.Open strRS, Conn,1,1
While RS.EOF = False
memgroups = rs("memberOf")
for each memgroup in memgroups
%>
<%=rs.Fields("sn")%> - <%=rs.Fields("givenname")%
<%
next
RS.MoveNext
Wend
%>
Best Regards,
Marko
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
best of luck,
harperse