ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Windows [игнор отключен] [закрыт для гостей] / статус сервиса
6 сообщений из 6, страница 1 из 1
статус сервиса
    #33145618
Автор:
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автор:
Гость
помогите с решением такой задачи:

выполняется команда
Код: plaintext
sc query messenger

Если результат Running
Код: plaintext
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
        SERVICE_NAME: messenger
        TYPE               :  20   WIN32_SHARE_PROCESS
        STATE              :  4   RUNNING
                                (STOPPABLE,NOT_PAUSABLE,IGNORES_SHUTDOWN)
        WIN32_EXIT_CODE    :  0   (0x0)
        SERVICE_EXIT_CODE  :  0   (0x0)
        CHECKPOINT         : 0x0
        WAIT_HINT          : 0x0
то переменная K=0
если Stoped или Paused
Код: plaintext
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
        SERVICE_NAME: messenger
        TYPE               :  20   WIN32_SHARE_PROCESS
        STATE              :  1   STOPPED
                                (NOT_STOPPABLE,NOT_PAUSABLE,IGNORES_SHUTDOWN)
        WIN32_EXIT_CODE    :  0   (0x0)
        SERVICE_EXIT_CODE  :  0   (0x0)
        CHECKPOINT         : 0x0
        WAIT_HINT          : 0x0

тогда переменная K=1 как это можно осуществить?
...
Рейтинг: 0 / 0
01.07.2005, 16:43
| Ответить | Цитировать | Написать  
статус сервиса
    #33145950
Фотография rrrrrrrrrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rrrrrrrrrr
Участник
Что-то мне подсказывает, что анализировать вывод одной cmd-команды с помощью других - не лучшая затея :)
Я бы sc пользовался только для вывода инфы в текстовый файл, а анализ его делал бы из программы (хоть скрипт, хоть в ListBox в Дельфи грузить). Насколько я знаю, отдельным параметром состояние сервиса ни одна команда cmd не выдаст :(
Буду рад, если ошибаюсь :)
...
Рейтинг: 0 / 0
01.07.2005, 19:09
| Ответить | Цитировать | Написать  
статус сервиса
    #33146019
Фотография naPmu3aH
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
naPmu3aH
Участник
(для эстетов): Нарисовано за семь секунд на левой коленке
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colRunningServices = objWMIService.ExecQuery("Select * from Win32_Service")

For Each objService in colRunningServices
    If objService.DisplayName = "Messenger" and objService.State = "Running" Then
       Wscript.Echo "Запущен. Делай раз!"
    End if

    If objService.DisplayName = "Messenger" and objService.State = "Stopped" Then
       Wscript.Echo "Не запущен. Делай два!"
    End if
Next
--
чем дальше в лес, тем больше нас
...
Рейтинг: 0 / 0
01.07.2005, 20:09
| Ответить | Цитировать | Написать  
статус сервиса
    #33146034
Автор:
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автор:
Гость
а как тогда быть?мне нужно чтобы ранился каждый минут 5 скрипт на проверку статуса сервиса...
как тогда делать?дельфяй под рукой нема...на крайний случай васик...
ОЧЧЧЧень нужно.......
...
Рейтинг: 0 / 0
01.07.2005, 20:17
| Ответить | Цитировать | Написать  
статус сервиса
    #33146046
Фотография naPmu3aH
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
naPmu3aH
Участник
Автар жжет

сохраните ЭТО в файл с расширением VBS и запускайте каждые 5 минут из планировщика...
Ну понятно, что вместо Wscript.Echo <bla-bla-bla> нужно добавить необходимые действия.
--
чем дальше в лес, тем больше нас
...
Рейтинг: 0 / 0
01.07.2005, 20:28
| Ответить | Цитировать | Написать  
статус сервиса
    #33146058
автор:
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
автор:
Гость
торможу.......даже не вчитывался в скрипт...сорри,мэн, тем более пятница, вечер ;))
...
Рейтинг: 0 / 0
01.07.2005, 20:40
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Windows [игнор отключен] [закрыт для гостей] / статус сервиса
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=26&msg=33146058&tid=1512877]:
 0ms
get settings:
 8ms
get forum list:
 10ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 27ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 34ms
get tp. blocked users:
 1ms
others: 210ms
total:  305ms
созд. / загр.: 305ms
x
x
Закрыть


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