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