Hi
I did create and use the following scripts to change all of the legacyExchangeDN
values in my domain.
You can easily modify it for your purpose. Just expirement with an small test
container.
-----------------------------------
Sub FixExchangeDN(LDAPPathName)
Set usr = GetObject(LDAPPathName)
c = 0
for each x in usr
c=c+1
if lcase(mid(x.legacyExchangeDN,1,2))="/o" then
wscript.echo x.name & " = " & s1
s1=x.legacyExchangeDN
s1=replace(s1,"/OU","/ou")
s1=replace(s1,"/O","/o")
s1=replace(s1,"/CN","/cn")
s1=replace(s1,"OPIN KERFI","Opin kerfi")
s1=replace(s1,"REYKJAVIK","Reykjavik")
s1=replace(s1,"RECIPIENTS","Recipients")
x.legacyExchangeDN=s1
x.setinfo
end if
next
set usr=nothing
ListUsers=0
End Sub
FixExchangeDN("LDAP://cn=users-ou,dc=my-domain,dc=is";)
-----------------------------------
Hjorleifur Kristinsson, MCSE since 1995
Opin kerfi ehf, Iceland
PS: In my case it was needed because free/busy services didn't work right with
lowercase letters.
-----Original Message-----
From: Pham, Tuan [mailto:[EMAIL PROTECTED]
Sent: 20. j�n� 2003 16:33
To: Exchange Discussions
Hello MS Exchange 2000 friends!
Does anyone out there have a vbscript or any script that I can use to modify the
values of legacyExchangeDN, I'm desperately need it. I don't want to use adsiedit to
do it, I'm talking about 2000 users. Thanks!!!
_________________________________________________________________
List posting FAQ: http://www.swinc.com/resource/exch_faq.htm
Web Interface:
http://intm-dl.sparklist.com/cgi-bin/lyris.pl?enter=exchange&text_mode=&lang=english
To unsubscribe: mailto:[EMAIL PROTECTED]
Exchange List admin: [EMAIL PROTECTED]
_________________________________________________________________
List posting FAQ: http://www.swinc.com/resource/exch_faq.htm
Web Interface:
http://intm-dl.sparklist.com/cgi-bin/lyris.pl?enter=exchange&text_mode=&lang=english
To unsubscribe: mailto:[EMAIL PROTECTED]
Exchange List admin: [EMAIL PROTECTED]
