1.Используя ...
Dim wshShell As Object, СomLine As String
СomLine= "proga.exe"

Set wshShell = CreateObject("WScript.Shell")
wshShell.Run СomLine, 1, False '1-вид окна, True - ожидание
WshShell.AppActivate(СomLine)
WScript.Sleep 1000
WshShell.SendKeys "(Параметр)"
Set wshShell = Nothing
Можно получить PID процесса ?
2. Программа открывается в Досовском окне и выполняет действия и останавливается.
Затем чтобы продолжить дальнейшее выполнение до завершения программе надо передать параметр.
WshShell.AppActivate("СomLine")
WScript.Sleep 1000
WshShell.SendKeys "(Параметр)"
Можно ли не использовать "WScript.Sleep 1000", записывать весь текст , появляющийся на экране "WshShell.AppActivate("СomLine")" и сравнивать шаблоном( ...ввод:) и после этого применять WshShell.SendKeys "(Параметр)"?

LINUXERесли программа вами же и открывается, юзайте exec и
1. PID в свойстве ProcessID
2. общайтесь с ней через StdIn, StdOut

Что это ? Никогда не использовал.

это такая хрень ...свойства евоные : WshScriptExec
Set WshShell = CreateObject("WScript.Shell")
Set WshExec = WshShell.Exec("прагамулина")
//WshExec.ProcessID
// и т.д.
Получилось...
Dim WshExec As Object,WshShell As Object,pid,StartEXE As String
StartEXE="proga.exe > file.txt"
Set WshShell = CreateObject("WScript.Shell")
Set WshExec = wshShell.Exec(StartEXE)
pid = WshExec.ProcessID
Set WshExec = Nothing
только окно появляется. Как для WshScriptExec потавить параметр - hide ?