Discussion :

[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 :

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

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.

[hackoofr]

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 :

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

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 :

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

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 :

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

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

[binouzzz19]

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 :

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

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.

[hackoofr]

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

Code :

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

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 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
Cordialement