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:

Version 0.2 (2009/08/05)
-Mise au propre des commentaire et isolation des variables de configuration.
Version 0.1 (2008/09/15)
-Création du script et test en production avec succès.