Someone said:
Is there a tool to change the display name from all
uppercase in the AD to first letter uppercase and the
rest lower case?
The tool - I don't think so - but this can be done with ADSI script
The script You will find below, the URL to text file with it is:
http://www.w2k.pl/trash/capitalize.txt
I put this script into this post to let somebody fix my errors if any
I know it can be shortert but I had a sample body and put only few lines
into it to correct display name as Someone want to.
This script will get all users in the domain and then chenge display
name to format: first letter Upper case, all following characters lower case
=============
Const ADS_SCOPE_SUBTREE = 2
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Timeout") = 30
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
objCommand.Properties("Cache Results") = False
Set rootDSE = GetObject("LDAP://rootDSE")
strDomain = rootDSE.Get("defaultNamingContext")
strSQLStmt = "<LDAP://" & strDomain &
">;(&(objectCategory=Person)(objectClass=user));distinguishedName"
objCommand.CommandText = strSQLStmt
Set objResultRecordSet = objCommand.Execute
If NOT objResultRecordSet.BOF and NOT objResultRecordSet.EOF Then
Do Until objResultRecordSet.EOF
Set objUser = GetObject("LDAP://" &
objResultRecordSet.Fields("distinguishedName").Value )
If Len(objUser.displayname) > 0 Then
strDisplayNew = UCase(Left(objUser.displayname,1)) & LCase(Right(
objUser.displayname, Len(objUser.displayname)-1) )
objUser.Put "displayName", strDisplayNew
objUser.SetInfo
wscript.Echo objUser.displayname & " --- " & strDisplayNew
End If
Set objUser = Nothing
objResultRecordSet.MoveNext
Loop
End If
Set objResultRecordSet = Nothing
Set objCommand = Nothing
Set objConnection = Nothing
wscript.quit 0
========
