VBS Probleme d'affectation groupe à la création d'utilisateurs dans Active Directory

Version imprimable

Bonjour,

Je débute dans le vbscript, mais pour une première je dois faire fort ;)

Voici le script de création d'utilisateurs Active Directory que j'ai créé.

creation_users.vbs

Code:

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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
 
' Script de gestion d'utilisateurs
' Créé le 18/07/2007 par Jérôme Seyler
 
' Variables globales'
 
'Fichier contenant les comptes utilisateurs'
const fichier = "c:\utilisateurs.csv"
'Repertoires de données'
'a modifier par e:\ sur le serveur définitif car baie de stockage connectée en E:'
const datadrive = "c:\"
'Répertoire contenant les données sur le lecteur spécifié'
const datafolder = "donnees"
'Construction du répertoire de base'
basePath = datadrive & datafolder
 
'Serveurs'
const serveur1="\\srvstockage"
 
'Déclaration des différentes variables'
Dim FSO
Dim nom
Dim prenom
Dim etablissement
Dim niveau
Dim classe
Dim login
Dim mdp
Dim groupe
Dim sDN
Dim laOU
Dim userPath
Dim groupeprofs
 
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Ftxt = FSO.OpenTextFile(fichier)
 
Do While (Not Ftxt.AtEndOfStream)
  Ligne = Ftxt.Readline
  LigneDecoupee = split(Ligne,chr(59))
  nom = LigneDecoupee(0)
  prenom = LigneDecoupee(1)
  etablissement = LigneDecoupee(2)
  niveau = LigneDecoupee(3)
  classe = LigneDecoupee(4)
  login = LigneDecoupee(5)
  'login = ucase(prenom) + "." + ucase(nom)
  mdp = LigneDecoupee(6)
 
  if NOT ((lcase(nom) = "nom") OR (lcase(prenom) = "prenom")) then
    'Appel des différentes fonctions'
    Call CreerCompte()
    Call CreerArboUser()
    Call CreerArboGenerale()
    Call PermissionsPerso()  
    Call PermissionsPublic()
  else
    'msgbox (nom & "pas d'appel aux fonctions")
  end if
 
Loop
 
    Call CreationPartage()
    Call CreationPartageAdmins()
    Call CreationPartageProfs()
    Call CreationPartageLycee()
    Call CreationPartageCollege()
 
'Fermeture du fichier'
Ftxt.Close
 
 
' Debut fonction CreerCompte
function CreerCompte()
  'msgbox (nom + Prenom + Etablissement + Niveau + Classe + login + mdp)
  '// Récupération du root 
  Set oRoot = GetObject("LDAP://rootDSE") 
  sRoot = oRoot.Get("defaultNamingContext")
  On Error Resume Next 
 
  Set oDomain = GetObject("LDAP://" & sRoot)
 
  'la OU institut doit exister'
  if ((etablissement="Professeurs") or (etablissement="Administratifs")) then
    laOU = ("ou=" & etablissement & ",ou=Institut")
    Set oOU = oDomain.Create("organizationalUnit", laOU)
    oOU.SetInfo
  else
    laOU = ("ou=" & classe & ",ou=" & niveau & ",ou=" & etablissement & ",ou=Institut")
    Set oOU = oDomain.Create("organizationalUnit", "ou=" & etablissement & ",ou=Institut")
    oOU.SetInfo
    Set oOU = oDomain.Create("organizationalUnit", "ou=" & niveau & ",ou=" & etablissement & ",ou=Institut")
    oOU.SetInfo
    Set oOU = oDomain.Create("organizationalUnit", "ou=" & classe & ",ou=" & niveau & ",ou=" & etablissement & ",ou=Institut")
    oOU.SetInfo
    Set oOU = oDomain.Create("organizationalUnit", laOU)
    oOU.SetInfo
  end if
 
  'msgbox("LDAP://" & laOU & "," & sRoot)
  Set oOU = GetObject("LDAP://" & laOU & "," & sRoot)
 
  Set oUser = oOU.Create("user", "cn=" & login)
 
  '// Load fields in AD record 
  oUser.put "sAMAccountName", lcase(login) 
  oUser.put "givenName", prenom
  oUser.put "sn", nom
  oUser.put "UserPrincipalName", lcase(login) 
  oUser.put "DisplayName", prenom & " " & nom
  oUser.put "Description", "Utilisateur " & prenom & " " & nom
 
  'Gestion des groupes'
  if ((etablissement="Lycée")Or(etablissement="Collège")) then
      groupeeleves = "Elèves" & niveau & classe
      groupeprofs = "Professeurs" & niveau & classe
     'Création du groupe Eleves'
      Set oGroup = oOU.Create("Group", "cn=" & groupeeleves)
      oGroup.Put "sAMAccountName", groupeeleves
      oGroup.SetInfo
      oGroup.Add groupeeleves
      oGroup.SetInfo
      oGroup.Add oUser.ADSPath
      oGroup.SetInfo
 
      'Création du groupe Profs de la classe'
      Set oGroup = oOU.Create("Group", "cn=" & groupeprofs)
      oGroup.Put "sAMAccountName", groupeprofs
      oGroup.SetInfo
      oGroup.Add groupeprofs
      oGroup.SetInfo
 
      'Assignation du lecteur P: au répertoire public pour client lourd'
      oUser.put "ProfilePath", serveur1 & "\" & datafolder & "\" & etablissement & "\" & niveau & "\" & classe & "\" '& username
      oUser.put "HomeDirectory", serveur1 & "\" & datafolder & "\" & etablissement & "\" & niveau & "\" & classe & "\public"
      oUser.Put "HomeDrive", "P:"
      oUser.SetInfo
 
      'Assignation du lecteur P: au répertoire public pour client leger'
      oUser.TerminalServicesProfilePath = serveur1 & "\" & datafolder & "\" & etablissement & "\" & niveau & "\" & classe & "\" '& username
      oUser.TerminalServicesHomeDirectory = serveur1 & "\" & datafolder & "\" & etablissement & "\" & niveau & "\" & classe & "\public"
      oUser.TerminalServicesHomeDrive = "P:"
      oUser.AllowLogon = 1
      oUser.SetInfo
 
  elseif ((etablissement="Professeurs")Or(etablissement="Administratifs")) then
      groupepersonnel = etablissement
      'msgbox groupe
      'Création du groupe Profs'
      Set oGroup = oOU.Create("Group", "cn=" & groupepersonnel)
      oGroup.Put "sAMAccountName", groupepersonnel
      oGroup.SetInfo
      oGroup.Add groupepersonnel
      oGroup.SetInfo
      oGroup.Add oUser.ADSPath
      oGroup.SetInfo
 
      'Assignation du lecteur P: au répertoire public pour un client lourd'
      oUser.put "ProfilePath", serveur1 & "\" & datafolder & "\" & etablissement & "\" '& username
      oUser.put "HomeDirectory", serveur1 & "\" & datafolder & "\" & etablissement & "\public"
      oUser.Put "HomeDrive", "P:"
      oUser.SetInfo
 
      'Assignation du lecteur P: au répertoire public pour un client leger'
      oUser.TerminalServicesProfilePath = serveur1 & "\" & datafolder & "\" & etablissement & "\" '& username      
      oUser.TerminalServicesHomeDirectory = serveur1 & "\" & datafolder & "\" & etablissement & "\public"
      oUser.TerminalServicesHomeDrive = "P:"
      oUser.AllowLogon = 1
      oUser.SetInfo
 
  else
      'msgBox ("Groupe inconnu") 
  end if
 
  oUser.setpassword mdp
  oUser.SetInfo 
 
  oUser.put "userAccountControl", 512
  oUser.SetInfo
 
 
  '// Set the User's DN for adding to group 
  sDN = oUser.get("DistinguishedName") 
 
end function
' Fin fonction CreerCompte
 
' Debut fonction CreerArboUser
function CreerArboUser()
 
  'Récupération du dossier selon si l'utilisateur est un élève ou un professeur'
  if ((etablissement="Professeurs") OR (etablissement="Administratifs")) then
    userPath = basePath & "\" & etablissement
  else
    userPath = basePath & "\" & etablissement & "\" & niveau & "\" & classe 
  end if
 
  'test de l'existance du dossier'
  Set objbasePath = CreateObject("Scripting.FileSystemObject")
    If objbasePath.FolderExists(basePath) Then
        'msgbox ("Le dossier existe deja.")
      Else
        'msgbox ("Création du dossier.")
        Set objFSO = CreateObject("Scripting.FileSystemObject")
        Set objbasePath = objFSO.CreateFolder(basePath)
    End If
 
  'msgbox (userPath)
  Set objPath = CreateObject("Scripting.FileSystemObject")
    If objPath.FolderExists(userPath) Then
        'msgbox ("Le dossier existe deja.")
      Elseif ((etablissement="Professeurs") OR (etablissement="Administratifs")) then 
        'msgbox ("Création du dossier.")
        Set objFSO = CreateObject("Scripting.FileSystemObject")
        Set objPath = objFSO.CreateFolder(basePath & "\" & etablissement)
        Set objPath = objFSO.CreateFolder(basePath & "\" & etablissement & "\" & login)
      else
        Set objFSO = CreateObject("Scripting.FileSystemObject")
        Set objPath = objFSO.CreateFolder(basePath & "\" & etablissement)
        Set objPath = objFSO.CreateFolder(basePath & "\" & etablissement & "\" & niveau)
        Set objPath = objFSO.CreateFolder(basePath & "\" & etablissement & "\" & niveau & "\" & classe)
        Set objPath = objFSO.CreateFolder(basePath & "\" & etablissement & "\" & niveau & "\" & classe & "\" & login)
    End If
end function
' Fin fonction CreerArboUser
 
' Debut fonction CreerArboGenerale 
function CreerArboGenerale()
  On Error Resume Next 
 
  'test de l'existance du dossier'
  Set objbasePath = CreateObject("Scripting.FileSystemObject")
    If objbasePath.FolderExists(basePath) Then
        'msgbox ("Le dossier existe deja.")
      Else
        'msgbox ("Création du dossier.")
        Set objFSO = CreateObject("Scripting.FileSystemObject")
        Set objbasePath = objFSO.CreateFolder(basePath)
    End If
 
  'Récupération du dossier selon si l'utilisateur est un élève ou un professeur'
  if ((etablissement="Professeurs") OR (etablissement="Administratifs")) then
    userpubPath = basePath & "\" & etablissement & "\public"
  else
    userpubPath = basePath & "\" & etablissement & "\" & niveau & "\" & classe & "\public"
  end if
 
  'msgbox (userPath)
  Set objPath = CreateObject("Scripting.FileSystemObject")
    If objPath.FolderExists(userpubPath) Then
        'msgbox ("Le dossier existe deja.")
      Elseif ((etablissement="Professeurs") OR (etablissement="Administratifs")) then 
        'msgbox ("Création du dossier.")
        Set objFSO = CreateObject("Scripting.FileSystemObject")
        Set objPath = objFSO.CreateFolder(basePath & "\" & etablissement)
        Set objPath = objFSO.CreateFolder(basePath & "\" & etablissement & "\public")
      else
        Set objFSO = CreateObject("Scripting.FileSystemObject")
        Set objPath = objFSO.CreateFolder(basePath & "\" & etablissement)
        Set objPath = objFSO.CreateFolder(basePath & "\" & etablissement & "\" & niveau)
        Set objPath = objFSO.CreateFolder(basePath & "\" & etablissement & "\" & niveau & "\" & classe)
        Set objPath = objFSO.CreateFolder(basePath & "\" & etablissement & "\" & niveau & "\" & classe & "\public")
    End If
 
end function
' Fin fonction CreerArboGenerale
 
'Début fonction PermissionsPerso'
'Autorise un acces complet a chaque dossier personnel des utilisateurs'
function PermissionsPerso()
    Dim objShell, intRunError
    'Msgbox etablissement
    'Recupération de l'arbo du répertoire perso'
    strHomeFolder = userPath & "\" & login
    strSamAccountName = login
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objShell = CreateObject("Wscript.Shell")
    ' On assigne la permission RWX d'un utilisateur à son répertoire perso et l'acces complet aux administrateurs
    If objFSO.FolderExists(strHomeFolder) Then
      'ATTENTION IL NE FAUT PAS D'ESPACE ENTRE LE O ET LE | !!!!! (MS KB 135268)'
        if  (etablissement="Administratifs" OR etablissement="Professeurs") then
          'msgbox "admin ou prof"
          'intRunError = objShell.Run("%COMSPEC% /c Echo O| cacls " & strHomeFolder & " /t /c /g Administrateurs:F " & strSamAccountName & ":C")
          intRunError = objShell.Run("%COMSPEC% /c Echo O| cacls " & strHomeFolder & " /t /c /g Administrateurs:F " & strSamAccountName & ":C",2,True)
        else  
          'msgbox "eleve"
          'intRunError = objShell.Run("%COMSPEC% /c Echo O| cacls " & strHomeFolder & " /t /c /g Administrateurs:F " & groupeprofs & ":C " & strSamAccountName & ":C")
          intRunError = objShell.Run("%COMSPEC% /c Echo O| cacls " & strHomeFolder & " /t /c /g Administrateurs:F " & groupeprofs & ":C " & strSamAccountName & ":C",2,True)
        end if
      'msgbox ("cacls " & strHomeFolder & " /t /c /g Administrateurs:F /p " & groupeprofs & ":C " & strSamAccountName & ":C")
      If intRunError < 0 Then
        Wscript.Echo "Erreur a la creation des permissions pour l'utilisateur " & strSamAccountName & " sur le répertoire perso " & strHomeFolder
      Else
        'Wscript.Echo "Permissions successfully assigned for user " & strSamAccountName & " to home folder " & strHomeFolder
      End If
    Else
      Wscript.Echo "Folder " & strHomeFolder & " does not exist."
    End If
    Set objFSO = Nothing
    Set objShell = Nothing 
end function
'Fin fonction PermissionsPerso'
 
'Début fonction PermissionsPublic'
function PermissionsPublic()
    Dim objShell, intRunError
    'Msgbox etablissement
    'Recupération de l'arbo du répertoire perso'
    strPublicFolder = userPath & "\public"
    'msgbox groupeprofs
    strSamAccountName = login
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objShell = CreateObject("Wscript.Shell")
    ' On assigne la permission RWX au répertoire public selon les groupes et l'arbo et l'acces complet aux administrateurs
    If objFSO.FolderExists(strPublicFolder) Then
      'ATTENTION IL NE FAUT PAS D'ESPACE ENTRE LE O ET LE | !!!!! (MS KB 135268)'
        if  (etablissement="Administratifs" OR etablissement="Professeurs") then
          'msgbox strPublicFolder
          intRunError = objShell.Run("%COMSPEC% /c Echo O| cacls " & strPublicFolder & " /t /c /g Administrateurs:F Administratifs:C Professeurs:C",2,True)
        else
          'msgbox strPublicFolder
          intRunError = objShell.Run("%COMSPEC% /c Echo O| cacls " & strPublicFolder & " /t /c /g Administrateurs:F " & groupeprofs & ":C " & groupe & ":C",2,True)
        end if
      If intRunError < 0 Then
        Wscript.Echo "Erreur a la creation des permissions pour l'utilisateur " & strSamAccountName & " sur le répertoire perso " & strPublicFolder
      Else
        'Wscript.Echo "Permissions successfully assigned for user " & strSamAccountName & " to Public folder " & strPublicFolder
      End If
    Else
      Wscript.Echo "Folder " & strPublicFolder & " does not exist."
    End If
    Set objFSO = Nothing
    Set objShell = Nothing 
end function
'Fin fonction PermissionsPublic'
 
'Ajouter fonction restriction acces répertoires administratifs et profs (en ajoutant tous les groupes eleves dans un groupes eleves generique ?'
 
'Fonction de creation du partage général'
function CreationPartage()
  Const FILE_SHARE = 0
  Const MAXIMUM_CONNECTIONS = 25
  strComputer = "."
  Set objWMIService = GetObject("winmgmts:" _
      & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
  Set objNewShare = objWMIService.Get("Win32_Share")
  errReturn = objNewShare.Create _
      ("C:\donnees", "donnees", FILE_SHARE, _
          MAXIMUM_CONNECTIONS, "Partage racine")
  'Wscript.Echo errReturn
 
end function
'Fonction de creation du partage général'
 
'Fonction de creation du partage administratifs'
function CreationPartageAdmins()
  Const FILE_SHARE = 0
  Const MAXIMUM_CONNECTIONS = 25
  strComputer = "."
  Set objWMIService = GetObject("winmgmts:" _
      & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
  Set objNewShare = objWMIService.Get("Win32_Share")
  errReturn = objNewShare.Create _
     (basepath & "\Administratifs", "Administratifs", FILE_SHARE, _
          MAXIMUM_CONNECTIONS, "Partage administratifs")
  'Wscript.Echo errReturn
end function
'Fonction de creation du partage administratif'
 
'Fonction de creation du partage Professeurs'
function CreationPartageProfs()
  Const FILE_SHARE = 0
  Const MAXIMUM_CONNECTIONS = 25
  strComputer = "."
  Set objWMIService = GetObject("winmgmts:" _
      & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
  Set objNewShare = objWMIService.Get("Win32_Share")
  errReturn = objNewShare.Create _
      (basepath & "\Professeurs", "Professeurs", FILE_SHARE, _
          MAXIMUM_CONNECTIONS, "Partage professeurs")
  'Wscript.Echo errReturn
end function
'Fonction de creation du partage professeurs'
 
'Fonction de creation du partage Collège'
function CreationPartageCollege()
  Const FILE_SHARE = 0
  Const MAXIMUM_CONNECTIONS = 25
  strComputer = "."
  Set objWMIService = GetObject("winmgmts:" _
      & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
  Set objNewShare = objWMIService.Get("Win32_Share")
  errReturn = objNewShare.Create _
      (basepath & "\Collège", "Collège", FILE_SHARE, _
          MAXIMUM_CONNECTIONS, "Partage collègiens")
  'Wscript.Echo errReturn
end function
'Fonction de creation du partage college'
 
'Fonction de creation du partage lycee'
function CreationPartageLycee()
  Const FILE_SHARE = 0
  Const MAXIMUM_CONNECTIONS = 25
  strComputer = "."
  Set objWMIService = GetObject("winmgmts:" _
      & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
  Set objNewShare = objWMIService.Get("Win32_Share")
  errReturn = objNewShare.Create _
      (basepath & "\Lycée", "Lycée", FILE_SHARE, _
          MAXIMUM_CONNECTIONS, "Partage lycéens")
  'Wscript.Echo errReturn
end function
'Fonction de creation du partage administratif'

utilisateurs.csv

Code:

1
2
3
4
5
 
DURAND;Paul;Collège;Seconde;Rouge;p.durand;Z12345a
DUPONT;Céline;Lycée;Quatrième;Bleu;c.dupont;123
DAVID;Franck;Administratifs;Troisième;Vert;f.david;123
SEYLER;Jérôme;Professeurs;Seconde;Vert;j.seyler;123

Mon problème se situe à l'affectation d'un utilisateur à un groupe. En fait, mes utilisateurs et mes groupes sont correctement créés, mais il faut un 2eme passage (relancer le script une 2eme fois) pour affecter le compte au groupe qui vient d'être créé...

Je suis également preneur d'éventuelles optimisations mais ce n'est pas le but premier.

Avez vous une idée ? C'est relativement urgent, je dois terminer cela pour la fin de la semaine.

Merci d'avance,

Jérôme

13/08/2007, 11h55
ced600

Personnellement je n'ai pas le copurage de lire ton script -> trop gros :aie: .
As tu utilisé des msgbox pour controler le contenu de chacune de tes variables ? Sont elles bonnes ?
As tu cerne une zone du code où le problème arrive ?

Citation:

mais il faut un 2eme passage (relancer le script une 2eme fois) pour affecter le compte au groupe qui vient d'être créé...

Est ce anormal ou tu ne sais pas comment faire le tout en une fois ?

Cernage :D

Pour les moins courageux, voici l'endroit ou se pose le probleme :
Code:

1 2 3 4 5 6 7 8 9 10 11 groupeeleves = "Elèves" & niveau & classe groupeprofs = "Professeurs" & niveau & classe 'Création du groupe Eleves' Set oGroup = oOU.Create("Group", "cn=" & groupeeleves) oGroup.Put "sAMAccountName", groupeeleves oGroup.SetInfo oGroup.Add groupeeleves oGroup.SetInfo oGroup.Add oUser.ADSPath oGroup.SetInfo
Donc, un premier passage crée bien tout ce qu'il faut, sauf qu'il n'affecte pas l'utilisateur au groupe, un deuxième passage du script le fait... :?

Pourrais tu faire ceci :
Code:

1 2 3 oGroup.Add oUser.ADSPath msgbox oUser.ADSPath oGroup.SetInfo

13/08/2007, 12h05
j.seyler

Voici ce que me retourne un msgbox oUser.ADSPath :

Code:

LDAP://cn=p.durand,ou=Rouge,ou=Seconde,ou=Collège,ou=Institut,DC=blablabla,DC=local

Bon ap'
13/08/2007, 12h13
ced600

as tu essayés de mettre des tempo après chaque instructions suspectes ?
Peut être que AD met du temps à créé l'ensemble et qu'au moment où tu lui demandes de faire les affectations, il ne peut pas encore puisqu'il ne les a aps encore créés.

Et enlève le :

Code:

On Error Resume Next

Ainsi tu verras peut être une erreur te sauter à la figure.
13/08/2007, 13h15
j.seyler

J'ai essayé avec un sleep de 5000 ce matin, pareil.

En enlevant le "On error resume next", je tombe sur l'erreur suivante :

http://j.seyler.free.fr/images/groupes.jpg

La ligne correspondante est la suivante :

Code:

oGroup.Add groupeeleves

Pourtant le groupe est correctement créé !

Une idée ?
13/08/2007, 13h16
j.seyler

Citation:

Envoyé par ced600

Est ce anormal ou tu ne sais pas comment faire le tout en une fois ?

Oui je voudrais tout faire en une seule fois, et à un moment, cela fonctionnait, seulement entre temps j'ai ajouté diverses fonctionnalités et je n'arrive plus à trouver pourquoi ça merde... :roll:
13/08/2007, 13h29
ced600

Es tu sur que "oGroup" possèdes la méthode add ? Parce que apparement c'est la que cela pose problème.

Met en commentaire toutes les lignes de code que tu as rajoutés lorsque cela fonctionnais.
Puis decommente les lignes de codes concernant les fonctionnalités, pas tout d'un coup, une fonctionnalité à la fois. Teste à chaque fois que tu as decomente une fonctionnalite. De cette façon tu pourras déterminer qu'elle est la fonctionnalité qui est la cause de tes soucis.

Je viens de retester avec une sauvegarde dans la quelle j'ai moins de fonctionnalités, et cela fonctionne. Pour ceux que cela intéresse en voici le code, j'ai les yeux dessus, je ne vois donc peut etre pas la différence...

Code:

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
 
  Set oOU = GetObject("LDAP://" & laOU & "," & sRoot)
 
  Set oUser = oOU.Create("user", "cn=" & login)
 
  '// Load fields in AD record 
  oUser.put "sAMAccountName", lcase(login) 
  oUser.put "givenName", prenom
  oUser.put "sn", nom
  oUser.put "UserPrincipalName", lcase(login) 
  oUser.put "DisplayName", prenom & " " & nom
  oUser.put "Description", "Utilisateur " & prenom & " " & nom
  oUser.SetInfo 
 
  oUser.setpassword mdp
  oUser.SetInfo 
 
  oUser.put "userAccountControl", 512
  oUser.SetInfo
 
  'Gestion des groupes'
  if ((etablissement="Lycée")Or(etablissement="Collège")) then
      groupe = "Elèves" & niveau & classe
      groupeprofs = "Professeurs" & niveau & classe
 
      'Création du groupe Eleves'
      Set oGroup = oOU.Create("Group", "cn=" & groupe)
      oGroup.Put "sAMAccountName", groupe
      oGroup.SetInfo
      oGroup.Add  groupe
      oGroup.Add oUser.ADSPath
 
      'Création du groupe Profs'
      Set oGroup = oOU.Create("Group", "cn=" & groupeprofs)
      oGroup.Put "sAMAccountName", groupeprofs
      oGroup.SetInfo
      oGroup.Add groupeprofs
      'msgbox (groupe)
 
  elseif ((etablissement="Professeurs")Or(etablissement="Administratifs")) then
      groupe = etablissement
      'Création du groupe Profs'
      Set oGroup = oOU.Create("Group", "cn=" & groupe)
      oGroup.Put "sAMAccountName", groupe
      oGroup.SetInfo
      oGroup.Add groupe
      oGroup.Add oUser.ADSPath
      'msgbox (groupe)
  else
      'msgBox ("Groupe inconnu") 
  end if

Comme quoi l'objet oGroup possede bien la fonction .Add

Bizarre...

13/08/2007, 13h48
ced600

A ce code ajoute tes nouvelles fonctionnailtés une à une et test à chaque fois, et lorsque le code ne marchera plus, tu sauras que c'est à cause de la dernière fonctionnalité que tu as ajouté qu'il plante. (A moins que cela soit la combinaison de toutes tes fonctionnalitées qui le fasse planté, masi dans ce cas se sera galère à débuguer)
13/08/2007, 13h52
ced600
D'un coté :
Code:

1 2 3 4 5 6 oGroup.Put "sAMAccountName", groupeeleves oGroup.SetInfo oGroup.Add groupeeleves oGroup.SetInfo oGroup.Add oUser.ADSPath oGroup.SetInfo
de l'autre :
Code:

1 2 3 4 oGroup.Put "sAMAccountName", groupe oGroup.SetInfo oGroup.Add groupe oGroup.Add oUser.ADSPath
Enlève le oGroup.SetInfo, qui est entre le oGroup.Add groupeeleves et le oGroup.Add oUser.ADSPath, de la dernière version du script et refait un test.

On ne sait jamais.
13/08/2007, 14h47
Thulkash
Code:

1 2 3 4 5 6 oGroup.Put "sAMAccountName", groupeeleves oGroup.SetInfo oGroup.Add groupeeleves oGroup.SetInfo oGroup.Add oUser.ADSPath oGroup.SetInfo
Tu dois virer les 2 derniers oGroup.SetInfo. Les méthodes oGroup.Add n'ont pas besoin d'avoir des SetInfo derrière, c'est peut-être ça qui ne fonctionne effectivement pas.

Ca donnera
Code:

1 2 3 4 oGroup.Put "sAMAccountName", groupeeleves oGroup.SetInfo oGroup.Add groupeeleves oGroup.Add oUser.ADSPath
(Je sais je n'apporte pas grand-chose de plus que ced600 :P , mais je confirme sa remarque)
13/08/2007, 15h05
j.seyler

J'ai testé, cela n'a rien changé...

Apparement l'erreur 0x80005000 renvoie vers un probleme de mise à jour de Win2000, je suis en train de mettre le SP2 du 2k3 (ma machine de test n'était qu'en SP1...) mais je suis sceptique sur le fait que cela débloque quelque chose...

Sinon je ne comprends pas pour le moment la différence entre mon backup et ma version actuelle sur la création du compte et l'affectation du groupe, si ce n'est un .SetInfo après la création du compte, je l'ai remis, mais cela n'a pas l'air d'avoir d'incidence...

Ca commence à m'énerver :evilred: , mais bon... en attendant je peaufine ma GPO pour le TSE :aie:
13/08/2007, 15h09
ced600

Sur qu'elle SE tu test ?

Tu utilises des objets WMI et je sais que certains des objets WMI sont présent sur WinXP et Win2003 Server mais indisponible sur Win2000

J'avance...

Pour info je suis sur les SE suivants :
- machine de test : 2k3 serveur standard SP1 en cours de migration vers SP2
- machines de prod : 2k3 serveur entreprise à jour

Je viens de remarquer qu'en lancant mon script avec un ordre un peu modifié, j'arrive à affecter les utilisateurs au groupe dans la boucle "administratifs" et "professeurs".

Voici mon code actuel :

Code:

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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
 
function CreerCompte()
  'msgbox (nom + Prenom + Etablissement + Niveau + Classe + login + mdp)
  '// Récupération du root 
  Set oRoot = GetObject("LDAP://rootDSE") 
  sRoot = oRoot.Get("defaultNamingContext")
  On Error Resume Next 
 
  Set oDomain = GetObject("LDAP://" & sRoot)
 
  'la OU institut doit exister'
  if ((etablissement="Professeurs") or (etablissement="Administratifs")) then
    laOU = ("ou=" & etablissement & ",ou=Institut")
    Set oOU = oDomain.Create("organizationalUnit", laOU)
    oOU.SetInfo
  else
    laOU = ("ou=" & classe & ",ou=" & niveau & ",ou=" & etablissement & ",ou=Institut")
    Set oOU = oDomain.Create("organizationalUnit", "ou=" & etablissement & ",ou=Institut")
    oOU.SetInfo
    Set oOU = oDomain.Create("organizationalUnit", "ou=" & niveau & ",ou=" & etablissement & ",ou=Institut")
    oOU.SetInfo
    Set oOU = oDomain.Create("organizationalUnit", "ou=" & classe & ",ou=" & niveau & ",ou=" & etablissement & ",ou=Institut")
    oOU.SetInfo
    'Set oOU = oDomain.Create("organizationalUnit", laOU)
    'oOU.SetInfo
  end if
 
  'msgbox("LDAP://" & laOU & "," & sRoot)
  Set oOU = GetObject("LDAP://" & laOU & "," & sRoot)
 
  Set oUser = oOU.Create("user", "cn=" & login)
 
  '// Load fields in AD record 
  oUser.put "sAMAccountName", lcase(login) 
  oUser.put "givenName", prenom
  oUser.put "sn", nom
  oUser.put "UserPrincipalName", lcase(login) 
  oUser.put "DisplayName", prenom & " " & nom
  oUser.put "Description", "Utilisateur " & prenom & " " & nom
  oUser.SetInfo  
 
  'Gestion des groupes'
  if ((etablissement="Lycée")Or(etablissement="Collège")) then
      groupeeleves = "Elèves" & niveau & classe
      groupeprofs = "Professeurs" & niveau & classe
     'Création du groupe Eleves'
      Set oGroup = oOU.Create("Group", "cn=" & groupeeleves)
      oGroup.Put "sAMAccountName", groupeeleves
      'oGroup.SetInfo
      oGroup.Add groupeeleves
      'oGroup.SetInfo
      msgbox oUser.ADSPath
      oGroup.Add oUser.ADSPath
      oGroup.SetInfo
 
      'Création du groupe Profs de la classe'
      Set oGroup = oOU.Create("Group", "cn=" & groupeprofs)
      oGroup.Put "sAMAccountName", groupeprofs
      oGroup.SetInfo
      oGroup.Add groupeprofs
      oGroup.SetInfo
 
      'Assignation du lecteur P: au répertoire public pour client lourd'
      oUser.put "ProfilePath", serveur1 & "\" & datafolder & "\" & etablissement & "\" & niveau & "\" & classe & "\" '& username
      oUser.put "HomeDirectory", serveur1 & "\" & datafolder & "\" & etablissement & "\" & niveau & "\" & classe & "\public"
      oUser.Put "HomeDrive", "P:"
      oUser.SetInfo
 
      'Assignation du lecteur P: au répertoire public pour client leger'
      oUser.TerminalServicesProfilePath = serveur1 & "\" & datafolder & "\" & etablissement & "\" & niveau & "\" & classe & "\" '& username
      oUser.TerminalServicesHomeDirectory = serveur1 & "\" & datafolder & "\" & etablissement & "\" & niveau & "\" & classe & "\public"
      oUser.TerminalServicesHomeDrive = "P:"
      oUser.AllowLogon = 1
      oUser.SetInfo
 
  elseif ((etablissement="Professeurs")Or(etablissement="Administratifs")) then
      groupepersonnel = etablissement
      'msgbox groupe
      'Création du groupe Profs'
      Set oGroup = oOU.Create("Group", "cn=" & groupepersonnel)
      oGroup.Put "sAMAccountName", groupepersonnel
      oGroup.SetInfo
      oGroup.Add groupepersonnel
      oGroup.SetInfo
      oGroup.Add oUser.ADSPath
      oGroup.SetInfo
 
      'Assignation du lecteur P: au répertoire public pour un client lourd'
      oUser.put "ProfilePath", serveur1 & "\" & datafolder & "\" & etablissement & "\" '& username
      oUser.put "HomeDirectory", serveur1 & "\" & datafolder & "\" & etablissement & "\public"
      oUser.Put "HomeDrive", "P:"
      oUser.SetInfo
 
      'Assignation du lecteur P: au répertoire public pour un client leger'
      oUser.TerminalServicesProfilePath = serveur1 & "\" & datafolder & "\" & etablissement & "\" '& username      
      oUser.TerminalServicesHomeDirectory = serveur1 & "\" & datafolder & "\" & etablissement & "\public"
      oUser.TerminalServicesHomeDrive = "P:"
      oUser.AllowLogon = 1
      oUser.SetInfo
 
  else
      'msgBox ("Groupe inconnu") 
  end if
 
  oUser.setpassword mdp
  oUser.SetInfo 
 
  oUser.put "userAccountControl", 512
  oUser.SetInfo
 
  '// Set the User's DN for adding to group 
  sDN = oUser.get("DistinguishedName") 
 
end function
' Fin fonction CreerCompte

Résolu...

Hmmm je ne sais pas comment ni pourquoi, cela fonctionne sur ma machine de prod...

J'ai repris la fonction de la boucle Profs/Admins et modifié ce qui allait bien, mais si vous trouvez la différence, je vous paie une bolée :mrgreen:

Code avant : cf post précédent

Code après :

Code:

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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
 
' Debut fonction CreerCompte
function CreerCompte()
  'msgbox (nom + Prenom + Etablissement + Niveau + Classe + login + mdp)
  '// Récupération du root 
  Set oRoot = GetObject("LDAP://rootDSE") 
  sRoot = oRoot.Get("defaultNamingContext")
  On Error Resume Next 
 
  Set oDomain = GetObject("LDAP://" & sRoot)
 
  'la OU institut doit exister'
  if ((etablissement="Professeurs") or (etablissement="Administratifs")) then
    laOU = ("ou=" & etablissement & ",ou=Institut")
    Set oOU = oDomain.Create("organizationalUnit", laOU)
    oOU.SetInfo
  else
    laOU = ("ou=" & classe & ",ou=" & niveau & ",ou=" & etablissement & ",ou=Institut")
    Set oOU = oDomain.Create("organizationalUnit", "ou=" & etablissement & ",ou=Institut")
    oOU.SetInfo
    Set oOU = oDomain.Create("organizationalUnit", "ou=" & niveau & ",ou=" & etablissement & ",ou=Institut")
    oOU.SetInfo
    Set oOU = oDomain.Create("organizationalUnit", "ou=" & classe & ",ou=" & niveau & ",ou=" & etablissement & ",ou=Institut")
    oOU.SetInfo
    'Set oOU = oDomain.Create("organizationalUnit", laOU)
    'oOU.SetInfo
  end if
 
  'msgbox("LDAP://" & laOU & "," & sRoot)
  Set oOU = GetObject("LDAP://" & laOU & "," & sRoot)
 
  Set oUser = oOU.Create("user", "cn=" & login)
 
  '// Load fields in AD record 
  oUser.put "sAMAccountName", lcase(login) 
  oUser.put "givenName", prenom
  oUser.put "sn", nom
  oUser.put "UserPrincipalName", lcase(login) 
  oUser.put "DisplayName", prenom & " " & nom
  oUser.put "Description", "Utilisateur " & prenom & " " & nom
  oUser.SetInfo  
 
  'Gestion des groupes'
  if ((etablissement="Lycée")Or(etablissement="Collège")) then
      groupeeleves = "Elèves" & niveau & classe
      groupeprofs = "Professeurs" & niveau & classe
      'Création du groupe Eleves'
      Set oGroup = oOU.Create("Group", "cn=" & groupeeleves)
      oGroup.Put "sAMAccountName", groupeeleves
      oGroup.SetInfo
      oGroup.Add groupeeleves
      oGroup.SetInfo
      oGroup.Add oUser.ADSPath
      oGroup.SetInfo
 
      'Création du groupe Profs de la classe'
      Set oGroup = oOU.Create("Group", "cn=" & groupeprofs)
      oGroup.Put "sAMAccountName", groupeprofs
      oGroup.SetInfo
      oGroup.Add groupeprofs
      oGroup.SetInfo
 
      'Assignation du lecteur P: au répertoire public pour client lourd'
      oUser.put "ProfilePath", serveur1 & "\" & datafolder & "\" & etablissement & "\" & niveau & "\" & classe & "\" '& username
      oUser.put "HomeDirectory", serveur1 & "\" & datafolder & "\" & etablissement & "\" & niveau & "\" & classe & "\public"
      oUser.Put "HomeDrive", "P:"
      oUser.SetInfo
 
      'Assignation du lecteur P: au répertoire public pour client leger'
      oUser.TerminalServicesProfilePath = serveur1 & "\" & datafolder & "\" & etablissement & "\" & niveau & "\" & classe & "\" '& username
      oUser.TerminalServicesHomeDirectory = serveur1 & "\" & datafolder & "\" & etablissement & "\" & niveau & "\" & classe & "\public"
      oUser.TerminalServicesHomeDrive = "P:"
      oUser.AllowLogon = 1
      oUser.SetInfo
 
  elseif ((etablissement="Professeurs")Or(etablissement="Administratifs")) then
      groupepersonnel = etablissement
      'msgbox groupe
      'Création du groupe Profs'
      Set oGroup = oOU.Create("Group", "cn=" & groupepersonnel)
      oGroup.Put "sAMAccountName", groupepersonnel
      oGroup.SetInfo
      oGroup.Add groupepersonnel
      oGroup.SetInfo
      oGroup.Add oUser.ADSPath
      oGroup.SetInfo
 
      'Assignation du lecteur P: au répertoire public pour un client lourd'
      oUser.put "ProfilePath", serveur1 & "\" & datafolder & "\" & etablissement & "\" '& username
      oUser.put "HomeDirectory", serveur1 & "\" & datafolder & "\" & etablissement & "\public"
      oUser.Put "HomeDrive", "P:"
      oUser.SetInfo
 
      'Assignation du lecteur P: au répertoire public pour un client leger'
      oUser.TerminalServicesProfilePath = serveur1 & "\" & datafolder & "\" & etablissement & "\" '& username      
      oUser.TerminalServicesHomeDirectory = serveur1 & "\" & datafolder & "\" & etablissement & "\public"
      oUser.TerminalServicesHomeDrive = "P:"
      oUser.AllowLogon = 1
      oUser.SetInfo
 
  else
      'msgBox ("Groupe inconnu") 
  end if
 
  oUser.setpassword mdp
  oUser.SetInfo 
 
  oUser.put "userAccountControl", 512
  oUser.SetInfo
 
  '// Set the User's DN for adding to group 
  sDN = oUser.get("DistinguishedName") 
 
end function
' Fin fonction CreerCompte

PS : si le code complet vous intéresse, dites moi, je continue à le développer encore jusqu'a la semaine prochaine, date d'install chez mon client.

13/08/2007, 15h27
ced600

"2k3" -> cela veut dire Win2003 Server (pas habitué à ce genre de cigle) ?

As tu compris pkoi lancer ton script avec un ordre un peu modifié résoud le problème ?
13/08/2007, 15h30
j.seyler

Oui 2k3 = 2003 serveur dans mon cas.

PS : je n'ai pas encore tout compris, mis à part le .SetInfo à la fin de la création du compte, mais je ne suis pas persuadé que cela vienne de la...

Peut etre un caractere qui trainait quelque part, et qui ne nous a pas sauté aux yeux...