Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Windows [игнор отключен] [закрыт для гостей] / Отслеживание процесса / 8 сообщений из 8, страница 1 из 1
22.05.2007, 10:55:28
    #34541539
Vit@l
Vit@l
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отслеживание процесса
Добрый день коллеги!! Наверняка каждый из Вас сталкивался с задачей "If"-"Else". Проблема заключается в следующем. Мне нужно при отсутствии определенного процесса запускать иной процесс, в случае если этот процесс имееться -ничего не делать.

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

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


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


Бесполезно рассказывать о высоком моральном облике коллектива человеку, имеющему доступ к логам прокси-сервера этого коллектива…
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2007, 11:15:27
    #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:21:20
    #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, 15:29:09
    #34542660
Anatoly Podgoretsky
Anatoly Podgoretsky
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отслеживание процесса
Освой булеву алгебру

if else = if not then
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2007, 15:37:08
    #34542704
trubb
trubb
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отслеживание процесса
' " - на вот это внимание обрати...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2007, 15:40:05
    #34542711
miksoft
miksoft
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отслеживание процесса
Vit@lМне нужно при отсутствии определенного процесса запускать иной процесс, в случае если этот процесс имееться -ничего не делать.Это нужно делать периодически? Если да, то nnCron умеет проверять наличие процесса.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2007, 19:31: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
| Ответить | Цитировать | Написать  
04.06.2007, 12:07:43
    #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
| Ответить | Цитировать | Написать  
Форумы / Windows [игнор отключен] [закрыт для гостей] / Отслеживание процесса / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 297ms
Закрыть
start [/forum/topic.php?fid=26&tablet=1&tid=1507236]:
 0ms
get settings:
 8ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 40ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 28ms
get tp. blocked users:
 1ms
others: 198ms
total:  297ms
x
x
Закрыть


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