I had the same question and I wrote the following script:
on Error Resume Next
set wshShell = Wscript.CreateObject("Wscript.Shell")
set fso = CreateObject("Scripting.FileSystemObject")
set mylog = fso.CreateTextFile
("C:\temp\emailaddresses_new.log", True)
set userContainer = GetObject("LDAP://SERVER/OU=YOUROU,
OU=Accounts, DC=DOMAIN,DC=COM")
mylog.writeline "User Name: " & "Display Name: " & "First
Name: " & "Last Name: " & "Email Addresses: "
mylog.writeline
for each userObj in userContainer
mylog.write userObj.samaccountname & " * " &
userobj.displayname & " * " & userobj.FirstName & " * " &
userobj.lastname & " * "
for each x in userObj.proxyAddresses
mylog.write x & " "
Next
mylog.writeline
Next