SUPINFO International University

SUPINFO Institute of Information Technology
Laboratoire Microsoft




déléguer le droit de réinitialiser les mots de passe à un utilisateur

Accueil > Script > active_directory > déléguer le droit de réinitialiser les mots de passe à un utilisateur

déléguer le droit de réinitialiser les mots de passe à un utilisateur

Par Camille BEFFARA, LABORATOIRE SUPINFO DES TECHNOLOGIES MICROSOFT
Publiée le 23/06/2005 vers 14h.

Ce script permet de déléguer le droit de réinitialiser les mots de passe à un utilisateur. Vous devrez modifier les valeurs en italique

Const ADS_ACETYPE_ACCESS_ALLOWED_OBJECT = &H5
Const ADS_FLAG_OBJECT_TYPE_PRESENT = &H1
Const ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT = &H2
Const ADS_RIGHT_DS_CONTROL_ACCESS = &H100

Set objSdUtil = GetObject("LDAP://CN=Rob Young, OU=Finance, DC=fabrikam,DC=Com")
Set objSD = objSdUtil.Get("ntSecurityDescriptor")
Set objDACL = objSD.DiscretionaryACL

Set objAce = CreateObject("AccessControlEntry")

objAce.Trustee = "FABRIKAM\kmyer"
objAce.AceFlags = 0
objAce.AceType = ADS_ACETYPE_ACCESS_ALLOWED_OBJECT
objAce.Flags = ADS_FLAG_OBJECT_TYPE_PRESENT OR ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT
objAce.ObjectType = "{00299570-246d-11d0-a768-00aa006e0529}"
objAce.AccessMask = ADS_RIGHT_DS_CONTROL_ACCESS
objDacl.AddAce objAce

objSD.DiscretionaryAcl = objDacl

objSDUtil.Put "ntSecurityDescriptor", Array(objSD)
objSDUtil.SetInfo



Proposer un script

Notre avis :

Votre avis :

Réactions :
0

Votants :
2

Visites :
15434

1
2
3
4
5

Script Précédent :

Lister les tâches planifiées



Retrouvez ci-dessous les autres sections du Laboratoire Microsoft