Public Sub KillProcess(ByVal processName As String)
 
'Autor: Desconocido
 
'---CAPTURA DE ERROR---
On Error GoTo ErrHandler
'----------------------
'---DECLARACIÓN DE VARIABLES---
    Dim oWMI
    Dim ret
    Dim sService
    Dim oWMIServices
    Dim oWMIService
    Dim oServices
    Dim oService
    Dim servicename
'------------------------------
 
'--------------------SE OBTIENEN OBJETOS--------------------
    Set oWMI = GetObject("winmgmts:")
    Set oServices = oWMI.InstancesOf("win32_process")
'-----------------------------------------------------------
 
'----------------------BUSCA EL PROCESO---------------------
    For Each oService In oServices
 
        servicename = LCase(Trim(CStr(oService.Name) & ""))
 
        If InStr(1, servicename, _
            LCase(processName), vbTextCompare) > 0 Then
            ret = oService.Terminate
        End If
 
    Next
'-----------------------------------------------------------
 
'---------SE HACE NADA---------
    Set oServices = Nothing
    Set oWMI = Nothing
'------------------------------
 
'---CAPTURA DE ERROR----
ErrHandler:
    Err.Clear
'-----------------------
End Sub