Re: x.500 Addresses ?
- From: "John Fullbright" <fjohn@donotspamnetappdotcom>
- Date: Thu, 3 Apr 2008 13:13:20 -0700
There's no proxy address generator for x500, but you can add a coustom
address of type x500. This problem as been around since 5.5 to 2000
migrations. Seems there'd be a better way. Anyway, I wrote a script a few
years back to walk a group or nested group and add an x500 address to all
the members. You should be able to munge into something that works for you.
' 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 - John Fullbright
' 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
"Dummy" <invalid@xxxxxxxxxxxxxxxxxxx> wrote in message
news:O4C47$UlIHA.980@xxxxxxxxxxxxxxxxxxxxxxx
Hi
Currently we have Exchange Server 2003 SP1 servers in an AD forrest.
We have this on a test bed currently.
We created a seperate new pristine AD forrest and domain and Installed
Exchange Server 2007 SP1, created new the users and mailboxes.
The users want their old emails retained and copied to their new
mailboxes.
Whats the best method of achiving this, also of copying items into Public
Folders?
Have seen issues with 'legacyExchangeDN' attributes which occurs when
users try to reply to an old message.
Users have tried copying their old mail via PSTs but they cannot see other
calendars or reply.
Any pointers would be welcome.
Would a X.500 proxy address help, if so how do I do that?
RajiA
.
- References:
- x.500 Addresses ?
- From: Dummy
- x.500 Addresses ?
- Prev by Date: Re: Stopping netlogon produces error in ESM
- Next by Date: Re: Mailbox Creation
- Previous by thread: x.500 Addresses ?
- Next by thread: Content Filter not working!
- Index(es):
Relevant Pages
|
