How to Modify AD CN Field




Hi,

How to Modify AD CN or Name Field stored in Active Directory.
The server would be Server 2003 without SP2.
Could any one help me on this issue.
Many thanks in advance.
BTW: old sam account like this "000123" DisplayName "Jack" ...

============================================

option explicit
dim strOU,strUser,strName,colAccounts,objUser,objUser2,UsersCount
strOU = "OU=Test,"
UsersCount=0
Set colAccounts=GetObject("LDAP://"; & strOU & "DC=ABC,DC=COM")
colAccounts.Filter = Array("user")

For Each objUser In colAccounts
if instr(objUser .SamAccountName, "$") = 0 then
strUser = objUser.Name
if left(objUser.sAMAccountName,1) = "0" then
strName="6" & right(objUser.sAMAccountName,len(objUser.sAMAccountName)-1)
else
strName=objUser.sAMAccountName
end if

objUser.sAMAccountName = strName
objUser.userPrincipalName = strName & "@ABC.COM"
'''''''''''''''''''''''''
' err... how to change ? CN or Name field
'''''''''''''''''''''''''
objUser.CN = strName
objUser.SetInfo
UsersCount=UsersCount+1
end if
Next



.