1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
OleObject wsh
String ls_select, ls_stringprocess
long ll_pos
integer li_process_count
string ls_process_name = ';mmm.exe'
wsh = CREATE OleObject
wsh.ConnectToNewObject( "MSScriptControl.ScriptControl" )
wsh.Language="vbscript"
ls_select = ""+&
"~n"+'Function SelectApplication'+&
"~n"+' Dim ServicesSet'+&
"~n"+' Dim Items'+&
"~n"+' Set ServicesSet = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.")'+&
"~n"+' Set Items = ServicesSet.ExecQuery("Select * from Win32_Process")'+&
"~n"+' For Each Item in Items'+&
"~n"+' SelectApplication = SelectApplication & Item.Name & ";"'+&
"~n"+' Next'+&
"~n"+'End Function '
wsh.AddCode(ls_select)
ls_stringprocess = wsh.Run("SelectApplication")
ll_pos = Pos(UPPER(ls_stringprocess), UPPER(ls_process_name))
IF ll_pos > 0 THEN
// YES
ELSE
// NO
END IF
Этот код проверяет, запущен ли процесс "mmm.ехе" на компе.
Нужно добавить сюда поиск по конкретному пользователю.
Работаем через сервер. Одновременно подключается много клиентов. Нужно узнать, запустил ли конкретный пользователь эту программу.
Не могу прикрутить "Where usrename = 'Vasya'" к "Select * from Win32_Process".
