Написать скрипт vbs для автоматического запуска сканирования

Формулировка задачи:

Добрый день,
Хочу написать скрипт для автоматического запуска сканирования (Win7):
Option Explicit
dim WshShell
set WshShell = WScript.CreateObject("Wscript.Shell")
WshShell.Run("wiaacmgr")
WshShell.SendKeys ("{Enter}")
Но запускается несколько копий приложения "New Scan".
Можно ли запустить одну копию приложения и сымитировать нажатие кнопки Scan Enter'ом?
Спасибо за советы.

Решение задачи: «Написать скрипт vbs для автоматического запуска сканирования»

textual
                            Листинг программы 
                        

                            Option Explicit
Dim WshShell,WshExec,h

Set WshShell = WScript.CreateObject("Wscript.Shell")
On error resume next
Set WshExec = WshShell.Exec("wiaacmgr")
if WshExec is nothing then
    set WshExec = WshShell.Run("wiaacmgr")
end if
h = WshShell.AppActivate(WshExec.ProcessID)
If h then WshShell.SendKeys ("{Enter}")

                        