问objProcess.Terminate未找到

EN

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

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

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