objProcess.Terminate not Found

Question

Trying to kill InternetExplorer:

Sub IE_kill()

    Dim objWMI As Object, objProcess As Object, objProcesses As Object
    Set objWMI = GetObject("winmgmts://.")
    Set objProcesses = objWMI.ExecQuery( _
        "SELECT * FROM Win32_Process WHERE Name = 'iexplore.exe'")

    For Each objProcess In objProcesses
        If Not objProcess Is Nothing Then
        hh = objProcesses.Count ' 1
            objProcess.Terminate ' Here is Error Not Found
            If Err.Number <> 0 Then
            Else
                'DisplayErrorInfo
                Exit For
            End If
        End If
    Next
    Set objProcesses = Nothing: Set objWMI = Nothing


End Sub

but get sometimes error on objProcess.Terminate Not Found how to solve problem? Error catch do not help. On error resume next not work as error raise instead.

You should only get an error with OERN if your IDE is set to break on all errors. (or you put it in the wrong place) — Rory, Apr 09 '18 at 11:15
Why not simplify to `Shell "taskkill /im ""iexplorer.exe"" /f /t"`? — Chronocidal, Apr 09 '18 at 11:29

score 2 · Answer 1 · answered Apr 09 '18 at 11:23

I have tried this modification of your code (for MS Edge) and it worked about 3 times so far:

Option Explicit

Sub KillIE()

    Dim objWMI As Object, objProcess As Object, objProcesses As Object        
    Set objWMI = GetObject("winmgmts://.")        
    Set objProcesses = objWMI.ExecQuery("SELECT * FROM Win32_Process")

    For Each objProcess In objProcesses
        If Not objProcess Is Nothing Then
            If InStr(1, UCase(objProcess.Name), "EDGE") > 0 Then                    
                Debug.Print objProcess.Name
                objProcess.Terminate                    
                If Not Err.Number <> 0 Then
                    Exit For
                End If                    
            End If
        End If
    Next
End Sub

You can give it a try and check the objProcess.Name, before it gives an error. Consider replacing "EDGE" with INTERNETEXPLORER or IEXPLORER.

Gurmanjot Singh · Accepted Answer · 2018-04-09T15:25:16.540

As mentioned in one of the comments, you can use the taskkill command as shown below:

Sub IE_kill
    Dim objShell, strCommand
    strCommand = "taskkill /f /im iexplore.exe"
    Set objShell = CreateObject("wscript.shell")
    objShell.Run strCommand
    Set objShell = Nothing
End Sub

Check this answer out to know more about the taskkill

OR, if you want to stick to the wmi, you can try the following "workaround"(it will not throw the error you are currently getting-see further explanation in comments):

Dim objw, strComputer, arrPID(), intIndex
strComputer = "."
intIndex=-1
Set objw = GetObject("winmgmts://"&strComputer&"/root/cimv2")
Set objps = objw.ExecQuery("Select * from win32_process where name = 'iexplore.exe'")

for each instance in objps
    intIndex = intIndex + 1
    redim preserve arrPID(intIndex)
    arrPID(intIndex) = instance.processID        'storing all the process IDs of the processes having name = iexplore.exe
next

for each pid in arrPID
    Set objps = objw.ExecQuery("Select * from win32_process where processID = "&pid)     'getting the process with the process IDs
    for each instance in objps
        instance.terminate           'As soon as this line gets executed for the first process ID in the array, It will terminate ALL the iexplore processes. This means, for the remaining process IDs in the array, this line would not even get executed because when we try to find the process with that process ID, it wouldn't be found and hence we would not be able to enter the for-loop and tus no error is generated.
    next
next

objProcess.Terminate not Found

2 Answers2