Comment à Change Active Directory, afficher des noms

Il y a 220 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici

Voir les posts : Par défaut Tous Les bonnes notes Les notes insuffisantes

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Comment à Change Active Directory, afficher des noms

sofiane29

Plus d'informations

13-04-2007 à 11:56:19

Bnjour

j'ai recupere un script sur un site microsoft

sur le lient http://support.microsoft.com/kb/300427/fr

me script ne fonctionne pas
ou je pouré modifiar le non du domaine et OU sur le script

http://support.microsoft.com/kb/300427/fr

Code :

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

Message édité par sofiane29 le 13-04-2007 à 18:24:31

KangOl

Profil : Pointeur

Plus d'informations

13-04-2007 à 15:44:21

Masquer

1/ balise [code]
2/ c'est quoi le message d'erreur ?

---------------
Da Bidz Triad©®™: Bidz Interceptor
.:: Smileyz version 4.2 [050625]::. -- Code source disponible sous licence GPL.
[u

sofiane29

Plus d'informations

13-04-2007 à 18:29:54

Masquer

il ya pas d'erreur je s'avais pas commnet metre les parametre dans le script le probleme c'est qu'on peut pas done plusier OU comme parametre
si vous pouver m'haider a modifier le script pour qu'il accet n ou ou qu'il agi sur tous le domaine

Merci d'avence

Aller à :

FORUM Tom's Hardware » Programmation » VB / VBA / VBS » Comment à Change Active Directory, afficher des noms

Page générée en 0.330 secondes