comment récupérer le résultat d'execution d'un vb script vers fichier bat

Salut

j'ai développer un vb script qui permet de renvoyer le resultat dans un message box :

Code:

---

1 2 3 4 5 6 7 8

function GetVersionNumber() ................................ ................................ GetVersionNumber= ..... end function   Wscript.Echo GetVersionNumber

---

Maintenant ,je veux récupérer la valeur affiché par le script dans un fichier de commande DOS .bat pour une autre nouvelle utilisation :roll:

Merci pour votre aide

elyusufi yasyn

je suis pas sur d'avoir tout compris ... peu être en le passant en paramètre d'appel du .bat

MonVbs.vbs

Code:

---

1 2 3

Set WshShell = WScript.CreateObject("WScript.Shell") Return = WshShell.Run("Monbat 0123456" , 1, true)

---

et le .bat
MonBat.bat

Code:

---

1 2 3 4 5

@Echo --------------------------- @Echo %1 @Echo --------------------------- pause

---

;)

Salut

Ce que je veux moi,

Quant j'execute le fichier .bat ila m'affiche la valeur retourné par je script vbs


c a d au lieu de cliquer sur vbs ,je vais cliquer sur .bat pour afficher la valeur retorné par la fonction

Citation:

---

GetVersionNumber

---

du VBS

Merci de votre aide

merci d'être + clair ...comment lance tu ton vbs ... ton .bat ...?... je t'ai montré du code pour lancer un .bat avec un paramètre depuis vbs... c'est pas bon. .?

Salut

Je lance le .bat en cliquant dessus ,la ou je veux récupérer la valeur retourné par le fonction du vbs

et merci

il fait quoi ton .bat...?

tu veux en faire quoi de cette valeur..?

la récupérer ou...?

tiens peu-être cela t'inspire :

le .bat :

Code:

---

1 2 3 4 5 6 7

@Echo Off REM Passage en mode console wscript //H:CSCRIPT //b LeVBS ECHO FIN pause

---

le .vbs :
LeVbs.vbs

Code:

---

1 2	Wscript.Echo "Le numéro de version est " & 12345

---

:roll:

Bon

Voila le Script VBS

Code:

---

1 2 3 4 5 6 7 8 9 10 11

function GetVersionNumber() ................................ ................................ GetVersionNumber= ..... end function   'ici normalement la valeur affiché en message box Wscript.Echo GetVersionNumber

---

Le fichier bat

Code:

---

1 2 3 4

@echo off   rem La ou je veux afficher la valeur retourné par la fonction GetVersionNumber du Script VBS

---

J'éspére que je vous ai bien expliqué mon probléme
et Merci pour votre aide

Merci pour votre disponibilité

Citation:

---

Envoyé par elyusufiyasyn

....
J'éspére que je vous ai bien expliqué mon probléme
et Merci pour votre aide

Merci pour votre disponibilité

---

ben non désolé je comprends toujours pas ce que tu veux faire ... ? afficher ou à l'écran ..? mon dernier code ne te conviens pas ..? tu la essayer ..?

Si j'ai bien compris, tu veux rediriger le résultat de GetVersionNumber dans un fichier .bat.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Const conCheminFichierBat = "C:\" Const conNomFichierBat = "RésultatGetVersion.bat" Dim strNumeroVersion   strNumeroVersion = GetVersionNumber subRedirectionFichierBat conCheminFichierBat, conNomFichierBat, strNumeroVersion   '======= Fonctions et procédures ====== function GetVersionNumber() ....................... GetVersionNumber = ................ end function   Sub subRedirectionFichierBat(strCheminFichierBat, strNomFichierBat, strValeurNumeroVersion) Dim objFSO, objFichierBat   Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFichierBat = objFSO.OpenTextFile(strCheminFichierBat & strNomFichierBat, 2, false)   objFichierBat.Write strValeurNumeroVersion End Sub

---

Il va écrire ainsi à la fin du fichier .bat. ATTENTION, le fichier DOIT exister !
EDIT : au temps pour moi, la commande écrase ce qui est dans le fichier .bat. Je fais les changements
RE-EDIT : voir ma remarque plus bas

Moi j'ai compris qu'il veut lancer son vbs à partir du .bat et ainsi récupérer la valeur retournée par sa fonction.

A ce moment, il faudra mettre

Code:

---

cscript.exe "mon script de la mort qui tue.vbs"

---

en début du .bat :mouarf:

Ce que je veux faire c 'est exactement ce qu'a dit ced600

executer .bat en récupérant la valeur envoyé par la fonction GetVersionNumber() du VBS

Je pense que ca serais pas compliqué

Merci d'avance

as tu essayé ce que ThulKash a proposé ?

Citation:

---

Envoyé par elyusufiyasyn

Ce que je veux faire c 'est exactement ce qu'a dit ced600

executer .bat en récupérant la valeur envoyé par la fonction GetVersionNumber() du VBS

Je pense que ca serais pas compliqué

Merci d'avance

---

ça je t'a déjà donné un exemple de code qui le fait plus haut... ! répond SVP au question qu'on te pose..!

Oui pour afficher la valeur ca marche


test.bat

Citation:

---

cscript.exe "test.vbs"

---

mais mois je veux récuperer la valeur dans une variable

test.bat

Citation:

---

SET var=valeur

---

merci

Bon en fait, le .bat ne supporte pas que le FSO l'ouvre en écriture.
Si on ouvre le .bat en lecture par le FSO, pas de soucis on peut lire les lignes, etc. Par contre, sitôt qu'on ouvre le fichier en écriture, il efface tout le contenu du .bat :arf:
je ne vois pas donc pas comment faire pour mettre le résultat à la suite de quoique ce soit... :'(

Personnelement je ne souviens comment, mais je crois qu'en vbs on peut préciser au script qu'il doit retourner une valeur précise une fois le script fini. Son code de retour en quelque sorte, la il suffirait de préciser que le code retourner est la valeur retourner par la fonction GetVersionNumber().
Puis dans le fichier .bat on la récupère dans une variable (je ne sais plus comment on fait cela non plus :aie: )

Mais je me demande si ce qu'a écrit bbil ne fait pas cela :

Citation:

---

il fait quoi ton .bat...?

tu veux en faire quoi de cette valeur..?

la récupérer ou...?

tiens peu-être cela t'inspire :

le .bat :

Code:

---

1 2 3 4 5 6

@Echo Off REM Passage en mode console wscript //H:CSCRIPT //b LeVBS ECHO FIN pause

---

le .vbs :
LeVbs.vbs

Code:

---

Wscript.Echo "Le numéro de version est " & 12345

---

---