|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - Запуск двух программ |
|
VBS/WSH/JS - Запуск двух программ
|
Пользователь Сообщения: 93 |
Профиль | Отправить PM | Цитировать
Есть необходимость автоматизировать запуск двух программ, причем вторая должна запускаться только после того как запустится первая (ну на крайний случай достаточно задержки в 30 секунд).
Вопрос осложняется еще тем, что первая находится по пути C:\Users\CurentUser\AppData\Local\Program\Program.exe, т.е. путь зависит от того под каким пользователем зашли в систему. А вторая вовсе на другом диске. Скажем D:\Program\Program.exe Прошу помочь разбирающихся в VBS людей. |
|
Отправлено: 21:36, 14-08-2018 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Цитата pzh2393:
Option Explicit Dim objFSO Dim strProgramm01 Dim strProgramm02 Dim lngProcessId Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") strProgramm01 = objFSO.BuildPath(WScript.CreateObject("Shell.Application").NameSpace("shell:Local AppData").self.Path, "Program\Program01.exe") strProgramm02 = "D:\Program\Program02.exe" If objFSO.FileExists(strProgramm01) Then If objFSO.FileExists(strProgramm02) Then With WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer(".", "root\cimv2").Get("Win32_Process") If .Create(strProgramm01, objFSO.GetParentFolderName(strProgramm01), Nothing, lngProcessId) = 0 Then WScript.Echo "Execute [" & strProgramm01 & "] successfully, process id is [" & CStr(lngProcessId) & "]." If .Create(strProgramm02, objFSO.GetParentFolderName(strProgramm02), Nothing, lngProcessId) = 0 Then WScript.Echo "Execute [" & strProgramm02 & "] successfully, process id is [" & CStr(lngProcessId) & "]." Else WScript.Echo "Can't execute file [" & strProgramm02 & "]." WScript.Quit 4 End If Else WScript.Echo "Can't execute file [" & strProgramm01 & "]." WScript.Quit 3 End If End With Else WScript.Echo "Can't find file [" & strProgramm02 & "]." WScript.Quit 2 End If Else WScript.Echo "Can't find file [" & strProgramm01 & "]." WScript.Quit 1 End If Set objFSO = Nothing WScript.Quit 0 |
|
Отправлено: 22:24, 14-08-2018 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Пользователь Сообщения: 93
|
Профиль | Отправить PM | Цитировать Цитата Iska:
Пы.Сы. А как убрать сообщения об идентификаторах процессов? |
|
Отправлено: 08:55, 15-08-2018 | #3 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Цитата pzh2393:
P.S. Не комментируйте все WScript.Echo подряд, иначе при банальном отсутствии файла можно будет долго гадать, почему вдруг «не работает». |
|
Отправлено: 09:07, 15-08-2018 | #4 |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Как запретить запуск двух и более копий 1С8 | ragnar40 | Хочу все знать | 33 | 11-05-2018 14:02 | |
Debian/Ubuntu - X multi head и запуск двух WM | Dan Swano | Общий по Linux | 0 | 20-11-2008 15:21 | |
Debian/Ubuntu - Запуск программ с привилегиями | Аlchemist | Общий по Linux | 8 | 01-08-2008 19:09 | |
Запуск в WPI двух команд одновременно | ChVL | Автоматическая установка приложений | 0 | 05-12-2007 08:36 | |
Запуск программ | Guest | Microsoft Windows 95/98/Me (архив) | 2 | 04-03-2004 21:10 |
|