Comment à Change Active Directory, afficher des noms

rem chgdisplay3.vbs - Changes the display names of all users in a given OU to the 

rem format of Lastname, Firstname Middle using the current displayName field and breaking this into seperate strings.

rem Usage = cscript chgdisplay.vbs "OU=My Ou, DC=My Domain, DC=com"

rem OU must be enclosed in quotes if it contains spaces in the name

 
Dim strTargetOU

 
ParseCommandLine()

 
wscript.echo strTargetOU

wscript.echo

wscript.echo "Changing Display names of users in " & strTargetOU

 
Set oTargetOU = GetObject("LDAP://" & strTargetOU)

oTargetOU.Filter = Array("user")

 
For each usr in oTargetOU

	if instr(usr.SamAccountName, "$") = 0 then  

		if instr(usr.displayName, ",") = 0 then 

			vTempName = usr.get("displayName") 

			astrWords = split(vTempName) 

			CountWords = UBound(astrWords) - LBound(astrWords) +1 

			if CountWords = 2 then

				vFirst = astrWords(0)

				vLast = astrWords(1)

				vFullname = vLast + ", " + vFirst

				usr.put "Sn", vLast

				usr.put "GivenName", vFirst

			end if

			if CountWords = 3 then 

				vFirst = astrWords(0)

				vMiddle = astrWords(1)

				vLast = astrWords(2)

				vFullname = vLast + ", " + vFirst + " " + vMiddle

				usr.put "Sn", vLast

				usr.put "GivenName", vFirst

				usr.put "middleName", vMiddle

			end if

 
 		usr.put "displayName", vFullName 

	   	usr.setinfo

		wscript.echo vFullName

    		end if

	end if

Next

 
 
Sub ParseCommandLine()

  	Dim vArgs

  	set vArgs = WScript.Arguments

 
  	if vArgs.Count <> 1 then 

      		DisplayUsage()

  	Else

     		strTargetOU = vArgs(0)

  	End if

End Sub

 
Sub DisplayUsage()

	WScript.Echo

 	WScript.Echo "Usage:  cscript.exe " & WScript.ScriptName & " <Target OU to change users display names in>" 

 	WScript.Echo "Example: cscript " & WScript.ScriptName & " " & chr(34) & "OU=MyOU,DC=MyDomain,DC=com" & chr(34)

	WScript.Quit(0)

End Sub