Reply address not preserved after pst import? 1

You have to add a custom X500 address to each user that matches their old Exchange 5.5 directory name:


an easy way to do this is with the script I wrote:

' Quick and dirty script to add the old Exchange 5.5 DN as an X500 address to members of a nested group after they are
' exmerged to E2K/E2k3
' Author - fullbrij@comcast.com
' Creation date - 2/13/2004
'
'
' --------------------------------------------- SCRIPT CONFIGURATION --------------------------------------------------
'
'
' strGroupDN is the DN of the group you wish to apply the changes to. You can copy and paste the DN from ADSIEDIT
' strX500Container is the X500 container of the user
'
' If you need anything more complex than mailnickname as the prefix then you must modify the script
'
'
strAddrPrefix = "X500:"
strGroupDN = "CN=Test Group,OU=Information Technology,OU=Users,OU=Corporate Office,DC=child,DC=mycompany,DC=com"
strX500Container = "/o=organization/ou=site/cn=Recipients/cn="
'
'
' ----------------------------------------------- END CONFIGURATION ---------------------------------------------------
'
'
' create the dictionary and start stamping
set dicSeenGroupMember = CreateObject("Scripting.Dictionary")
StampMembers "LDAP://" & strGroupDN, dicSeenGroupMember
'
Function StampMembers (strGroupADsPath, dicSeenGroupMember)
'
set objGroup = GetObject(strGroupADsPath)
'
for each objMember In objGroup.Members
'
' if the member is a user then stamp it
'
if objMember.Class = "user" then
' add the X500 address to proxyaddresses
objMember.PutEx 3, "ProxyAddresses", Array(strAddrPrefix & strX500Container & objMember.mailnickname)
objMember.SetInfo
end if
'
' if it is a group then expand the group recursively
if objMember.Class = "group" then
'
if dicSeenGroupMember.Exists(objMember.ADsPath) then
' do nothing to avoid looping if we already stamped it
else
' add it to the dictionary and stamp it
dicSeenGroupMember.Add objMember.ADsPath, 1
StampMembers objMember.ADsPath, dicSeenGroupMember
end if
'
end if
'
next
'
End Function

xmsre,

Again, thank you for such a helpful post. Quick question...In the MS article, does the importation of the spreadsheet involve the new exch 2k server, or the exch 5.5 server?

In otherwords, do I modify them, then do an exmerge again, or should I do an exmerge, then import the spreadsheet into the new exch 2k server?

Thanks!

Salim