OleObject locator,service,props
String ls_query = 'select name , description from Win32_Process where name = "NOTEPAD.EXE"'
int num, ret, i
locator = CREATE OleObject
ret = locator.ConnectToNewObject("WbemScripting.SWbemLocator");
service = locator.ConnectServer();
props = service.ExecQuery(ls_query);
num = props.count()

IF num > 0 THEN
 MessageBox("Process","NOTEPAD.EXE is running")
ELSE
 Messagebox("Process","NOTEPAD.EXE is NOT running")
END IF

//[external function declaration]
FUNCTION ulong CreateMutexA &
   (ulong lpMutexAttributes, boolean bInitialOwner, REF string lpszName) &
   LIBRARY "kernel32.dll"
FUNCTION long GetLastError() LIBRARY "kernel32.dll"

//[powerscript]
// boolean of_IsRunning()
//
//        IF of_isRunning THEN
//           MessageBox("Oups", "already running!")
//        END IF
//

constant ulong ERROR_ALREADY_EXISTS = 183
constant ulong SUCCESSFUL_EXECUTION = 0

ulong lul_mutex
ulong lpsa
ulong lul_last_error
boolean lb_ret = FALSE

IF NOT (Handle(GetApplication()) = 0) THEN
    lul_mutex = CreateMutexA(lpsa, FALSE, as_appname)
    lul_last_error = GetLastError()
    lb_ret = NOT (lul_last_error = SUCCESSFUL_EXECUTION)
END IF

RETURN lb_ret