How to Modify AD CN Field

9 Dec 2008 7:46 AM

Jackliu

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

9 Dec 2008 12:42 PM

Marcin

Use MoveHere method of the parent object - refer to
http://www.microsoft.com/technet/scriptcenter/guide/sas_usr_aznz.mspx?mfr=true
for more info...

hth
Marcin

Show quoteHide quote

"Jackliu" <ad***@private.overmcse.com> wrote in message
news:%2369$RJdWJHA.3920@TK2MSFTNGP05.phx.gbl...
> 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
>
>
>

11 Dec 2008 6:03 AM

Jackliu

Thank you very much. :)