How to use a VBScript to write proxy addresses to an Ldifde.exe-compatible import file in Exchange Server 2003

' --- Start script ---

'
' This script will connect to your default naming context 
' in Active Directory and build an ldifde.exe import file
' for all users and their e-mail addresses.
' The default file name is userProxyAddresses.ldf
'
' -------------------------------------------------------
' 
' Copyright (C) 2006 Microsoft Corporation
' You have a royalty-free right to use, modify, 
' reproduce and distribute this sample application
' (or any modified version) in any way you find useful,
' provided that you agree that Microsoft has no warranty, 
' obligations or liability for results produced by this or
' your sample application.
'
' ---------------------------------------------------------
Dim exportFileName
Dim count
Dim FileObject
Dim LogFile
Dim Connection
Dim Command
Dim RecordSet
 
Const Writable = 2
exportFileName = InputBox("Enter an name for the ldifde import file;" & _
" .ldf will be added to the file name.", "e-mail address import generator",_
"userProxyAddresses")
count = 0 

Set FileObject   = CreateObject("Scripting.FileSystemObject")
Set LogFile                          = FileObject.OpenTextFile(exportFileName & _
".ldf", Writable, True)
Set Connection  = CreateObject("ADODB.Connection")
Set Command                   = CreateObject("ADODB.Command")
Set RecordSet   = CreateObject("ADODB.RecordSet") 

With Connection
                .Provider             = "ADsDSOObject"
                .Open "Active Directory Provider"
End With

Set Command.ActiveConnection = Connection
Set objRootDSE = GetObject("LDAP://rootDSE")
Command.CommandText = "<LDAP://" & _
objRootDSE.Get("defaultNamingContext")_
& ">;(&(objectCategory=user)(proxyAddresses=*))" & _
";distinguishedName,mail,proxyAddresses;subtree" 

Set RecordSet   = Command.Execute 

While Not RecordSet.EOF

                On Error Resume Next
                strUserDN                           = RecordSet.Fields("distinguishedName")
                strMail                                  = RecordSet.Fields("mail")
                strProxyAddress = RecordSet.Fields("proxyAddresses")
 
                LogFile.Write "dn: " & strUserDN & vbCrLf
                LogFile.Write "changetype: modify" & vbCrLf
                LogFile.Write "replace: mail" & vbCrLf
                LogFile.Write "mail: " & strMail & vbCrLf
                LogFile.Write "-" & vbCrLf & vbCrLf 

                LogFile.Write "dn: " & strUserDN & vbCrLf
                LogFile.Write "changetype: modify" & vbCrLf
                LogFile.Write "replace: proxyAddresses" & vbCrLf

                For Each Item in strProxyAddress
                                strTempAddr = Item
                                LogFile.Write "proxyAddresses: " & Item & vbCrLf
                    count = count + 1
                Next

                LogFile.Write "-" & vbCrLf & vbCrLf

                RecordSet.MoveNext

Wend

LogFile.Close

msgbox "Exported " & count & " users and " & _
"their e-mail addresses to " _
& exportFileName & ".ldf" 

Set objRootDSE  = Nothing
Set FileObject   = Nothing
Set LogFile          = Nothing
Set Connection = Nothing
Set Command   = Nothing
Set RecordSet   = Nothing
� --- end script ---