VBS : exécuter .bat

Bonjour à tous !

J'aimerai pouvoir exécuter depuis un .vbs le contenu d'un .bat.
Je ne souhaite pas exécuter le .bat directement car sinon les variables d'environnements définies dans ce .bat ne seront pas interprétés par mon .vbs.

J'aimerai donc en vbscript lire le contenu de mon .bat et exécuter chaque ligne.
Est-possible ?

J'ai déjà fait cela mais ça n'a pas fonctionné :

Code:

---

1 2 3 4 5 6 7 8 9

dim filesys, readfile, contents set filesys = CreateObject("Scripting.FileSystemObject") set readfile = filesys.OpenTextFile("c:\env.bat", 1, false) do while readfile.AtEndOfStream=false contents = readfile.ReadLine WshShell.Run WScript.Echo contents loop readfile.close

---

Merci de votre aide.

Citation:

---

Envoyé par binouzzz19

Bonjour à tous !
J'aimerai pouvoir exécuter depuis un .vbs le contenu d'un .bat.
Je ne souhaite pas exécuter le .bat directement car sinon les variables d'environnements définies dans ce .bat ne seront pas interprétés par mon .vbs.
J'aimerai donc en vbscript lire le contenu de mon .bat et exécuter chaque ligne.
Est-possible ?
J'ai déjà fait cela mais ça n'a pas fonctionné :

Code:

---

1 2 3 4 5 6 7 8 9

dim filesys, readfile, contents set filesys = CreateObject("Scripting.FileSystemObject") set readfile = filesys.OpenTextFile("c:\env.bat", 1, false) do while readfile.AtEndOfStream=false contents = readfile.ReadLine WshShell.Run WScript.Echo contents loop readfile.close

---

Merci de votre aide.

---

Salut ;)
Essaye ce

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

dim filesys, readfile, contents,Result set filesys = CreateObject("Scripting.FileSystemObject") set readfile = filesys.OpenTextFile("c:\env.bat",1) Set WshShell = CreateObject("WScript.Shell") Do Until readfile.AtEndOfStream contents = readfile.ReadLine com="cmd /c" & contents MsgBox contents Result=WshShell.Run(com,1,True) 'l'option 1 pour rendre l'execution de la console MS-DOS visible Result=WshShell.Run(com,0,True) 'l'option 0 pour rendre l'execution de la console MS-DOS invisible loop readfile.close

---

ou bien utiliser tout simplement ce petit code qui donne le même résultat:

Code:

---

1 2 3 4

Dim com,Result Set WshShell = CreateObject("WScript.Shell") com="cmd /c c:\env.bat" Result=WshShell.Run(com,1,True)'Option 1 Console Visible.Option 0 Console Invisible

---

Merci de ta réponse hackoofr,

Cependant, je ne pense pas que cela me convienne car dans les deux cas que tu me proposes, il y a la commande "cmd /c" qui ouvrira quoi qu'il arrive (visible ou invisible) un nouvel invité de commande et donc les commandes présentes dans ce .bat ne seraient pas prises en compte par l'invité de commande qui lance mon vbs.

J'ai finalement trouvé une autre solution, en fait, étant donné que dans mon env.bat, je n'ai que des

Code:

---

SET clé=valeur

---

, je fais un split sur le "=" puis j'ajoute ma clé sans les 4 caractères du début (pour enlever le "SET ") dans les variables d'environnement avec la valeur "valeur".

Merci quand même.
Cordialement.

Citation:

---

Envoyé par binouzzz19

J'ai finalement trouvé une autre solution, en fait, étant donné que dans mon env.bat, je n'ai que des

Code:

---

SET clé=valeur

---

, je fais un split sur le "=" puis j'ajoute ma clé sans les 4 caractères du début (pour enlever le "SET ") dans les variables d'environnement avec la valeur "valeur".
Merci quand même.
Cordialement.

---

Salut binouzzz19 :)
Etant donnée que tu as trouvé la solution :ccool: peut-tu nous partager ta solution Finale avec les deux codes VBS et env.bat afin de voir de plus prés tes astuces pour résoudre ce genre de problème
Merci :ccool:
Cordialement