Close all IE browsers

[bend0303]

Hi,
im trying to use WMI to close all browsers.
thats my function:

Code:

Sub CloseAllBrowsers()    
    strSQL = "Select * From Win32_Process Where Name = 'iexplore.exe'"

    Set oWMIService = GetObject("winmgmts:\\.\root\cimv2")
    Set ProcColl = oWMIService.ExecQuery(strSQL)

    For Each oElem in ProcColl
        oElem.Terminate
    Next

    Set oWMIService = Nothing
End Sub

problem is that when it finish closing the browsers it perform another iteration and poping an error that oElem was not found (see attachment)

Thank you so much!

[vIns]

Hi..i was also using this approach to close the browsers. I used to get same error some times. I dont think u would get this everytime u run...

Then i started using below method which works gr8 w/o any issue.. I am not sure of your requirement. If u just need to close all IEs, try this.
SystemUtil.CloseProcessByName("iexplore.exe")

[Ankesh]

Hi,

You can use the below function. This will close any process running in task bar. All you need to do is to pass the process name.

Code:

Public Function CloseProcess(strProgramName)
   Dim objShell
    Set objShell = CreateObject("WScript.Shell")
    objShell.Run "TASKKILL /F /IM " & strProgramName
    Set objShell = Nothing
End Function

Regards,
Ankesh