commande qui ne fonctionne pas

**gege765** · 30/04/2011, 19h57

Bonjour,

Voilà je cherche à modifier des droits d'accès à l'aide de VBScript en utilisant la commande cacls

Code :

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

1
2
3
4
5
6
7
8
9
10
'declaration
rep = chr(34) & "C:\partages\test" & chr(34)
optCacls = " /T /C /G Administrateurs:F"
commande1 = "cd " & rep
commande2 = "cacls " & rep & optCacls
 
Set objShell = CreateObject("Wscript.Shell")
objShell.Run "%COMSPEC% /k" & commande2
 
MsgBox "commande terminée.", vbInformation ,"Information"

Lorsque j’exécute objShell.Run "%COMSPEC% /k" & commande1 il n'y a pas d'erreur.

Si j’exécute objShell.Run "%COMSPEC% /k" & commande2 j'ai une erreur caractère incorrecte et je ne sais pas pourquoi.

Avez-vous une idée ?

Pour information si je tape directement la ligne suivante dans une cmd elle exécute correctement :

Code :

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

cacls "C:\partages\test" /T /C /G Administrateurs:F

**SfJ5Rpw8** · 30/04/2011, 20h41

sur quelle ligne l'erreur ( elles sont numérotées...) ?

pourquoi mettre un %ComSpec...

**gege765** · 30/04/2011, 21h07

Merci de ton aide.

Il me met une erreur ligne 23 caractère 7 alors que le programme de test n'a que 12 lignes...

Que je mette un %ComSpec% ou un cmd cela ne change pas.

Je joins en pièce jointe une copie de l'erreur ainsi que le programme.

**ProgElecT** · 30/04/2011, 21h28

Salut
Ne manque t il pas un espace après le K ?

Code :

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

1
2
3
4
5
rep = chr(34) & "C:\partages\test" & chr(34)
optCacls = " /T /C /G Administrateurs:F"
commande1 = "cd " & rep
commande2 = "cacls " & rep & optCacls
msgbox "%COMSPEC% /k" & commande2

**gege765** · 30/04/2011, 21h42

Bonsoir,

Je viens de tester en ajoutant un espace et l'erreur est toujours présente.

**ProgElecT** · 30/04/2011, 22h00

J'ai chargé ton code, et je n'ai pas d'erreur signalé par VBS Factory, une fenêtre dos me pose la question de confirmation êtes-vous sûr (O/N) ? et j'ai la boite MsgBox "commande terminée", aucune erreur de mon coté, pour information je suis sous Windows Seven 64Bits.

Salut bbil