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
"Jackliu" <admin[ at ]private.overmcse.com> wrote in message
news:%2369$RJdWJHA.3920[ at ]TK2MSFTNGP05.phx.gbl...
[Quoted Text] > 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 & "[ at ]ABC.COM"
> '''''''''''''''''''''''''
> ' err... how to change ? CN or Name field
> '''''''''''''''''''''''''
> objUser.CN = strName
> objUser.SetInfo
> UsersCount=UsersCount+1
> end if
> Next
>
>
>
|