Discussion :

[nicnictout]

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 :

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

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:

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

[ProgElecT]

Salut

Code :

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

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

[nicnictout]

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

Code :

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

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

[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