нужен скрипт, проверяющий, запущено ли приложение, на VBScript

[daniil_im]

В общем, нужен скрипт проверяющий запущено ли приложение, например блокнот, в системе или не запущено. С использованием метода Appactivate(<имя окна приложения>) объекта wscript.shell

[Iska]

Option Explicit

If WScript.CreateObject("WScript.Shell").AppActivate("Блокнот") Then
WScript.Echo "Блокнот запущен."
Else
WScript.Echo "Блокнот не запущен."
End If

WScript.Quit 0

Объясните преподавателю, что данный метод определения устарел с момента появления Wbem.