Discussion :

[micka180]

Bonjour,

mon script est censsé scanner les 4 Premiers niveau d'une arborecence et d'executer une commande SETACL sur chacun d'eux.
envoyer le resultat dans un fichier qui à pour nom le chin du repertoire scanné

probleme j'ai du mal à integrer ma commande dans le script.

Message d'erreur :

](31, 44) Erreur de compilation Microsoft VBScript: Fin d'instruction attendue

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
 
 
Dim oFSO,oFld
Set oFSO = CreateObject("Scripting.FileSystemObject")
stRep = "d:\users"
LectRep stRep 
Dim Subnumber,Chemin 
 
Subnumber = 0
'
' Fonction récursive de parcours de répertoire
'
Sub LectRep (stR)
Dim Chemin_def
Do While Subnumber <> 4
 For each oFld in  oFSO.GetFolder(stR).SubFolders
 Subnumber = Subnumber + 1
 Chemin = Replace(oFld.Path,"\","-")
 Chemin_def = Replace(Chemin,":","_")
   Wscript.Echo "--------------- " & oFld.PAth & "-----------------"
  WScript.Echo Chemin_def
   Commande (oFld.PATH)   
   LectRep oFld.PATH
 Next
Loop
end sub
'
' commande à executer
'
Sub Commande (stR)
Set fso2 = CreateObject("Scripting.FileSystemObject")
set shl = createobject("wscript.shell")
shl.run "cmd  /K setacl.exe -on -ot file -actn list -lst f:sddl;w:d,s,o,g;i:n;s:y -rec no -bckp C:\LOGS\ACL\"Chemin_def".txt",0,True
End sub

Merci de votre aide

[SfJ5Rpw8]

salut ,

Un problème de " ..
- En Vbscript l'opérateur de concaténation de chaine est le : &
- Si tu dois mettre des " dans une chaine il faut les doubler..

mieux vaut passer par une variable chaine intermédiaire pour ta commande ce qui te permet de l'afficher :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
(...)
Dim stCde
stCde = "cmd  /K setacl.exe -on -ot file -actn list -lst f:sddl;w:d,s,o,g;i:n;s:y -rec no -bckp C:\LOGS\ACL\" & Chemin_def & ".txt"
msgbox stCde
shl.run stCde,0,True

[micka180]

Merci cela fonctionne sur le premier niveau.
cependant je n'arrive pas à passer au niveau en dessous.
je n'ai pas de message d'erreur.
mon prompt continu de touner sans fin.

j'ai juste modifier la commande

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
stCde = "cmd  /K setacl.exe -on" &" " & oFld.Path & " " &"-ot" & " " &"file"& " " &"-actn" & " " &"list" &" " &"-lst" & " " &"f:sddl;w:d,s,o,g;i:n;s:y"&" "&"-rec"&" "&"no"&">"& " " &"C:\LOGS\ACL\" & Chemin_def & ".txt"

Merci pour votre Aide

[SfJ5Rpw8]

....
j'ai juste modifier la commande

...

pourquoi ? éclater ta chaine en plusieurs petite chaine est inutile .. !

[micka180]

Car sans cela ma commande est de la forme :

setacl.exe -ond:\users\A1-ot

les options de la commande ne sont pas separées, ce qui fait planter la commande.

j'utilise les "" comme espace.

[micka180]

voila ce que j'obtiens avec execution de commande.

--------------- D:\Users\A1-----------------
D-Users-A1

sans execution de commande

--------------- D:\Users\A1-----------------
D-Users-A1
--------------- D:\Users\A1\A2-----------------
D-Users-A1-A2
--------------- D:\Users\A1\A2\A3-----------------
D-Users-A1-A2-A3
--------------- D:\Users\A1\A2\A3\A4-----------------
D-Users-A1-A2-A3-A4
--------------- D:\Users\B1-----------------
D-Users-B1
--------------- D:\Users\B1\B2-----------------
D-Users-B1-B2
--------------- D:\Users\B1\B2\B3-----------------
D-Users-B1-B2-B3
--------------- D:\Users\B1\B2\B3\B4-----------------
D-Users-B1-B2-B3-B4

[SfJ5Rpw8]

Car sans cela ma commande est de la forme :

les options de la commande ne sont pas separées, ce qui fait planter la commande.

j'utilise les "" comme espace.

non tu n'utilise pas les "" comme espace tu concatène ta chaine avec un espace ... il te suffit de mettre directement l'espace dans ta chaine pas la peine d'utiliser 2 chaines...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

stCde = "cmd  /K setacl.exe -on " & oFld.Path & " -ot file -actn list -lst f:sddl;w:d,s,o,g;i:n;s:y -rec no> C:\LOGS\ACL\" & Chemin_def & ".txt"

ensuite pour ta boucle sans fin ...dans ta procédure command à quoi sert la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set fso2 = CreateObject("Scripting.FileSystemObject")

pour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

set shl = createobject("wscript.shell")

j'aurais bien mis cette ligne en dehors de ta procédure (comme oFso) de façon à ce que shl soit une variable globale initialisé une seule fois et pas à chacun de tes répertoires..

pour tenter de comprendre ce qui ce passe dans ta boucle rajoute une ligne affichant le répertoire testé par exemple...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Commande (stR)
wscript.echo stR
stCde = "cmd  /K setacl.exe -on " & oFld.Path & " -ot file -actn list -lst f:sddl;w:d,s,o,g;i:n;s:y -rec no> C:\LOGS\ACL\" & Chemin_def & ".txt"
shl.run stCde,0,True
 
End sub

Il me semble aussi incongru le fait que tu n'utilise pas le paramètre stR dans ta commande ?