DevTrain - Exchange - User Daten auslesen

Über CDO eine Mail zu verschicken ist den meisten Entwicklern vertraut, aber wo bekomme ich die eMail- Adressen her ?
Mit CDO und dem Namespace LDAP, den man für den Zugriff auf den Exchange-Server benötigt, kann man eine kleine Web-Access Application mit der man eMails verschicken kann bauen. Ausserdem kann man, insofern der Exchange-Server gepflegt wird, Kontaktinformation innerhalb eines Unternehmens anzeigen.

Hier zeige ich ein kleines Beispiel um diese Informationen im Browser anzuzeigen.

<%@ Language=VBScript %>
<html>
<head>
<meta name="GENERATOR" content="Microsoft Visual Studio 6.0">
</head>
<body>
<%
Dim oContainer
Dim ExServ
Dim oCont
Dim uUser

ExServ = "NameOfExchange"
o = "ppedv"
ou = "DomainController"

strUser = "UserName"
On Error Resume Next
Set oCont = GetObject("LDAP://" & ExServ & "/o=" & o & "/ou=" & ou & "/cn=Recipients/cn=" & strUser)
 Response.Write strUser & " "
 Response.Write "1.FirstName: " & oCont.FirstName & " "
 Response.Write "2.LastName: " & oCont.LastName & " "
 Response.Write "3.EMail: " & oCont.Mail & " "
 Response.Write "4.Department: " & oCont.Department & " "
 Response.Write "5.Telephone Number: " & oCont.TelephoneNumber & " "
 Response.Write "6.Postal Address: " & oCont.PostalAddress & " "
 Response.Write "7.See Also: " & oCont.SeeAlso & " "
 Response.Write "8.BusinessCategory: " & oCont.BusinessCategory & " "
 Response.Write "9.Description: " & oCont.Description & " "
 Response.Write "10.Title: " & oCont.Title & " "
 Response.Write "11.Manager: " & oCont.Manager & " "
 Response.Write "12.TelephoneHome: " & oCont.TelephoneHome & " "
 Response.Write "13.TelephoneMobile: " & oCont.TelephoneMobile & " "
 Response.Write "14.OfficeLocations: " & oCont.OfficeLocations & " "
 Response.Write "15.PostalCodes: " & oCont.PostalCodes & " "
 Response.Write "16.EMailAddress: " & oCont.EMailAddress & " "
%>
</body>
</html>

Um z.B von allen NT-Benutzer die Informationen zu erhalten, mit der Einschränkung >Account = strUser<
kann man dies mit einer For Each Schleife machen:

Set oContainer = GetObject("WinNT://" & ExServ)
For Each oChild In oContainer
If InStr(1,oChild.Class,"User")Then
strUser = 'oChild.Name

'******** Hier der oben stehende Code *******

End If
Next