Active Dirctory User Names

Printable View

5th February 2013, 02:05 PM
richbrowncardiff

Active Dirctory User Names

Hi Everyone,

any idea if i can bulk swap surname and firstname in AD ?

When uploading CSV's to setup our users in the sumer i rushed it (never a good idea) and consiquently some users now show surname in the firstname field and first name in the surname field.

Any whay i can change this without doing it all again ?

Many thanks
5th February 2013, 03:57 PM
Duke5A

Code:

Set oContainer = GetObject("LDAP://OU=Staff,OU=Users LPS,DC=domain,DC=com") oContainer.Filter = Array("user") For Each User in oContainer on error resume next strOldSN = User.SN strOldFN = User.FirstName User.SN = strOldFN User.FirstName = strOldSN User.FullName = strOldSN & Chr(32) & strOldFN User.SetInfo wscript.sleep (100) If err.number <> 0 Then msgbox "Error: " & strOldSN end if Next

Change the LDAP path to match the OU you want to run it in. You need to isolate the users though that have their names flipped (you would have to do this regardless of what scripted solution you use). I hope this helps.
5th February 2013, 04:29 PM
richbrowncardiff

Hi thank you for your help.

I have set the script as below (xxx is where i put my domain name etc

Set oContainer = GetObject("LDAP://OU=Intake2004,OU=Students,OU=xxxxxxx Users,DC=xxxxx,DC=xxxxxxxx")
oContainer.Filter = Array("user")

For Each User in oContainer

on error resume next

strOldSN = User.SN
strOldFN = User.FirstName

User.SN = strOldFN
User.FirstName = strOldSN
User.FullName = strOldSN & Chr(32) & strOldFN

User.SetInfo

wscript.sleep (100)

If err.number <> 0 Then
msgbox "Error: " & strOldSN
end if
Next

when i run the vbs nothing seems to happen.

do i need to add anything else ?

Many thanks
5th February 2013, 04:31 PM
strawberry

Wisesoft ad managment will do this in s spreadsheet for you.
5th February 2013, 07:48 PM
richbrowncardiff

Many thanks !

I forgot about wisesoft perfect.
6th February 2013, 02:13 PM
Duke5A

I guess it would be nice to know when it was done processing an OU. Check your users. If you didn't see a message box in initial run then it flipped the names. If you ran it a second time then it would flip the names again.

Code:

Set oContainer = GetObject("LDAP://OU=Staff,OU=Users LPS,DC=domain,DC=com") oContainer.Filter = Array("user") For Each User in oContainer on error resume next strOldSN = User.SN strOldFN = User.FirstName User.SN = strOldFN User.FirstName = strOldSN User.FullName = strOldSN & Chr(32) & strOldFN User.SetInfo wscript.sleep (100) If err.number <> 0 Then msgbox "Error: " & strOldSN end if Next Msgbox "Work is done!"
7th February 2013, 10:36 AM
enjay

WiseSoft Bulk AD Users - download all your AD users into a CSV, edit the CSV and then upload it back again. I used this recently when I needed to change everyone's surname, also to remove email addresses from lots of users at once.