Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
3420 connectés 

 


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 !
Le ton de votre message                        
                       
Votre réponse


[b][i][u][strike][spoiler][fixed][cpp][url][email][img][*]   
 
   [quote]
 

Options

 
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
 

Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)