Forum
|
HardWare.fr
|
News
|
Articles
|
PC
|
S'identifier
|
S'inscrire
|
Shop
Recherche
3420 connectés
FORUM HardWare.fr
Windows & Software
script pour empêcher la modif du mdp des utilisateurs : problème
Recherche :
Dernière réponse
Sujet : script pour empêcher la modif du mdp des utilisateurs : problème
bascarol
moi à ta place je mettrais le post dans programmation tu auras plus de chance
courage
Votre réponse
Nom d'utilisateur
Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !
Mot de passe
Vous avez perdu votre mot de passe ? Cliquez ici !
Le ton de votre message
Votre réponse
Smilies
Liste des smilies perso
Wiki smilies
Chercher un smiley
Options
Activer votre signature
Désactiver les smilies
Activer la notification par email du sujet
Aperçu
Vous avez perdu votre mot de passe ?
Vue Rapide de la discussion
bascarol
moi à ta place je mettrais le post dans programmation tu auras plus de chance
courage
c_moa
re re up
c_moa
re up
c_moa
up
c_moa
J'ai déjà effectué un post avec un titre en anglais, j'essaye maintenant en français
J'ai rédigé un script vbs pour créer un millier de comptes utilisateurs, et je souhaite activer "l'utilisateur ne peut pas changer de mot de passe"
Le code proposé par Microsoft sur leur script center
http://www.microsoft.com/technet/t [...] efault.asp
est
Const ADS_ACETYPE_ACCESS_DENIED_OBJECT = &H6
Const ADS_ACEFLAG_OBJECT_TYPE_PRESENT = &H1
Const CHANGE_PASSWORD_GUID = "{ab721a53-1e2f-11d0-9819-00aa0040529b}"
Const ADS_RIGHT_DS_CONTROL_ACCESS = &H100
Set objUser = GetObject("LDAP://cn=utilisateur,ou=classe,dc=collègebidule,dc=fr" )
Set objSD = objUser.Get("ntSecurityDescriptor" )
Set objDACL = objSD.DiscretionaryAcl
arrTrustees = array("nt authority\self", "EVERYONE" )
For Each strTrustee in arrTrustees
Set objACE = CreateObject("AccessControlEntry" )
objACE.Trustee = strTrustee
objACE.AceFlags = 0
objACE.AceType = ADS_ACETYPE_ACCESS_DENIED_OBJECT
objACE.Flags = ADS_ACEFLAG_OBJECT_TYPE_PRESENT
objACE.ObjectType = CHANGE_PASSWORD_GUID
objACE.AccessMask = ADS_RIGHT_DS_CONTROL_ACCESS
objDACL.AddAce objACE
Next
objSD.DiscretionaryAcl = objDACL
objUser.Put "nTSecurityDescriptor", objSD
objUser. SetInfo
Or j'ai un message d'erreur : erreur : structure d'ID de sécurité non valide
à l'avant dernière ligne de code objUser.Put "nTSecurityDescriptor", objSD
mystère !
Merci d'avance
Forum MesDiscussions.Net
, Version 2010.2
(c) 2000-2011 Doctissimo
Copyright © 1997-2025 Groupe
LDLC
(
Signaler un contenu illicite / Données personnelles
)