Expone la secuencia de entrada stdin para el objeto Exec.
Objeto.StdIn
Use la propiedad StdIn para pasar datos a un proceso iniciado mediante Exec.
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. |