begin process at 2012 02 16 22:58:46
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

VBScript

 > [ACTIVE DIRECTORY] CRÉATION D'UNE UNITÉ ORGANISATIONNELLE + AJOUT D'UN UTILISATEUR

[ACTIVE DIRECTORY] CRÉATION D'UNE UNITÉ ORGANISATIONNELLE + AJOUT D'UN UTILISATEUR


 Information sur la source

Note :
1 / 10 - par 2 personnes
1,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :VBScript Classé sous :vbscript, ad, utilisateur, ou, password Niveau :Initié Date de création :14/06/2006 Vu :16 581
Auteur : FrancB

Ecrire un message privé
Site perso
Commentaire sur cette source (4)
Ajouter un commentaire et/ou une note

 Description

Ce script crée une unité organisationnelle et y place un utilisateur.
Il modifie ensuite son mot de passe et désactive le compte.

Source

  • Set objRoot = GetObject("LDAP://rootDSE")
  • Set objDomain = GetObject("LDAP://" & objRoot.Get("defaultNamingContext"))
  • Set myOU=objDomain.Create("organizationalUnit", "ou=LaboMicrosoft")
  • myOU.Put "Description", "OU crée par Laboratoire Microsoft"
  • myOU.SetInfo
  • Set myUser = myOU.Create("User", "cn=Loic Thobois")
  • myUser.Put "sAMAccountName", "lthobois"
  • myUser.Put "Description", "Utilisateur Loic Thobois"
  • myUser.SetInfo
  • myUser.SetPassword "superpassword123@"
  • myUser.AccountDisabled = True
  • myUser.SetInfo
Set objRoot = GetObject("LDAP://rootDSE")
Set objDomain = GetObject("LDAP://" & objRoot.Get("defaultNamingContext"))
Set myOU=objDomain.Create("organizationalUnit", "ou=LaboMicrosoft")
myOU.Put "Description", "OU crée par Laboratoire Microsoft" 
myOU.SetInfo
Set myUser = myOU.Create("User", "cn=Loic Thobois")
myUser.Put "sAMAccountName", "lthobois"
myUser.Put "Description", "Utilisateur Loic Thobois"
myUser.SetInfo
myUser.SetPassword "superpassword123@"
myUser.AccountDisabled = True
myUser.SetInfo

 Conclusion

ligne 2: Remplacer "defaultNamingContext" par le nom de votre domaine.
ligne 3: Remplacer LaboMicrosoft par votre unité organisationnelle.
ligne 4: Remplacer "OU crée par Laboratoire Microsoft" par la description de votre unité organisationnelle.
ligne 6: Remplacer Loic Thobois par le nom de l'utilisateur a ajouter.
ligne 7: remplacer "lthobois" par le loggin de l'utilisateur à créer.
ligne 8: Remplacer "Utilisateur Loic Thobois" par la description de l'utilisateur.
ligne 10: Remplacer "superpassword123@" par le mot de passe initiale de l'utilisateur.
ligne 11: Remplacer True par False pour activer le compte utilisateur lors de sa création.


 Sources du même auteur

[ACTIVE DIRECTORY] AJOUT UTILISATEURS VIA EXCEL.VBS
Toutes les sources de FrancB

 Sources de la même categorie

Source avec Zip Source avec une capture RECHERCHE & SAUVEGARDE DES FICHIERS PAR LEURS EXTENSIONS par hackoo
Source avec Zip Source avec une capture [VBS] SPLASH SCREEN EN VBSCRIPT par hackoo
Source avec Zip Source avec une capture [VBS] GOOGLE EASTER EGGS par hackoo
Source avec Zip Source avec une capture FILE2COMPARE: COMPARAISON DE DEUX FICHIERS LIGNE PAR LIGNE par hackoo
Source avec Zip Source avec une capture [VBS] COMMENT CRÉER UN DOSSIER ET LE PROTÉGER PAR MOT DE PAS... par hackoo
Toutes les sources de la catégorie VBScript

 Sources en rapport avec celle ci

Source avec Zip PROTECTION VBAPROJECT par Le Pivert
Source avec Zip Source avec une capture [VBS] SPLASH SCREEN EN VBSCRIPT par hackoo
Source avec Zip PASSWORD CLASSEUR EXCEL par Le Pivert
Source avec Zip Source avec une capture [VBS] COMMENT CRÉER UN DOSSIER ET LE PROTÉGER PAR MOT DE PAS... par hackoo
CRÉATION D'UTILISATEURS AD VIA EXCEL AVEC RAPORT DES CRÉATIO... par DFORLER

Commentaires et avis

Commentaire de huffy le 19/04/2007 14:57:43

Salut Loic!
Merci pour ton script!3





Commentaire de jeff_montois le 13/05/2008 09:54:40

Salut,

Ton script est clair... :-)

Cependant je suis confronté à un autre souci... Je dois créer un groupe?

Peux tu m'aider???

Jeff_montois

Commentaire de baloc le 26/12/2008 16:10:32

clair simple rapide cependant il y a un hic pour moi. par exemple, il faut faire une modification en modifiant le script. donc perte de temps, tu devrais pensé à une interface et aux variables

Commentaire de python78210 le 06/05/2009 17:23:39

bonjour, je cherche un script pour mettre 300 compte dans une unité organisitionnel

merci a vous pour votre réponse

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

VBScript - Trouver l'utilisateur courant [ par kriss_51 ] Bonjour à tous,Je cherche en VBScript à trouver (reconnaitre, identifier, etc...) l'utilisateur courant.Je vous remercie de votre aide.a+Kriss Savoir si un utilisateur a saisi son password au login sous windows 95 [ par Derrick soft ] Bonjour,Petite question sous windows 95. Suite à la mise en place d'une stratégie système, je voulais savoir si il était possible de savoir si un util Petit probème en VB [ par Reservoir_Dogs ] J'ai vraiment besoin d'aide. Dans mon programme, il y a une zone de texte qui sert à l'utilisateur a s'inscrire. Quand il clique sur le boutton inscri Suis perdu dans l'AD ... aidez moi !!! [ par nyoto ] Je débute en VB .Net ... et j'avoue qu'en plus j'ai pas beaucoup de temps devant moi pour développer ce qui ne facilite pas les choses !!!J' AD Récupération des groupes d'un utilisateur [ par FPatrick ] Bonjour,J'utilise le code suivant pour récupérer la liste des groupes :Set AdsysInfo = CreateObject("ADSystemInfo") Set CurrentUser = GetObject("LDAP: Insertion attribut AD [ par yO74 ] Bonjour,Étant complètement novice en programmation, je recherche un script en vbs me permettant d'insérer, à partir d'un fichier Excel, une valeur dan Récupération du nom complet de l'utilisateur sur un réseau. [ par deyrol ] Bonjour,Je recherche actuellement comment récupérer le nom complet d'un utilisateur connecté au réseau.La fonction GetUserName ne saisie semi-automatique [ par sorcier_sly ] Salut, Je souhaite realiser une saisie semi_automatique. Lorsqu'un utilisateur commence a taper dans un textbox par exemple, je souhaite afficher dans chat milti-utilisateur [ par nawelnet ] j'aime bien faire une application de chat multi-utilisateur avec winsocket en vb permettant la communication entre differents utilisateurs connect&#23 Tri de répertoire en vbscript [ par skafer35 ] Bonjour,J'ai un programme qui scanne tous les répertoires d'une arborescence un par un et qui lance une commande (si elle existe dans ce rép


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Underwater View of the Ocean With LIght Shining Through the WavePhoto Green Energy Solutions With Light Bulb Morphed Into Landscape
Photo DSLR Camera Taking a Photograph of a Sunflower Field 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,468 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)