CDOを利用して、ExchangeServerのグローバルアドレス一覧を表示するサンプルです。
IISサーバーでExchangeのクライアントとして接続可能になっている必要があります。
サンプルですが、フィルターしていませんので、全件表示してしまいますので、試す場合は注意してください。
なお、このサンプルはサーバーが英語版です。
<%@ LANGUAGE="VBSCRIPT" %> <% strProfileInfo = "サーバー名" & vbLf & "メールボックス名" set objSession = Server.CreateObject("MAPI.Session") objSession.Logon ,,False,False,0,False,strProfileInfo set objAddressList = objSession.GetAddressList(0) set objAddressEntries = objAddressList.AddressEntries for each objAddressEntry in objAddressEntries response.write(objAddressEntry.Name) response.write("<br>") next %>