Тема: VBScript: слежение за существованием процесса
Пример отслеживает создание процесса "notepad.exe" и выдаёт сообщение о его существовании (PID процесса). Пример демонстрирует использование объекта SWbemRefresher.
Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
Set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
Set colItems = objRefresher.AddEnum(objService, "Win32_Process").objectSet
While True
objRefresher.Refresh
For Each objItem in colItems
If InStr(objItem.ExecutablePath, "notepad.exe") Then
Wscript.Echo "notepad.exe PID " & objItem.ProcessId
End If
Next
Wscript.Sleep 1000
Wend
В названии ветки всегда должен быть указан язык программирования или среда исполнения скрипта, если это возможно.