logon name change 1

[supportahm1980]

Hi. I am looking to change a OU worth of users from Jdoe to John.Doe format. I have the default e-mail recipient policy changed in exchange already.

The two fields I am looking to change is the User logon name and the userlogon name pre windows 2000. (which can be found on the Account tab in AD)

Are these fields the "SamAccountName" and "UserPrincipalName"

My idea is to grab each users first and last name and replace the two fields above with something like ObjUser.Put "UserPrincipalName", FirstName & "." & Surname & "@domain.local"

Thank you.

 

[markdmac]

This is easy enough to accomplish.

'You only need to change the following text to match your OU structure
OUPath = "LDAP://OU=Test OU,DC=thespidersparlor,DC=local"

Set CNUsers = GetObject (OUPath)
CNUsers.Filter = Array("user")
For Each User in CNUsers
     NewNameFormat = User.givenName & "." & User.sn
     Set objUser = GetObject("LDAP://" & User.DistinguishedName)
     objUser.SamAccountName = NewNameFormat
     objUser.UserPrincipalName = NewNameFormat
     objUser.SetInfo
Next

I hope you find this post helpful.

Regards,

Mark

Check out my scripting solutions at

http://www.thespidersparlor.com/vbscript

Work SMARTER not HARDER. The Spider's Parlor's Admin Script Pack is a collection of Administrative scripts designed to make IT Administration easier! Save time, get more work done, get the Admin Script Pack.

 

[supportahm1980]

Thanks. I scripted like this:

Sub ModifyUsers(oObject)
Dim oUser
For Each oUser in oObject
Select Case oUser.Class
Case "user"

oUser.Put "UserPrincipalName", oUser.FirstName & "." & oUser.Lastname & "@foo.local"
oUser.Put "SamAccountName", oUser.FirstName & "." & oUser.Lastname
oUser.Setinfo

Case "organizationalUnit" , "container"
ModifyUsers(oUser)
End select
Next
End Sub
Dim oDomain
'Set OU below to employees when in production.

Set oDomain=GetObject("LDAP://OU=testusers,OU=test,DC=foo,DC=local")
ModifyUsers(oDomain)
Set oDomain = Nothing
MsgBox "Finished"
WScript.Quit