Discussion :

[gege765]

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]

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

pourquoi mettre un %ComSpec...

[gege765]

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]

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]

Bonsoir,

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

[SfJ5Rpw8]

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

...

et si tu met aucun des 2 ..? directement la commande comme lorsque tu la saisie dans une fenêtre de commande?

[ProgElecT]

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

[gege765]

En effet je viens de le tester sous W7 64 bits et il fonctionne correctement.
Par contre sur mon Windows Server 2003 R2, l'erreur est toujours présente même en utilisant simplement run

Avez-vous une idée sur la cause du problème ?

[gege765]

Bonjour,

J'ai testé mon script sur un Windows server 2008, et il fonctionne.
Le problème est toujours présent sur le 2003.

Est-ce que cela peut être lié à un problème d'encodage de caractère ou version de visual basic ?