execution de commande dans VBS

**micka180** · 10/12/2009, 13h59

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** · 10/12/2009, 15h21

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** · 10/12/2009, 17h24

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** · 10/12/2009, 17h30

Envoyé par micka180

....
j'ai juste modifier la commande

...

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

**micka180** · 11/12/2009, 10h46

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** · 11/12/2009, 10h56

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** · 11/12/2009, 10h59

Envoyé par micka180

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 ?

**micka180** · 11/12/2009, 12h03

j'ai ajouté le

wscript.Echo stR

comme tu me la conseillé et fais le menage.

Code :

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

Set shl = createobject("wscript.shell")

en glogal

suppression de

Code :

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

Set fso2 = CreateObject("Scripting.FileSystemObject")

qui n'avait aucune utilité.

le traitemant se fait bien sur le premier niveau mais pas au-dela

--------------- D:\Users\A1-----------------
D-Users-A1
D:\Users\A1
Exit code: 259 , 0103h

je pense que le souci se situ sur la fin d'execution de commande.
faire un vidage buffer apres execution de la commande par exemple ?

**SfJ5Rpw8** · 11/12/2009, 12h11

J'ai raté ton message de 10h56...

mais dans ton dernier message ton problème semble du à ta commande setacl.exe avec une erreur dès la première exécution ..

En ligne de commande cette commande fonctionne t'elle ..?

**micka180** · 11/12/2009, 12h21

Mieux que cela.

Elle s'execute parfetement.
Elle crée mon fichier et inscrit le rapport à l'intérieur.

"\\?\D:\Users\A1",1,"O:S-1-5-21-1572353085-412953175-1904571539-17780G

UD

A;OICI;FA;;;BA)(A;OICI;FA;;;SY)(A;;FA;;;S-1-5-21-1572353085-412953175-1904571539-17780)(A;OICIIO;GA;;;CO)(A;CI;FA;;;BU)(A;CI;FA;;;BU)(A;OIIO;FA;;;BU)(A;CI;FA;;;BU)(A;OIIO;FA;;;DU)(A;CI;FA;;;DU)"

SetACL finished successfully.

J’ai testé avec une autre commande Dir par exemple, même rengaine

**SfJ5Rpw8** · 11/12/2009, 13h53

Envoyé par micka180

Mieux que cela.

Elle s'execute parfaitement....

Tu as comparer la commande exécutée "manuellement" avec la sortie donnée par :

Code :

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

wscript.echo stCde

...

tu pourrai aussi rajouter des messages avant et après le Run afin de t'assurer de l'endroit ou s'effectue l'Exit code...

Envoyé par bbil

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

rajoute aussi tout en haut de ton script la ligne

Code :

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

Option Explicit

qui t'oblige de déclarer toutes tes variables et ainsi seras un révélateurs de tes erreur sur la portée des variables utilisées...

(comme par exemple Chemin_def utilisé dans ta procédure command)

**micka180** · 11/12/2009, 14h03

oui j'ai fait la comparéson entre commande manuelle et stCde, s'est la meme chose.

je fais le test pour les messages avant et apres le run.

Merci

**micka180** · 11/12/2009, 14h38

voici ce que j'ai mis en test.

Code :

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

1
2
3
4
5
6
msgbox stCde
WScript.Echo stCde
WScript.Echo "coucou"
shl.run stCde,0,True
WScript.Echo stCde
End Sub

resultat

--------------- D:\Users\A1-----------------
D-Users-A1
D:\Users\A1
cmd /K setacl.exe -on D:\Users\A1 -ot file -actn list -lst f:sddl;w:d,s,o,g;i:n;s:y -rec no > C:\LOGS\ACL\D-Users-A1.txt
coucou

le programme n'esxecute pas le

WScript.Echo stCde

positionné apres le

shl.run stCde,0,True

je suis à court d'idées

**SfJ5Rpw8** · 11/12/2009, 14h42

et pas de message d'erreur ?

enlève la redirection vers le log ( > C:\LOGS\A....) voir si tu vois quelque-chose à l'écran..

**micka180** · 11/12/2009, 14h58

c'est le cmd /K qui faisait bloquer.
setACL n'est pas une commande interne.

avec CMD /C
pas de probleme.

maintenant je dois lui trouver une condition de sortie apres qu'il est sacnné les 4 sous niveau.

Encore Merci pour ton aide

**micka180** · 14/12/2009, 10h55

Pour qui cela pourrait intéresser voici le script complet.

Il scan sous les 4 premiers sous niveaux de chaque répertoires racines
et exécute une commande de récupération des ACL par SETACL
Stock les fichiers sous la forme lecteur-nom_rep-sous-rep.txt.

Merci encore à Bbil pour son aide.

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
Dim oFSO,oFld
Dim Chemin_def
Dim Subnumber,Chemin
Dim stRep_log
 
 
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set shl = createobject("wscript.shell")
 
stRep = "d:\users" 'Emplacement à Scanner
stRep_log ="C:\logs\ACL"'Stockage des Fichiers ACL
LectRep stRep 
 
Subnumber = 0
'
' Fonction récursive de parcours de répertoire
'
Sub LectRep (stR)
If Subnumber < 4 Then 'ici le nombr de sous repertoires à scanner
 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 Subnumber
  WScript.Echo Chemin_def
  Commande (oFld.PATH)'appel de la commande
  LectRep oFld.PATH 'appel de la recursivitée sur les sous repertoires  
 Next
 Else
 Subnumber = 0
End If
 
 
 
 
end sub
'
' commande à executer
'
Sub Commande (stR)
Dim stCde
wscript.echo stR
stCde = "cmd  /C setacl.exe -on " & stR & " -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"
WScript.Echo stCde
shl.run stCde,0,True
WScript.Echo stCde
End Sub

execution de commande dans VBS

VBScript

Discussions similaires

Partager

Partager