AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 07 05 22:49:00
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

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


Information sur la source

Catégorie :VBScript Classé sous : vbscript, ad, utilisateur, ou, password Niveau : Initié Date de création : 14/06/2006 Vu : 13 237
Auteur : FrancB Site perso
Ecrire un message privé
Note :
1 / 10 - par 2 personnes
1,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
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.
 

Commentaires et avis

signaler à un administrateur
Commentaire de huffy le 19/04/2007 14:57:43

Salut Loic!
Merci pour ton script!3





signaler à un administrateur
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

signaler à un administrateur
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

signaler à un administrateur
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: 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 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 Macro outllok qui ne se lance pas [ par supermig ] Bonjour à tous. J'ai codé une macro sous outlook qui lorsque l'utilisateur envoi un mail, affiche une boite de recherche d'un client. La macro est récupérer le texte d'une page web (non html) [ par Flocreate ] Bonjour a tous,Mon problème est simple, je souhaite récupérer un texte affiché dans une page Web.J'utilise un WebBrowser qui m'ouvre parfaitement la p 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


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :

Comparez les prix Nouvelle version


HTC Touch HD
Entre 25€ et 605€


Visiter le guide achat

Photothèque Nouveau !

Photo friends at the beach.Photo friends
Photo pretty girlPhoto pretty teenage girls

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
Temps d'éxécution de la page : 0,437 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.