How to Modify AD CN Field
- From: "Jackliu" <admin@xxxxxxxxxxxxxxxxxxxx>
- Date: Tue, 9 Dec 2008 15:46:49 +0800
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
.
- Follow-Ups:
- Re: How to Modify AD CN Field
- From: Marcin
- Re: How to Modify AD CN Field
- Prev by Date: batch to run chkdsk on all local drives?
- Next by Date: Re: How to Modify AD CN Field
- Previous by thread: batch to run chkdsk on all local drives?
- Next by thread: Re: How to Modify AD CN Field
- Index(es):
Relevant Pages
|
