process terminating script

 Option Explicit
 Dim objWMIService, objProcess, colProcess, objShell
 Dim strComputer, strProcessKill, intReturn
 strComputer = "."
 strProcessKill = "'IEXPLORE.EXE'" 'change this to reflect process you wish to terminate inclue ' '
 Set objShell = CreateObject("Wscript.Shell")
 Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
 Set colProcess = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = " & strProcessKill )
 If colProcess.Count = 0 Then
 objShell.Popup strProcessKill & " is not currently running!",0,"Process isn't running"", 0 + 64 
 WScript.Quit
 else
 intReturn = objShell.Popup("Windows will now terminate all " & strProcessKill&"'s " & VbNewLine & "Do you wish to continue?" ,0,"Windows Process Termination", 1 + 32 )
 If intReturn = 2 Then 
 objShell.Popup strProcessKill & " not Terminated",0,"Process Not Terminated", 0 + 64 
 else
 For Each objProcess in colProcess
 objProcess.Terminate()
 Next
 objShell.Popup strProcessKill & " Terminated",0,"Process Terminated", 0 + 64 
 End If 
 End If
 WScript.Quit 
 
 

Option Explicit
 Dim objWMIService, objProcess, colProcess, objShell
 Dim strComputer, strProcessKill, intReturn
 strComputer = "."
 strProcessKill = "'IEXPLORE.EXE'" 'change this to reflect process you wish to terminate inclue ' '
 Set objShell = CreateObject("Wscript.Shell")
 Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
 Set colProcess = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = " & strProcessKill )
 If colProcess.Count = 0 Then
     objShell.Popup strProcessKill & " is not currently running!",0,"Process isn't running", 0 + 64 
     WScript.Quit
 Else
     intReturn = objShell.Popup("Windows will now terminate all " & strProcessKill&"'s " & VbNewLine & "Do you wish to continue?" ,0,"Windows Process Termination", 1 + 32 )
     If intReturn = 2 Then 
         objShell.Popup strProcessKill & " not Terminated",0,"Process Not Terminated", 0 + 64 
     Else
         For Each objProcess in colProcess
             objProcess.Terminate()
         Next
         objShell.Popup strProcessKill & " Terminated",0,"Process Terminated", 0 + 64 
     End If 
 End If
 WScript.Quit