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, "Press any key") <>  0  Then Exit Do
     End If
     WScript.Sleep  100 
Loop

oExec.StdIn.Write VbCrLf

Do While oExec.Status <>  1 
     WScript.Sleep  100 
Loop
[JScript] 
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("Press any key") != - 1 )
               break;
     }
     WScript.Sleep( 100 );
}

oExec.StdIn.Write("\n");

while (oExec.Status !=  1 )
     WScript.Sleep( 100 );