Expone la secuencia de salida stdout de sólo escritura para el objeto Exec.
Objeto.StdOut
La propiedad StdOut contiene una copia de sólo lectura de toda la información que la secuencia de comandos pueda haber enviado a la salida estándar.
El código siguiente inicia un archivo por lotes y espera que aparezca el indicador de la entrada del usuario. Tras especificar los datos requeridos a través de la secuencia StdIn, el archivo por lotes podrá finalizar.
Dim WshShell, oExec, input Set WshShell = CreateObject("WScript.Shell") Set oExec = WshShell.Exec("test.bat") input = "" Do While True If Not oExec.StdOut
.AtEndOfStream Then input = input & oExec.StdOut
.Read(1) If InStr(input, "Presione una tecla") <> 0 Then Exit Do End If WScript.Sleep 100 Loop oExec.StdIn.Write VbCrLf Do While oExec.Status <> 1 WScript.Sleep 100 Loop
var WshShell = new ActiveXObject("WScript.Shell");
var oExec = WshShell.Exec("test.bat");
var input = "";
while (true)
{
if (!oExec.StdOut.AtEndOfStream)
{
input += oExec.StdOut.Read(1);
if (input.indexOf("Presione una tecla") != -1)
break;
}
WScript.Sleep(100);
}
oExec.StdIn.Write("\n");
while (oExec.Status != 1)
WScript.Sleep(100);
Ayuda de Javascript y Vbscript para Javascripts.astalaweb.com. |