Se connecter avec
S'enregistrer | Connectez-vous

Comment à Change Active Directory, afficher des noms

Dernière réponse : dans Programmation

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


  1. rem chgdisplay3.vbs - Changes the display names of all users in a given OU to the
  2. rem format of Lastname, Firstname Middle using the current displayName field and breaking this into seperate strings.
  3. rem Usage = cscript chgdisplay.vbs "OU=My Ou, DC=My Domain, DC=com"
  4. rem OU must be enclosed in quotes if it contains spaces in the name
  5.  
  6. Dim strTargetOU
  7.  
  8. ParseCommandLine()
  9.  
  10. wscript.echo strTargetOU
  11. wscript.echo
  12. wscript.echo "Changing Display names of users in " & strTargetOU
  13.  
  14. Set oTargetOU = GetObject("LDAP://" & strTargetOU)
  15. oTargetOU.Filter = Array("user")
  16.  
  17. For each usr in oTargetOU
  18. if instr(usr.SamAccountName, "$") = 0 then
  19. if instr(usr.displayName, ",") = 0 then
  20. vTempName = usr.get("displayName")
  21. astrWords = split(vTempName)
  22. CountWords = UBound(astrWords) - LBound(astrWords) +1
  23. if CountWords = 2 then
  24. vFirst = astrWords(0)
  25. vLast = astrWords(1)
  26. vFullname = vLast + ", " + vFirst
  27. usr.put "Sn", vLast
  28. usr.put "GivenName", vFirst
  29. end if
  30. if CountWords = 3 then
  31. vFirst = astrWords(0)
  32. vMiddle = astrWords(1)
  33. vLast = astrWords(2)
  34. vFullname = vLast + ", " + vFirst + " " + vMiddle
  35. usr.put "Sn", vLast
  36. usr.put "GivenName", vFirst
  37. usr.put "middleName", vMiddle
  38. end if
  39.  
  40. usr.put "displayName", vFullName
  41. usr.setinfo
  42. wscript.echo vFullName
  43. end if
  44. end if
  45. Next
  46.  
  47.  
  48. Sub ParseCommandLine()
  49. Dim vArgs
  50. set vArgs = WScript.Arguments
  51.  
  52. if vArgs.Count <> 1 then
  53. DisplayUsage()
  54. Else
  55. strTargetOU = vArgs(0)
  56. End if
  57. End Sub
  58.  
  59. Sub DisplayUsage()
  60. WScript.Echo
  61. WScript.Echo "Usage: cscript.exe " & WScript.ScriptName & " <Target OU to change users display names in>"
  62. WScript.Echo "Example: cscript " & WScript.ScriptName & " " & chr(34) & "OU=MyOU,DC=MyDomain,DC=com" & chr(34)
  63. WScript.Quit(0)
  64. End Sub
Lassé par la pub ? Créez un compte

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
Lassé par la pub ? Créez un compte