Redirection output commande avec variable

Version imprimable

Bonjour,

je sais que la question a déjà été posée mille fois mais malgré des centaines d'exemple trouvé sur le net je sèche un peu là :)

Voici mon code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Set objFSO = CreateObject("Scripting.FileSystemObject") userprofile = WScript.Arguments.Item(0) dim filesys, text, readfile, contents set filesys = CreateObject("Scripting.FileSystemObject") Set oShell = WScript.CreateObject("WSCript.shell") set readfile = filesys.OpenTextFile("D:\FVS_Integration\" & userprofile & "\command_OO.txt", 1, false) do while readfile.AtEndOfStream=false contents = readfile.ReadLine 'wscript.echo contents Set output = objFSO.CreateTextFile("D:\FVS_INTEGRATION\output.txt", 1) oShell.run ("cmd /C " & contents >> D:\FVS_Integration\output.txt") loop readfile.close
Et voici le contenu du fichier et variabiliser dans contents:

Citation:

C:\php\php.exe D:\IBR_TOOLS\php_depot\steria\sitescope\integration\integration_socle_technique.php --conf D:\IBR_TOOLS\conf_clients\sitescope\MTES_sitescope_serveurs_prod.xml --sitescope_utilise SIS2 --code_client INTEGRATION --verbose --fichier_fvs D:\FVS_INTEGRATION\ngreder\FVS.xls

Lorsque j'exécute la commande PHP seule avec la redirection dans le fichier depuis un DOS cela fonctionne et me renvoie bien l'output mais pas dans mon VBS. Alors je mettrais ma main à couper qu'il faut faire des escape de quote un peu partout, mais malgré de nombreux tests, impossible de trouver la bonne syntaxe...

D'avance merci pour votre aide :)

Salut

Code:

1
2
3
4
5
6
7
do while readfile.AtEndOfStream=false 
	contents = readfile.ReadLine
	'wscript.echo contents
	Set output = objFSO.CreateTextFile("D:\FVS_INTEGRATION\output.txt", 1)
	oShell.run ("cmd /C " & contents & ">> D:\FVS_Integration\output.txt")
loop
readfile.close

Ok laissez tombé, il suffit que je post après 5h de recherche pour trouver la solution tout seul....

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Set objFSO = CreateObject("Scripting.FileSystemObject")
userprofile = WScript.Arguments.Item(0)
dim filesys, text, readfile, contents 
set filesys = CreateObject("Scripting.FileSystemObject") 
Set oShell = WScript.CreateObject("WSCript.shell")
set readfile = filesys.OpenTextFile("D:\FVS_Integration\" & userprofile & "\command_OO.txt", 1, false) 
do while readfile.AtEndOfStream=false 
contents = readfile.ReadLine
'wscript.echo contents
Set output = objFSO.CreateTextFile("D:\FVS_INTEGRATION\output.txt", 1)
errorlevel = oShell.run ("cmd /C " & contents)
output.WriteLine(errorlevel)
loop
readfile.close

Merci a moi même, c'est pas souvent en scripting m'en voulez pas les gars :)

10/01/2017, 17h07
nicnictout

A nos posts se sont croisés apparemment :)

En effet cela fonctionne bien aussi ProgElecT ^^
Merci de l'aide, j'avais mis la " après >>

Cela étant dit je me rends compte que ton bout de code est bien mieux que le mien, car tant que la commande est en succès ca me met OK même si le résultat du PHP est NOK, alors que toi ca redirige la sortie du PHP et donc reflète la réalité.
Je te donne ton Kudo du coup :)