VBS/WSH/JS

megaloman · Отправлено: **21:07, 11-09-2010** | #2

Я не знаю, как запускается и останавливается указанная Вами служба, но, ИМХО, у Вас в коде ошибки. При выполнении Вашего скрипта должна была выскочить ошибка "Не удаётся найти указанный файл". Как минимум надо писать:
script_stop = """C:\Program Files\DrWeb Enterprise Server\bin\drwcsd.exe"" stop"
И в методе Run нельзя так механически объединять запуск двух екзешников. На каждый запуск должен быть свой Run. Вот пример, он работает. Увы, указанной Вами службы у меня нет, попробовать не на чем.

Код:

Set WS = CreateObject("WScript.Shell")
Prg = """C:\Program Files\WinAmp\winamp.exe"" E:\Audio\Барды\Атланты.mp3"
WS.Run Prg, 1, True

А вот так - низззя
Prg = """C:\Program Files\WinAmp\winamp.exe E:\Audio\Барды\Атланты.mp3"""

zavoruev · Отправлено: **11:53, 13-09-2010** | #3

Спасибо за подсказку! Но хотелось бы знать, как сделать паузу при выполнении данного скрипта??? Не понятно! Мне необходимо чтобы сначало выполнялся скрипт на остановку службы, и только после выполнения данного скрипта (остановка службы) осуществлялся запуск второго скрипта (запуск службы)

Код:

set WSHShell = CreateObject("WScript.Shell")
script_stop = """C:\Program Files\DrWeb Enterprise Server\bin\drwcsd.exe"" stop"
script_start = """C:\Program Files\DrWeb Enterprise Server\bin\drwcsd.exe"" start"
WshShell.Run script_stop,  0, True --- что тут должно быть
WshShell.Run script_start,  0, True  ---- что тут должно быть

megaloman · Отправлено: **13:54, 13-09-2010** | #4

Можно сделать паузу, но вам не надо. Третий аргумент Run =True. Он отвечает за то, что скрипт дождется окончания Run а затем продолжит выполнение следующего Run.
Пауза в скрипте вообще-то делается
WScript.Sleep 60000*0.2
Здесь пауза - 0.2 минуты

zavoruev · Отправлено: **14:33, 13-09-2010** | #5

Теперь все понятно, спасибо большое!))

Только вот теперь одно НО. После выполнения первого скрипта на остановку службы появляется фоновое окно с просьбой нажать кнопу ОК, и если кнопка нажата не будет, второй скрипт не будет выполнен)!!! Как теперь это все победить!

zavoruev · Отправлено: **14:08, 14-09-2010** | #6

megaloman,
Проблема не решилась! Необходимо сделать так, что бы при появлении фонового сообщения с "Нажать кнопу ОК", втрой скрипт тоже выполнялся или автоматом прописать нажатие на кнопку ОК. А получается так, что если кнопку не нажму, втрой скрипт выполнятся не будет!!! Жду помощи)

megaloman · Отправлено: **14:08, 14-09-2010** | #7

Плохо, не на чем проверить. Вот рабочий пример:

Код:

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 для нажатия ОК

zavoruev · Отправлено: **15:12, 14-09-2010** | #8

Спасибо огромное)))) буду пробывать!