Comment à Change Active Directory, afficher des noms

bonjour
j'ai recupere un script sur un site microsoft url:http://
support.microsoft.com/kb/300427/fr

j'arrive pas a le faire fonctionn=E9
il faut ajoute le non du domaine et OU mais ou exactement
Help


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 =3D cscript chgdisplay.vbs "OU=3DMy Ou, DC=3DMy Domain, DC=3Dcom"
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 =3D GetObject("LDAP://" & strTargetOU)
oTargetOU.Filter =3D Array("user")

For each usr in oTargetOU
if instr(usr.SamAccountName, "$") =3D 0 then
if instr(usr.displayName, ",") =3D 0 then
vTempName =3D usr.get("displayName")
astrWords =3D split(vTempName)
CountWords =3D UBound(astrWords) - LBound(astrWords) +1
if CountWords =3D 2 then
vFirst =3D astrWords(0)
vLast =3D astrWords(1)
vFullname =3D vLast + ", " + vFirst
usr.put "Sn", vLast
usr.put "GivenName", vFirst
end if
if CountWords =3D 3 then
vFirst =3D astrWords(0)
vMiddle =3D astrWords(1)
vLast =3D astrWords(2)
vFullname =3D 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 =3D WScript.Arguments

if vArgs.Count <> 1 then
DisplayUsage()
Else
strTargetOU =3D 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=3DMyOU,DC=3DMyDomain,DC=3Dcom" & chr(34)
WScript.Quit(0)
End Sub