Закрытие макросом - определенной программы - VBA

Формулировка задачи:

Доброе утро. Помогите решить проблему. У меня есть макрос, который ищет в Диспетчере Задач определенный процесс - например "Калькулятор" (calc.exe). Если эта программа запущена, то макрос запущенный по щелчке на кнопку - должен ее закрыть.

                    Листинг программы
                
 
                        
                          
                    
Option Explicit
Sub Макрос1()
 
Dim objWMIService, objProcess, colProcess
Dim strComputer, strProcessKill
strComputer = "."
strProcessKill = "'calc.exe'"
 
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
 
Set colProcess = objWMIService.ExecQuery("Select * from Win32_Process Where Name = " & strProcessKill)
For Each objProcess In colProcess
objProcess.Terminate()
Next
WScript.Echo "Just killed process " & strProcessKill & " on " & strComputer
WScript.Quit
 
End Sub

Но что-то в макросе не работает. В чем здесь может быть ошибка ?

Решение задачи: «Закрытие макросом - определенной программы»

textual
                            Листинг программы 
                        
    Set objShell = CreateObject("Wscript.Shell")
    objShell.Run ("taskkill /f /im iexplore.exe"), 0, True '0 = hide cmd, True = wait until killing ends