coolx.net

Programming

No.

406

Name.

swindler

Subject.

Get Outlook's Address Book info. from Exchange Server

Main Cate.

ASP

Sub Cate.

Date.

2007-11-23 17:24

Hit.

3392 (211.36.27.8)

File.

<%
Option Explicit
Dim conn, cmd, rs, user, password, domain, filter

domain = "xxxxx"
user = "xxxxx"
password = "xxxxx"
filter = "(&(&(& (mailnickname=*) (| (&(objectCategory=person)(objectClass=user)(!(homeMDB=*))(!(msExchHomeServerName=*)))(&(objectCategory=person)(objectClass=user)(msExchHomeServerName=*))(&(objectCategory=person)(objectClass=contact))(objectCategory=group)(objectCategory=publicFolder) ))))"

Set conn = Server.CreateObject("ADODB.Connection")
conn.Provider = "ADsDSOObject"
conn.Open "ADProvider", user, password

Set cmd = Server.CreateObject("ADODB.Command")
Set cmd.ActiveConnection = conn
cmd.CommandText = "<LDAP://" & domain & ">;" & filter & ";sn,givenName,telephoneNumber,physicalDeliveryOfficeName,department,title;subtree"

Set rs = cmd.Execute

response.write("<table>")&vbcrlf
response.write("<tr><td>Surname</td><td>Forename</td><td>Phone</td><td>Office</a></td><td>Department</td><td>Title</td></tr>")&vbcrlf

While Not rs.EOF
response.write("<tr>")&vbcrlf
response.write("<td>" & rs.Fields("sn") & "</td>")&vbcrlf
response.write("<td>" & rs.Fields("givenName") & "</td>")&vbcrlf
response.write("<td>" & rs.Fields("telephoneNumber") & "</td>")&vbcrlf
response.write("<td>" & rs.Fields("physicalDeliveryOfficeName") & "</td>")&vbcrlf
response.write("<td>" & rs.Fields("department") & "</td>")&vbcrlf
response.write("<td>" & rs.Fields("title") & "</td>")&vbcrlf
response.write("</tr>")&vbcrlf
rs.MoveNext
Wend
response.write("</table>")

rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing

%>

원문주소 : http://www.hiveminds.org/phpBB/viewtopic.php?t=2810

[바로가기 링크] : http://coolx.net/cboard/develop/406


[Modify] [Delete]		[Reply] [List]