'Global variables

Dim Container

Dim OutPutFile

Dim FileSystem

'Initialize global variables

Set FileSystem = WScript.CreateObject("Scripting.FileSystemObject")

Set OutPutFile = FileSystem.CreateTextFile("smtpaddresses.csv", True)

'Replace with valid DN of the container you want to enumerate

Set objRootDSE = GetObject("LDAP://RootDSE")

Set Container=GetObject("LDAP://" & objRootDSE.Get("defaultNamingContext"))

'Set Container=GetObject("LDAP://dc=edomain,dc=ecollect,dc=local")

'Enumerate Container

EnumerateUsers Container

'Clean up

OutPutFile.Close

Set FileSystem = Nothing

Set Container = Nothing

'Say Finished when your done

WScript.Echo "Finished"

WScript.Quit(0)

'List all Users

Sub EnumerateUsers(Cont)

Dim User

'Go through all Users and select them

For Each User In Cont

Select Case LCase(User.Class)

'If you find Users

Case "user"

'Select all proxyAddresses

Dim Alias

If Not IsEmpty(User.proxyAddresses) Then

'OutPutFile.Write User.DisplayName

strAliases = ""

If IsArray(User.proxyAddresses) = True Then

For Each Alias in User.proxyAddresses

If InStr(1,Alias,"smtp",1) > 0 Then

strAddress = Replace(Alias,"smtp:","",1,1,1)

arrAlias = Split(strAddress, "@")

If InStr(LCase(strAliases), LCase(arrAlias(1))) = 0 Then

If strAliases = "" Then

strAliases = """" & strAddress & """"

Else

strAliases = strAliases & ",""" & arrAlias(0) & """"

End If

End If

'WScript.Echo User.DisplayName & vbTab & Replace(Alias,"smtp:","",1,1,1)

End If

'WScript.Echo Alias

Next

Else

strAliases = """" & Replace(LCase(User.proxyAddresses), "smtp:", "") & """"

End If

OutPutFile.WriteLine strAliases

End If

Case "organizationalunit" , "container"

EnumerateUsers User

End Select

Next

End Sub

'*******************************************************