Плохо, не на чем проверить. Вот рабочий пример:
Код:
Set WS = CreateObject("WScript.Shell")
Set theProga = WS.Exec("""C:\Program Files\WinAmp\WinAmp.exe"" ""E:\Audio\Mud\1974 - Mud Rock I\01 Rocket.mp3""") ' Запустим программу
WS.AppActivate (theProga.ProcessID) ' Активируем окно запущенного приложения
WScript.Sleep (3000) ' Для отладки, чтобы успеть посмотреть, как переключается
WS.SendKeys ("%{F4}") ' Пошлём Alt F4
Теперь идея (работоспособность написанного ниже не проверял):
Код:
set WS = CreateObject("WScript.Shell")
Set theProga = WS.Exec("""C:\Program Files\DrWeb Enterprise Server\bin\drwcsd.exe"" stop")
WScript.Sleep (20000) ' Дадим время на работу екзешника (здесь 20 сек) - придержим выполнение скрипта
WS.AppActivate (theProga.ProcessID) ' Активируем окно запущенного приложения
WS.SendKeys ("{ENTER}") ' Пошлём ENTER для нажатия ОК
Set theProga = WS.Exec("""C:\Program Files\DrWeb Enterprise Server\bin\drwcsd.exe"" start")
WScript.Sleep (20000) ' Дадим время на работу екзешника (здесь 20 сек) - придержим выполнение скрипта
WS.AppActivate (theProga.ProcessID) ' Активируем окно запущенного приложения
WS.SendKeys ("{ENTER}") ' Пошлём ENTER для нажатия ОК
