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