OleObject wsh 
String 	ls_select, ls_stringprocess

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 & " " & Item.Handle & ";"'+& 
"~n"+' Next'+& 
"~n"+'End Function	 '

wsh.AddCode(ls_select)
ls_stringprocess = wsh.Run("SelectApplication")

RETURN ls_stringprocess

OleObject wsh 
String 	ls_select_start, ls_select_end, ls_where_hndls, ls_or = ' OR'
integer	li_i

ls_where_hndls = 'where'

FOR li_i = 1 TO UpperBound(al_hndls)
	IF li_i = UpperBound(al_hndls) THEN
		ls_where_hndls += ' Handle = ' + string(al_hndls[li_i])
	ELSE
		ls_where_hndls += ' Handle = ' + string(al_hndls[li_i]) + ls_or
	END IF
NEXT

ls_select_start = 	'function terminateProgram() ~n ' + &
	 			'strComputer = "." ~n ' + &
 				'Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") ~n ' + &
 				'Set colItems = objWMIService.ExecQuery("Select * from Win32_Process '

ls_select_end = 	'") ~n ' + &
 				'For Each objItem in colItems ~n ' + &
 				'     objItem.Terminate ~n ' + &
 				'Next ~n ' + &
 				'end function ~n ' 

wsh = CREATE OleObject
wsh.ConnectToNewObject( "MSScriptControl.ScriptControl" )
wsh.language = "vbscript"
wsh.AddCode(ls_select_start + ls_where_hndls + ls_select_end)
			 
wsh.executestatement('terminateProgram()')

wsh.DisconnectObject()

DESTROY wsh