Etat du script: Fonctionnel
Présentation:
Le script:
'Modification sur comptes utilisateurs dans AD 'Version 0.2 20090805 by Clockover 'Variables de configuration strPassword = "PASSWORD" intAccValue = 512 => désactivé; 514 => activé; 544 => activé et doit changer de mot de passe; 66048 => activé avec mot de passe qui n'expire pas strOU = "OU=ServiceX,OU=Utilisateurs" 'Script 'Recherche des utilisateurs dans l'OU spécifiée. Set objRootDSE = GetObject("LDAP://rootDSE") Set objOU = GetObject("LDAP://" & strOU & "," & objRootDSE.Get("defaultNamingContext")) 'On veut uniquement les objets de type utilisateurs. On explorer les objets. objOU.Filter = Array("user") For Each objItem In objOU 'Wscript.Echo ObjItem.Name & "," & strOU & "," & objRootDSE.Get("defaultNamingContext") 'Pour ajouter l'utilisateur dans un groupe... 'set grp = GetObject("LDAP://CN=GROUPE,OU=CONTENANT," & objRootDSE.Get("defaultNamingContext")) 'grp.Add "LDAP://" & ObjItem.Name & "," & strOU & "," & objRootDSE.Get("defaultNamingContext") 'Pour changer le mot de passe... 'objItem.SetPassword strPassword 'objItem.SetInfo 'Pour changer l'état de l'objet 'objItem.Put "userAccountControl", intAccValue 'objItem.SetInfo Next
TODO Liste:
Historique:
Page générée en 0.006 secondes