ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Windows [игнор отключен] [закрыт для гостей] / Отслеживание процесса
8 сообщений из 8, страница 1 из 1
Отслеживание процесса
    #34541539
Vit@l
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vit@l
Участник
Добрый день коллеги!! Наверняка каждый из Вас сталкивался с задачей "If"-"Else". Проблема заключается в следующем. Мне нужно при отсутствии определенного процесса запускать иной процесс, в случае если этот процесс имееться -ничего не делать.

Это выглядет где-то так :))

Если процесс 1 запущен,
То ничего не делать
Иначе
Запускаем процесс 2


Как все это оформить в cmd файл либо в VBS/


Бесполезно рассказывать о высоком моральном облике коллектива человеку, имеющему доступ к логам прокси-сервера этого коллектива…
...
Рейтинг: 0 / 0
22.05.2007, 10:55:28
| Ответить | Цитировать | Написать  
Отслеживание процесса
    #34541590
igorek04
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
igorek04
Участник
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
Set colServices = objWMIService.ExecQuery _
("SELECT * FROM Win32_Process WHERE Name = 'excel.exe'")
If colServices.Count > 0 Then
Wscript.Echo "Запущен"
Set oShell = CreateObject("WScript.Shell")
oShell.run("calc")
Else
Wscript.Echo "Не Запущен "
End If
...
Рейтинг: 0 / 0
22.05.2007, 11:15:27
| Ответить | Цитировать | Написать  
Отслеживание процесса
    #34541609
Vit@l
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vit@l
Участник
igorek04Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
Set colServices = objWMIService.ExecQuery _
("SELECT * FROM Win32_Process WHERE Name = 'excel.exe'")
If colServices.Count > 0 Then
Wscript.Echo "Запущен"
Set oShell = CreateObject("WScript.Shell")
oShell.run("calc")
Else
Wscript.Echo "Не Запущен "
End If

Супер!!! Спасибо!! А еслли вместо "calc" нужно запустить
"C:\Program Files\Citrix\ICA Client\pn.exe" /APP "MERCURY"
..Пробовал подставить oShell.run("_ВОТ_СЮДА"), но к сожалению не получилось :)
К сожалению сценарии писать не умею :((
...
Рейтинг: 0 / 0
22.05.2007, 11:21:20
| Ответить | Цитировать | Написать  
Отслеживание процесса
    #34542660
Фотография Anatoly Podgoretsky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Anatoly Podgoretsky
Участник
Освой булеву алгебру

if else = if not then
...
Рейтинг: 0 / 0
22.05.2007, 15:29:09
| Ответить | Цитировать | Написать  
Отслеживание процесса
    #34542704
Фотография trubb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
trubb
Участник
' " - на вот это внимание обрати...
...
Рейтинг: 0 / 0
22.05.2007, 15:37:08
| Ответить | Цитировать | Написать  
Отслеживание процесса
    #34542711
miksoft
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
miksoft
Участник
Vit@lМне нужно при отсутствии определенного процесса запускать иной процесс, в случае если этот процесс имееться -ничего не делать.Это нужно делать периодически? Если да, то nnCron умеет проверять наличие процесса.
...
Рейтинг: 0 / 0
22.05.2007, 15:40:05
| Ответить | Цитировать | Написать  
Отслеживание процесса
    #34543619
Vit@l
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vit@l
Участник
Получилось!! Спасибо всем за поддержку

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
Set colServices = objWMIService.ExecQuery _
("SELECT * FROM Win32_Process WHERE Name = 'excel.exe'")
If colServices.Count =  0  Then
    dim runthis
    dim runhis_two
    runthis = "C:\Program Files\Citrix\ICA Client\pn.exe"
    runhis_two=" MERCURY"
    Set WshShell = CreateObject("WScript.Shell")
    Set  Res = WshShell.Exec(runthis & " /APP" & runhis_two)
Else
   
End If


Бесполезно рассказывать о высоком моральном облике коллектива человеку, имеющему доступ к логам прокси-сервера этого коллектива…
...
Рейтинг: 0 / 0
22.05.2007, 19:31:05
| Ответить | Цитировать | Написать  
Отслеживание процесса
    #34571593
Vit@l
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vit@l
Участник
Получилось, да не очень на Win2K не хочет он выполняться, хотя уже обновил WSH до версии 5.6
Вот что получается при выполнении данного скирипта.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
Set colServices = objWMIService.ExecQuery _
("SELECT * FROM Win32_Process WHERE Name = 'AutoDis.exe'")
If colServices.Count =  0  Then
    dim runthis
    dim runhis_two
    runthis = "C:\WINNT\system32\Ica PassThrough\pn.exe"
    runhis_two=" sinhro"
    Set WshShell = CreateObject("WScript.Shell")
    Set  Res = WshShell.Exec(runthis & " /APP" & runhis_two)
Else
   
End If

C:\WINNT\Scripts>autoexchange.vbs
Microsoft (R) Windows Script Host Version 5.6
Copyright (C) Microsoft Corporation 1996-2001. All rights reserved.

C:\WINNT\Scripts\AutoExchange.vbs(10, 5) Ошибка выполнения Microsoft VBScript: О
бъект не поддерживает это свойство или метод: 'WshShell.Exec'


Бесполезно рассказывать о высоком моральном облике коллектива человеку, имеющему доступ к логам прокси-сервера этого коллектива…
...
Рейтинг: 0 / 0
04.06.2007, 12:07:43
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Windows [игнор отключен] [закрыт для гостей] / Отслеживание процесса
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=26&msg=34542704&tid=1507236]:
 0ms
get settings:
 7ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 35ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 36ms
get tp. blocked users:
 1ms
others: 203ms
total:  314ms
созд. / загр.: 314ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]