Export/Extract All SMTP Address from Windows 2003 Active Directory

You can always add the column in the display within Exchange System Manager and then export the list.

Bob

Sorry...meant AD Users & Computers...and this does not work well for a large enterprise.

See if this link helps:

http://www.msexchange.org/tutorials/Creating_a_list_of_Users_and_their_email_addresses_in_Exchange_2000_2.html
http://www.msexchange.org/tutorials/Creating_a_list_of_Users_and_their_email_addresses_in_Exchange_2000.html

Retrieving all the e-mail addresses is really easy (when you know how of course). Do you need anything more than the e-mail addresses? The account they're associated with for example?

If you just want a plain list then this will extract them for you and dump them to Addresses.txt (save as <something>.vbs and run it):

Option Explicit

' Global Constants

Const ADS_SCOPE_SUBTREE = 2

' Global Variables

Dim objFileSystem, objFile, objRootDSE
Dim strDomainName

'
' Subroutines
'

Sub FindAddress

      ' Runs a simple AD Query to find proxyAddresses.

      Dim objConnection, objCommand, objRecordSet
      Dim strAddress
      Dim arrAddresses

      Set objConnection = CreateObject("ADODB.Connection")
      objConnection.Provider = "ADsDSOObject"
      objConnection.Open "Active Directory Provider"

      Set objCommand = CreateObject("ADODB.Command")
      objCommand.ActiveConnection = objConnection

      objCommand.CommandText = "SELECT proxyAddresses FROM 'LDAP://" & strDomainName & "'"

      objCommand.Properties("Page Size") = 1000
      objCommand.Properties("Timeout") = 600
      objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
      objCommand.Properties("Cache Results") = False

      Set objRecordSet = objCommand.Execute

      While Not objRecordSet.EOF
            On Error Resume Next
            arrAddresses = objRecordSet.Fields("proxyAddresses")
            For Each strAddress in arrAddresses
                  If InStr(1, strAddress, "smtp:", VbTextCompare) Then
                        objFile.WriteLine Replace(LCase(strAddress), "smtp:", "")
                  End If
            Next
            On Error Goto 0
            objRecordSet.MoveNext
      Wend

      objConnection.Close

      Set objRecordSet = Nothing
      Set objCommand = Nothing
      Set objConnection = Nothing
End Sub

'
' Main Code
'

Set objFileSystem = CreateObject("Scripting.FileSystemObject")
Set objFile = objFileSystem.OpenTextFile("Addresses.txt", 2, True, 0)

Set objRootDSE = GetObject("LDAP://RootDSE")
strDomainName = objRootDSE.Get("defaultNamingContext")
WScript.Echo "Searching Domain: " & strDomainName & VbCrLf

FindAddress

Set objFile = Nothing
Set objFileSystem = Nothing

Oh anad the script should be run as Administrator... the SQL queries are a little fussy about access rights.

Chris

Nice VBScript!

Hi ingetic - your idea works great for users but I can't work out how to use it to get group email addresses.

Hi Chris-Dent - your idea works well and being a program I'm sure someone can tell me how I could modify it to also get the Display Name and Type for each object returned, inlcuding users and groups.

Thanks

Barry

Yes, the display name and type would be great info to have also.  

Very easy to add - how do you want it to be displayed?

If it's possible, Display Name, Type, smtp addresses

for group, you can use :
dsquery group

Hi Ingetic

dsquery group works but then it won't let me do dsget group -email. Is there a way of extracting the email addresses for groups like that?

I'll give Chris-Dent's suggestion a go when I'm back in the office.

Thanks to both of you for the ideas - I posted my first question on the Outlook section (about linked addresses in distribution lists) a couple of weeks ago and got zero response, which surprised me. This thread just shows how well Experts Exchange works with everyone contributing.

Regards

Barry

I didn't ask the question but I did join in and get some useful help so I would recommend splitting the points with the larger share to Chris_Dent for his vbscript and ingetic for the command line idea.

Just my 2 cents worth.

Thanks guys for the help

Barry