Script pour ajouter / modifier Samaccountname et userprincipalname AD 2003

Version imprimable

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:

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###

Salut

Le message d'erreur semble explicite.
Tu pourrais coder dans le même esprit que celui-ci, les MsgBoxs en moins

Code:

1
2
3
4
5
6
7
8
9
10
Do While Not df1.AtEndOfStream
    varLigne = df1.readline()
    If UBound(Split(varLigne, ",")) < 2 Then
       MsgBox "contenu de varLigne: " & vbNewLine & varLigne
		else
        MsgBox Split(varLigne, ",")(0) & vbNewLine & Split(varLigne, ",")(1) & vbNewLine & Split(varLigne, ",")(2)
   End If
    'Noms = Split(varLigne, ",")(0)
    '.............................
Loop

04/09/2014, 13h41
thematterneo

Il y aurait pas possibilité de modifier le script que j'ai ? J'ai tenté d'enlever les MsgBoxs mais toujours le même message.

Citation:

J'ai tenté d'enlever les MsgBoxs mais toujours le même message

8O 8O

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
'## debut script###
 Const ForReading = 1, ForWriting = 2, ForAppending = 8
 
 Set oContainer = GetObject("LDAP://dc=integration,dc=local")
 ConvertUsers (oContainer)
 
 Set oContainer = Nothing ' Nettoyage de mémoire
 
 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()
                    If UBound(Split(varLigne, ",")) < 2 Then                    '*** debut partie modifiée ***
                        MsgBox "contenu de varLigne: " & vbNewLine & varLigne   '*** partie modifiée *********
                        Else                                                    '*** partie modifiée *********
                        Noms = Split(varLigne, ",")(0)                          '*-- reprise de ton code *****
                        samaccountname = Split(varLigne, ",")(1)                '*---- mais inclut dans -----*
                        userprincipalname = Split(varLigne, ",")(2)             '*---- la condition If ------*
                        '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
                    End If                                                      '*** Fin partie modifiée *****
                Loop
 
                df1.Close
        End Select
    ' Va à la prochaine OU enfant
 Next
 End Sub
 
 '## fin script###

Je ne te propose que de régler ton problème d'erreur, pour autant je ne sais pas trop bien se que fait ton code, il demanderait à être optimisé.

05/09/2014, 09h54
thematterneo

Merci encore pour ton aide. Malheureusement cela ne donne pas ce que je veux, snif. En fait ce script a pour but de modifier ou d'ajouter dans l'AD sous Windows 2003 les attributs samaccountname et userprincipalname de tous les comptes utilisateurs, mais j'ai l'impression que cela check uniquement sans modifier ou ajouter quoique ce soit.

Citation:

Envoyé par thematterneo

....
Malheureusement cela ne donne pas ce que je veux, snif.
....

L'erreur est toujours là, que contient la ligne récupéré dans la variable varLigne

Code:

1
2
3
4
                Do While Not df1.AtEndOfStream
                    varLigne = df1.readline()
                    MsgBox "contenu de varLigne: " & vbNewLine & varLigne '------- ligne inséré ------ 
                    If UBound(Split(varLigne, ",")) < 2 Then                    '*** début partie modifiée ***