OleObject wsh 
integer li_rc 
String ls_select,ls_stringprocess
wsh = CREATE OleObject 
li_rc = wsh.ConnectToNewObject( "MSScriptControl.ScriptControl" ) 
wsh.Language="vbscript";

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

wsh.AddCode(st_listprocess.Text);
ls_stringprocess = wsh.Run("SelectProcess")

do while pos(ls_stringprocess,";", 1 ) >  0  
 ls_stringprocess = replace(ls_stringprocess,pos(ls_stringprocess,";", 1 ), 1 ,char( 13 ))	
loop
messagebox("список", ls_stringprocess)