Intégration massives et évolutives de comptes active directory via un fichier texte à plat.
Description
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 ------------------------
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 ------------------------
Codes Sources
A voir également
- Intégration massives et évolutives de comptes active directory via un fichier texte à plat.
- Fichier plat ✓ - Forum C# / .NET
- Www.ca-cmds.fr acceder a mes comptes - Forum C
- Vba écrire dans un fichier texte - Conseils pratiques -Visual Basic / VB.NET
- Fichier .ini - Conseils pratiques -Visual Basic / VB.NET
- Roulettechat texte - Forum PHP
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.