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