bonjour,
Mon programme consiste à modifer le HomeDirectory des utilisateurs sous Active Directory.
Mais, lorsque je le lance, il me retourne un message d'erreur comme quoi il manque une fin d'instruction (en l'occurence d'une boucle FOR).
J'ai lu que l'instruction NEXT marquait la fin de la boucle FOR, mais même en la mettant à la fin de mon programme, j'ai toujours la même erreur.
je vous met le code de mon programme .

L'instruction à problème se situe au niveau du commentaire 'MODIFICATION

D'avance merci si vous pouvez m'aider un peu.

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
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
'------------------------------------------------
'------------------------------------------------
'	MODIFICATION DU HOMEDIR DES USERS DANS AD		
'------------------------------------------------
'------------------------------------------------
 
Option Explicit
 
'------------------------------------------------
'		Déclaration des variables
'------------------------------------------------
Dim objFSO, objTextFile, objConnection, objCommand,objUser
 
Const ADS_SCOPE_SUBTREE = 2
Const ForReading = 1
Const ForWriting = 2
 
'------------------------------------------------
'		OU concernée
'------------------------------------------------
ou_concernee  = "OU = Utilisateurs, OU=Tests, DC=toto"
 
'------------------------------------------------
'		serveur de Homedir concerné
'------------------------------------------------
serveur_homedir = "SERVEUR"
 
'------------------------------------------------
'		Type d'objet à traiter
'------------------------------------------------
type_objet = "user"
 
'------------------------------------------------
'Nom du fichier dont les utilisateurs ont un mauvais
'home et/ou un mauvais loginNT
'------------------------------------------------
'Set objFSO = CreateObject("Scripting.FileSytemObject")
'Set objTextfile = objFSO.OpenTextFile_
'("Sharenok.csv", ForAppending, True)
 
'------------------------------------------------
' Déclaration des variables de la boucle
'------------------------------------------------
varNomUser = split(varligne, ";")(0)
varAncienPartage = split(varligne,";")(1)
varNouveauPartage = split(varligne,";")(2)
 
'------------------------------------------------
' Nom du fichier de LOGS
'------------------------------------------------
'Set objTextfile = objFSO.OpenTextFile_
'("Modif_AD.log", ForAppending, True)
 
'------------------------------------------------
'	Connection à AD
'------------------------------------------------
Set objConnection = CreateObject("ADOBD.Connection")
Set objCommand = CreateObject("ADOBD.Command")
 
objConnection.Provider = "ADsDSObject"
objConnection.Open = "Active Directory Provider"
 
Set objCommand.ActiveConnection = objConnection
 
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
objCommand.CommandText = _
"SELECT DistinguishedName FROM 'LDAP://" & ou_concernee & "WHERE objectClass='" & type_object & "'"
 
'------------------------------------------------
' Modification
'------------------------------------------------
 
objUser.SetInfoOpen ("g:\iu_opera\audit_siege\Scripts\sharenok.csv") For Input As #1
 
'------------------------------------------------
' Lecture du fichier ligne par ligne
'------------------------------------------------
Do While Not EOF(1)
Input #1, varLigne
 
'------------------------------------------------
' Si correspondance AD et Liste du fichier csv
'------------------------------------------------
If NOM_USER = varNomUser Then
	Set objUser = GetObject _
	("LDAP://CN='" & NOM_USER & "," & ou_concernee & "'")
 
	'------------------------------
	'Nouveau chemin vers le HomeDir 
	objUser.Put "HomeDirectory","\\'" & serveur_homedir & "\" & varNouveauPartage"'"
	objUser.SetInfo
 
 
End If
Loop
 
Close #1