Salut à tous,

Je suis en train de faire un script (c'est mon premier, totalement débutant) afin d'ajouter voir de modifier à partir d'un fichier csv le samaccountname et le userprincipalname des comptes users dans l'AD 2003.
Malheureusement j'obtiens le message d'erreur suivant :

Ligne 34
Caractère 1
Indice en dehors de la plage: '[number: 1]'
800A0009

Voilà le 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
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
'## debut script###
 Const ForReading = 1, ForWriting = 2, ForAppending = 8
 
 Set oContainer = GetObject("LDAP://dc=integration,dc=local")
 
 ConvertUsers(oContainer)
 ' Nettoyage de mémoire
 
 Set oContainer = Nothing
 
 WScript.Quit
 
 Sub ConvertUsers(oTopLevelContainer)
 Dim oObj
 
 For Each objUser in oTopLevelContainer
 
 Select Case objUser.Class
 
 Case "organizationalUnit" , "container"
 ConvertUsers(ObjUser)
 
 Case "user"
 dim fso, df1
 CSVFile = "c:\temp\adusers.csv"
 
 Set fso = CreateObject("Scripting.FileSystemObject")
 Set df1 = fso.OpenTextFile(CSVFile,ForReading,True)
 
 Do while Not df1.AtEndOfStream
 varLigne = df1.readline()
 
 Noms = split(varLigne,",")(0)
 samaccountname = split(varLigne,",")(1)
 userprincipalname = split(varLigne,",")(2)
 
 'msgbox ""& session
 'msgbox ""& CNUser
 
 If CNUser= objuser.cn Then
 
 msgbox "ok pour" &Noms
 'Set oobj = GetObject ("LDAP://cn=" & Noms & ",dc=integration,dc=local")
 
 objUser.Put "userprincipalname",""& userprincipalname
 objUser.Put "samaccountname",""& samaccountname
 
 objUser.setinfo
 End If
 Loop
 
 df1.close
 End select
 ' Va à la prochaine OU enfant
 Next
 End Sub
 
 '## fin script###