Précédent   Forum des professionnels en informatique > Systèmes > Windows > Windows Serveur
Windows Serveur Forum d'entraide professionel pour Windows Serveur : NT, 2000, 2003 , Longhorn...
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 23/10/2007, 11h42   #1
Invité de passage
 
Inscription : octobre 2007
Messages : 5
Détails du profil
Informations forums :
Inscription : octobre 2007
Messages : 5
Points : 1
Points : 1
Par défaut creation de comptes d'utilisateurs

Bonjour, voila soit mon server deconne soit c'est moi.
Je veux juste avoir un petit script vbs pour créer mes utilisateur dans l'active directory plus rapidement.
Le scritp est petit:


"Creation d'un compte login: jefftest44 et mot de passe: Password49"

Le nom de domaine est jeff.local

DEBUT

Set objOU = GetObject("LDAP://CN=Users, dc=jeff, dc=local")

Set objUser = objOU.Create("jefftest44", "cn=Password49")
objUser.Put "jefftest44", "Password49"

"Activation du compte"

Set objUser = GetObject _
("LDAP://cn=Password49,CN=Users,dc=jeff,dc=local")

objUser.AccountDisabled = FALSE
objUser.SetInfo

FIN

Merci d'avance pour votre aide
eaque49 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 24/10/2007, 03h07   #2
Membre émérite
 
Avatar de cubitus91
 
Homme
Consultant informatique
Inscription : mai 2004
Messages : 726
Détails du profil
Informations personnelles :
Sexe : Homme
Âge : 30
Localisation : France

Informations professionnelles :
Activité : Consultant informatique
Secteur : High Tech - Éditeur de logiciels

Informations forums :
Inscription : mai 2004
Messages : 726
Points : 900
Points : 900
bonsoir,
Essaie ca :
Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
"Creation d'un compte login: jefftest44 et mot de passe: Password49"
Le nom de domaine est jeff.local

DEBUT

Set objOU = GetObject("LDAP://CN=Users, dc=jeff, dc=local")
Set objUser = objOU.Create("User","cn=jefftest44")
objUser.samAccountName = "jefftest44"
objUser.SetInfo
objUser.SetPassword "Password49"
objUser.AccountDisabled = False
objUser.SetInfo
 
FIN
Cdt
__________________
Le tag est bien utile, alors pensez y !
cubitus91 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 24/10/2007, 15h43   #3
Invité de passage
 
Inscription : octobre 2007
Messages : 5
Détails du profil
Informations forums :
Inscription : octobre 2007
Messages : 5
Points : 1
Points : 1
Merci bien de ton aide
eaque49 est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 07h03.


 
 
 
 
Partenaires

Hébergement Web