Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
LDAP Exchange
- Thread starter ginoitalo
- Start date
I cannot answer your question fully, but I may be able to add some info you can use.
I have had some exposure to accessing ldap info on an exchage server via php.
I think you will have to use a similar notation to 'o=MySite,ou=MyOrg,ou=Recipients,cn=Useralias'
from that object
firstname = 'givenname'
lastname = 'sn'
email = 'rfc822mailbox'
hope this helps.
Rabbitgrunt
Programmer
If you are a CF developer use CFLDAP tag
IF you are an ASP developer, there is a tag by ASPfusion called ADVldap.
Hope this helps
IF you are an ASP developer, there is a tag by ASPfusion called ADVldap.
Hope this helps
I wrote an ASP phonebook that uses W2K LDAP / Exchange 2000. You can take a look at it at:
and click search.
Here is an example of one of the pages:
<%@ Language=VBScript %>
<%
Option Explicit
Dim con,rs,Com,letter,school
%>
<html>
<head>
<style>
.over { background-color: #FFFF66; cursor: hand}
.out { background-color: #CCCCCC}
</style>
</head>
<body topmargin="0" leftmargin="0" bgcolor="#CCCCCC" >
<%
letter = request.queryString("letter"
school = request.queryString("school"
If letter <> "" Then
Set con = Server.CreateObject("ADODB.Connection"
con.provider ="ADsDSOObject"
con.open "Active Directory Provider"
Set Com = CreateObject("ADODB.Command"
Set Com.ActiveConnection = con
Com.CommandText ="select name, sAMAccountname from 'LDAP://hs_inst.burlington.org/OU=Staff,OU=Domain Users,DC=burlington,DC=org' WHERE objectCategory='person' AND department='"+school+"' AND sn='"+letter+"*' ORDER BY name"
Set rs = Com.Execute
%>
<table border="0" cellpadding="0" bgcolor="#CCCCCC">
<%
Do While Not rs.EOF
%>
<tr><td onMouseOver="this.className='over'" onMouseOut="this.className='out'" class="out" valign="middle" onclick="window.open('info.asp?user=<% response.write rs("sAMAccountname"%>','InfoFrame');window.open('emailstart.htm','EmailFrame');"><a><b><font color="#000080" face="Verdana" size="2">
<% response.write rs("Name"%></font></b></a></td>
</tr>
<%
rs.MoveNext
Loop
rs.Close
%>
</table>
<%
con.Close
Set rs = Nothing
Set con = Nothing
End If
%>
</body>
</html>
and click search.
Here is an example of one of the pages:
<%@ Language=VBScript %>
<%
Option Explicit
Dim con,rs,Com,letter,school
%>
<html>
<head>
<style>
.over { background-color: #FFFF66; cursor: hand}
.out { background-color: #CCCCCC}
</style>
</head>
<body topmargin="0" leftmargin="0" bgcolor="#CCCCCC" >
<%
letter = request.queryString("letter"
school = request.queryString("school"
If letter <> "" Then
Set con = Server.CreateObject("ADODB.Connection"
con.provider ="ADsDSOObject"
con.open "Active Directory Provider"
Set Com = CreateObject("ADODB.Command"
Set Com.ActiveConnection = con
Com.CommandText ="select name, sAMAccountname from 'LDAP://hs_inst.burlington.org/OU=Staff,OU=Domain Users,DC=burlington,DC=org' WHERE objectCategory='person' AND department='"+school+"' AND sn='"+letter+"*' ORDER BY name"
Set rs = Com.Execute
%>
<table border="0" cellpadding="0" bgcolor="#CCCCCC">
<%
Do While Not rs.EOF
%>
<tr><td onMouseOver="this.className='over'" onMouseOut="this.className='out'" class="out" valign="middle" onclick="window.open('info.asp?user=<% response.write rs("sAMAccountname"
%>','InfoFrame');window.open('emailstart.htm','EmailFrame');"><a><b><font color="#000080" face="Verdana" size="2"> <% response.write rs("Name"
%></font></b></a></td></tr>
<%
rs.MoveNext
Loop
rs.Close
%>
</table>
<%
con.Close
Set rs = Nothing
Set con = Nothing
End If
%>
</body>
</html>
- Status
Similar threads
- Locked
- Question