Как проверить только свои запущенные процессы на сервере ?

Вторник, 13 Января 2015 г. 11:50 + в цитатник

День добрый.
Есть необходимость проверить запущен ли какой либо процесс на сервере. В моем случае это Lotus Notes.
Если так проверять на локальной машине, то вопросов нет. Если же этим способом проверять на сервере, то подтягиваются все процессы одного приложения. Подскажите выход. Спасибо.

'Проверка, запущен ли Lotus Notes
Dim wmiObj, proCollection, scrShell
Set wmiObj = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set proCollection = wmiObj.ExecQuery("Select * from Win32_Process Where Name = 'nlnotes.exe'")

If proCollection.Count = 0 Then 'Проверка на запуск Lotus
    MsgBox "Lotus Notes не запущен, просьба запустить."
  Exit Sub
End if