public function long uf_kill_findstr ()

Integer  li_retour
Long     ll_i
String   ls_code
OleObject mssc


mssc = CREATE OleObject
li_retour = mssc.ConnectToNewObject( "MSScriptControl.ScriptControl" )
mssc.language = "VBScript"

ls_code =   "function killfindstr() ~r~n" + &
        "Set locator = CreateObject(~"WbemScripting.SWbemLocator~")~r~n" + &
        "Set service = locator.ConnectServer()~r~n" + &
        "Set props = service.ExecQuery" + &
         "(~"select name, description from Win32_Process" + &
        " where name = 'findstr.exe'~")~r~n" + &
        "num = props.count~r~n" + &
        "for each findstr in props~r~n " + &
        "   findstr.terminate ~r~n " + &
        "next~r~n" + &
        "killfindstr = num~r~n" + &
        "end function"

mssc.AddCode(ls_code)             
ll_i = mssc.Eval("killfindstr()")

// Afficher le nombre de PROCESS supprimé: 
messagebox("Findstr killed", string(i))

mssc.DisconnectObject()


DESTROY mssc

return 1