objWMIService := WmiService()
colProcesses:= objWMIService:ExecQuery("SELECT * FROM Win32_Process WHERE Caption = 'notepad.exe'")
For Each objProcess In colProcesses
MsgInfo(objProcess:Handle +" " +objProcess:Name)
Next
STATIC FUNCTION WMIService()
Static oWMI
Local oLocator
if oWMI == NIL
oLocator := CreateObject( "wbemScripting.SwbemLocator" )
oWMI := oLocator:ConnectServer()
endif
Return oWMI