Find all Exchange users

The following example shows you how to retrieve all users with mailbox in an Exchange server. For every user we display username and email address.

C# example

using System;
using System.Net;
using System.DirectoryServices;

namespace Sample
{
    class Program
    {
        static void Main(string[] args)
        {
            DirectoryEntry entry = new DirectoryEntry("LDAP://mydomain.com", "username", "password");
            DirectorySearcher searcher = new DirectorySearcher("(&(mailnickname=*)(objectCategory=person))");

            searcher.SearchRoot = entry;
            searcher.SearchScope = SearchScope.Subtree;

            foreach (System.DirectoryServices.SearchResult result in searcher.FindAll())
            {
                ResultPropertyCollection property = result.Properties;

                ResultPropertyValueCollection name = property["name"];
                ResultPropertyValueCollection proxyAddresses = property["proxyAddresses"];
                ResultPropertyValueCollection legacyExchangeDN = property["legacyExchangeDN"];

                for (int i = 0; i < proxyAddresses.Count; i++)
                {
                    string address = proxyAddresses[i].ToString();

                    if (address.StartsWith("SMTP:"))
                    {
                        Console.WriteLine("Username = " + name[0]);
                        Console.WriteLine("Email = " + address);
                        Console.WriteLine("LegacyExchangeDN = " + legacyExchangeDN[0]);
                    }
                }
            }

            Console.Read();
        }
    }
}

VB example

Imports System
Imports System.Net
Imports System.DirectoryServices

Module Module1
    Sub Main(ByVal args() As String)

        Dim entry As DirectoryEntry = New DirectoryEntry("LDAP://mydomain.com", "username", "password")
        Dim searcher As DirectorySearcher = New DirectorySearcher("(&(mailnickname=*)(objectCategory=person))")

        searcher.SearchRoot = entry
        searcher.SearchScope = SearchScope.Subtree

        For Each result As System.DirectoryServices.SearchResult In searcher.FindAll()
            Dim properties As ResultPropertyCollection = result.Properties

            Dim name As ResultPropertyValueCollection = properties("name")
            Dim proxyAddresses As ResultPropertyValueCollection = properties("proxyAddresses")
            Dim legacyExchangeDN As ResultPropertyValueCollection = properties("legacyExchangeDN")

            Dim i As Integer
            For i = 0 To proxyAddresses.Count - 1
                Dim address As String = proxyAddresses(i).ToString()

                If (address.StartsWith("SMTP:")) Then
                    Console.WriteLine("Username = " + name(0))
                    Console.WriteLine("Email = " + address)
                    Console.WriteLine("LegacyExchangeDN = " + legacyExchangeDN(0))
                End If
            Next
        Next

        Console.Read()

    End Sub
End Module

Independentsoft - any library, any programming language

WebDAV .NET for Exchange > Tutorial > Find all Exchange users