[VBS] erreur dans mon script "création d'utilisateur AD"

**stefdu59** · 06/05/2009, 10h12

Bonjour à tous,

Débutant en vbs, j'ai créer un script pour créer des utilisateurs dans l'active directory à partir d'un fichier csv. Je me suis servis pour m'aider de fonction et autre à partir de documentation que j'ai pu trouver

voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Dim fso
Dim fichier
Dim Ligne
Dim v
Dim complet, account, login, nom, prenom, display
 
Set FSO = CreateObject("Scripting.FileSystemObject")
Set fichier = fso.OpenTextFile("c:\liste.csv", 1)
 
Do While Not fichier.AtEndOfStream
  Ligne = fichier.Readline
  v = Split(Ligne, ",")
  Call Cree_Utilisateur(v(0), v(1), v(2), v(3), v(4), v(5))
Loop
 
Sub Cree_Utilisateur(complet, account, login, nom, prenom, display)
 
   'determine le chemin LDAP
   Set Root = GetObject("LDAP://RootDSE")
   DomainPatch = Root.Get("DefaultNamingContext")
 
   'Indique l'OU de l'utilisateur
   Set chemin = GetObject("LDAP://OU="&Informatique &","& DomainPath)
 
   'Crée l'utilisateur dans l'OU
   Set User = chemin.Create("user", "CN=" & complet)
 
    'Définit le nom d'ouverture de session
    User.Put "sAMAccountName", account
    ' Nom d'ouverture de session
    User.Put "userPrincipalName", login
    ' Nom d'usage
    User.Put "sn", nom
    ' Prénom
    User.Put "givenName", prenom
    ' Nom affiché
    User.Put "displayName", display
    ' Active le compte
    User.AccountDisabled = False
	User.SetInfo
 
 
End Sub

j'ai une erreur sur la ligne "Set chemin = GetObject("LDAP://OU="&Informatique &","& DomainPath)" et je n'arrive pas à débugger. J'ai l'impression qu'il ne trouve pas mon OU informatique dans mon ad

Comment puis-je faire pour résoudre mon problème?

Cordialement

Stefdu59

**RomainGau** · 06/05/2009, 11h19

Bonjour,

je suis novice mais en regardant un peu sur le net j ai trouvé sa :

"Si l'arborescence est

Production

---- Production Users

--------Users ALM

la ligne doit être :

Set ou_HR = GetObject("LDAP://OU=Users ALM,OU=Production Users, OU=Production, " & DomainPath)
"

la ref du site : http://social.technet.microsoft.com/...-4f88ad3417b5/

Bonne journée

**stefdu59** · 06/05/2009, 11h33

merci à toi pour le lien.

problème résolu par "Set chemin = GetObject("LDAP://OU=Informatique," & DomainPath)"

Mais j'en ai récupérer un autre

:

à la ligne "User.AccountDisabled = False" j'obtiens le code erreur "la propriété répertoire n'est pas présente dans le cache"

est-ce dû au chemin de mon OU?

edit : Informatique est le nom de mon OU où je désire mettre mon utilisateur, cette OU est deja créer dans mon AD

**RomainGau** · 06/05/2009, 12h26

Voici un nouveau lien que je te conseil fortement : http://eric.machabert.free.fr/docs/tuto.doc

comme j ai pas windows en ce moment je peut pas faire de test donc trouver l erreur
voici ce que j ai trouve :

Code Ecrit par Eric MACHABERT :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Function ajout_util(arg_nom,arg_prenom,arg_service,arg_fonction,arg_pass)
	Set conteneur = GetObject("LDAP://OU=" & arg_service & ",DC=etoilenoire,DC=local")
	Set utilisateur = conteneur.Create("user", "CN=" & arg_nom & " " & arg_prenom)
	utilisateur.Put "SAMAccountName", arg_nom & " " & arg_prenom
	utilisateur.SetInfo
	utilisateur.Put "userPrincipalName", arg_nom & "." & arg_prenom & "@etoilenoire.local"
	utilisateur.Put "sn", arg_nom
	utilisateur.Put "givenName", arg_prenom
	utilisateur.Put "displayName", arg_nom & " " & arg_prenom
	utilisateur.Put "description", arg_fonction & " du service " & arg_service
	utilisateur.Put "mail", arg_nom & "." & arg_prenom & "@etoilenoire.local"
	utilisateur.Put "department", arg_service
	utilisateur.Put "title", arg_fonction
	utilisateur.Put "scriptpath", service & ".bat" 
	utilisateur.Put "homeDirectory", "\\serveur.etoilenoire.local\perso\" & arg_service & "\" & arg_nom & "$"
	utilisateur.SetInfo
	utilisateur.AccountDisabled = False
	utilisateur.SetPassword arg_pass
	utilisateur.Put "userAccountControl",ADS_UF_DONT_EXPIRE_PASSWD
	utilisateur.SetInfo
	utilisateur.AccountExpirationDate = "01/01/2008"
	utilisateur.SetInfo
	ajout_util_groupe arg_fonction,arg_service,arg_nom,arg_prenom
	set conteneur = nothing
	set utilisateur = nothing
End Function

**stefdu59** · 06/05/2009, 13h47

faut que je revois ma méthode recherche lol

merci à toi

aprés modification de mon script juste en remplaçant le sub par function, je récupère la même erreur : "la propriété répertoire n'est pas présente dans le cache" à cause de la ligne User.AccountDisabled = False

code modifié :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Option Explicit
 
Dim fso
Dim fichier
Dim Ligne
Dim v
Dim complet, account, login, nom, prenom, display
 
Set FSO = CreateObject("Scripting.FileSystemObject")
Set fichier = fso.OpenTextFile("c:\liste.csv", 1)
 
Do While (Not fichier.AtEndOfStream)
  Ligne = fichier.Readline
  v = Split(Ligne, ",")
  Cree_Utilisateur v(0), v(1), v(2), v(3), v(4), v(5)
 
Loop
 
Function Cree_Utilisateur(complet, account, login, nom, prenom, display)
 
	'determine le chemin LDAP
   Dim Root
   Dim DomainPath
   Set Root = GetObject("LDAP://RootDSE")
   DomainPath = Root.Get("DefaultNamingContext")
 
   'Indique l'OU de l'utilisateur
   Dim chemin
   Set chemin = GetObject("LDAP://OU=Informatique," & DomainPath)
 
   'Crée l'utilisateur dans l'OU
   Dim User
   Set User = chemin.Create("user", "CN=" & complet)
 
 
    'Définit le nom d'ouverture de session
    User.Put "sAMAccountName", account
	User.SetInfo
    ' Nom d'ouverture de session
    User.Put "userPrincipalName", login
    ' Nom d'usage
    User.Put "sn", nom
    ' Prénom
    User.Put "givenName", prenom
    ' Nom affiché
    User.Put "displayName", display
	User.SetInfo
    ' Active le compte
    User.AccountDisabled = False
	User.SetInfo
 
End Function

je pense donc que c'est à cause de ma fonction, j'ai donc fais des tests avec ma fonction : soit en regardant avec des messages box mes variables ou alors en la méttant dans un autre script et en modifiant mes variables (account etc..) par des valeurs définis.
tout fonctionne bien donc je vois vraiment pas pourquoi j'ai cette erreur

**orducom1** · 06/05/2009, 18h46

Lut',
Sauf erreur de ma part, les stratégies de sécurités par défaut sur un domaine 2003 ne tolère pas qu'un compte soit avec un mot de passe vide. Comme tu ne définis nul part de mot de passe sur tes comptes, j'en déduis que l'erreur peut éventuellement venir de là ...

essai avec ce bout de code à la fin de ton script :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
'Définit le nom d'ouverture de session
    User.Put "sAMAccountName", account
' Nom d'ouverture de session
    User.Put "userPrincipalName", login
' Nom d'usage
    User.Put "sn", nom
' Prénom
    User.Put "givenName", prenom
' Nom affiché
    User.Put "displayName", display
    User.SetInfo
' Active le compte
    User.SetPassword "Un_Pa5s0rD"
    User.AccountDisabled = False
    User.SetInfo

Et ne mets pas plus de "User.SetInfo" que je n'en ai mis. Chez moi, ce code fonctionne très bien.

Pour finir, à ma connaissance, l'utilisation d'une fonction pour ce type d'action ne diffère en rien d'une procédure.
La seule subtilité entre une Fonction ou une Procédure est qu'une Fonction peut te renvoyer un résultat alors qu'une Procédure en est incapable ...

Si j'ai pu aidé...
Emeric

**RomainGau** · 06/05/2009, 11h22

Je regarde ton code et je vois pas ou est défini ta variable Informatique

[VBS] erreur dans mon script "création d'utilisateur AD"

VBScript

Vue hybride

Discussions similaires

Partager

Partager