Discussion :

[rabddoul]

Bonjour à tous,

J'ai un soucis que je n'arrive pas à résoudre qui doit pourtant être simple et lié à un problème de cote.
Voici le contexte :

J'ai defini un VBScript qui possède la définition d'une fonction qui permet d'executer une commande shell :

Code :

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

1
2
3
4
5
function executeshell (commande)
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run commande
Set WshShell = nothing
end function

Dans ce même fichier VBScript, je fais un appel tout simple avec un echo qui doit être ecrit dans un fichier log:

Code :

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

ExecuteShell "echo ********>>c:\log.txt"

A l'execution j'ai l'erreur suivante :
"le fichier spécifié est introuvable"

Je ne comprends pas cette erreur, j'ai essayer de mettre entre quote le text de l'echo a ecrire pareil. J'ai essayé plusieurs syntaxe mais je n'arrive pas à m'en sortir.

Est ce que qqun aurait une idée sur la syntaxe a respecter pour executer correctement cette commande Shell.

Merci d'avance.

[hackoofr]

Bonjour à tous,
J'ai un soucis que je n'arrive pas à résoudre qui doit pourtant être simple et lié à un problème de cote.
Voici le contexte :
J'ai defini un VBScript qui possède la définition d'une fonction qui permet d'executer une commande shell :

Code :

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

1
2
3
4
5
function executeshell (commande)
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run commande
Set WshShell = nothing
end function

Dans ce même fichier VBScript, je fais un appel tout simple avec un echo qui doit être ecrit dans un fichier log:

Code :

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

ExecuteShell "echo ********>>c:\log.txt"

A l'execution j'ai l'erreur suivante :
"le fichier spécifié est introuvable"
Je ne comprends pas cette erreur, j'ai essayer de mettre entre quote le text de l'echo a ecrire pareil. J'ai essayé plusieurs syntaxe mais je n'arrive pas à m'en sortir.
Est ce que qqun aurait une idée sur la syntaxe a respecter pour executer correctement cette commande Shell.
Merci d'avance.

Salut, Try this Function

Code :

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

1
2
3
4
5
6
7
8
Function executeshell
Dim WSH,Command,Result
Set WSH = CreateObject("Wscript.shell")
Command = "cmd /c echo ********>>c:\log.txt"
Result= WSH.Run(Command,0,True)
Set WSH= nothing
end Function
Call executeshell

ou Bien cette Fonction et dis moi le résultat

Code :

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

1
2
3
4
5
6
7
Function executeshell(command) 
Dim WSH,Result
Set WSH = CreateObject("Wscript.shell")
Result= WSH.Run(Command,0,True)
Set WSH= nothing
end Function
Call executeshell("cmd /c echo ********>>c:\log.txt")

[rabddoul]

Les deux methodes que tu m'as donnes fonctionnent.

Merci.