Ce code VBS créé des comptes dans votre AD fonction
d'un fichier a plat renseigné et exporté a partir
d'Excel : Users.txt.
[Le mot de passe appliqué par défaut avant la demande de
changement de mot de passe est : "" soit <BLANK>]
La proc. FormatageFichierTexteUsers() permet de reformater
l'export Excel "Users.txt".
Pour être utilisé, le script et son fichier source (Users.txt)
doivent être déposés sur le DC Active Directory dans C:\TEMP\AD,
sinon penser a modifier les chemins dans le source.
Utilisation pratique :
- Ajout de comptes dans l'Active Directory,
- Ajoute le/les comptes dans les groupes spécifiés,
- Configure le mot de passe à blanc et demande sa modification
à la première ouverture de session
PAR DEFAUT dans le prog. :
--> GG_Users_Groupe1
--> GG_Users_Groupe2
--> GG_Users_Groupe3
--> Utilisateurs du Domaine
De nombreuses évolutions sont possibles comme l'ajout de nouveaux groupes dans l'AD
via le fichiers Users.txt simplement en rajoutant des nouvelles procédures.
Par exemple :
Const ADS_GROUP_TYPE_GLOBAL_GROUP = &h2
Const ADS_GROUP_TYPE_SECURITY_ENABLED = &h80000000
Set objOU = GetObject("LDAP://dc=votre,dc=connexion,dc=ldap,dc=fr")
Set objGroup = objOU.Create("Group", "cn=Groupe1")
objGroup.Put "sAMAccountName", "HRStaff"
objGroup.Put "groupType", ADS_GROUP_TYPE_GLOBAL_GROUP Or _
ADS_GROUP_TYPE_SECURITY_ENABLED
objGroup.SetInfo
Voilà, j'espère que ce script aidera les développeurs débutants
ou confirmés a trouver leurs bonheurs de dernières minutes :-)
HappY CoDinG, CodInG iS GoOd FoR Yu
------------------------- SNAPS 8/02/06 ------------------------