Закрыть экземпляр Wscript.exe после выполнения скрипта

CONST PATH_TO_OUTLOOK = "C:\Program Files\Microsoft Office\Office14\OUTLOOK.EXE"
CONST SHOW_MAXIMIZED = 3 
CONST MINIMIZE = 1 
DIM shell, outlook 
SET shell = WScript.CreateObject("WScript.Shell") 
 
ON ERROR RESUME NEXT 
SET outlook = WScript.CreateObject("Outlook.Application") 
WScript.Sleep(100) 
outlook.ActiveExplorer.WindowState = SHOW_MAXIMIZED 
 
WHILE Err.Number <> 0 Err.Clear 
WScript.Sleep(100)
SET outlook = NOTHING 
SET outlook = WScript.CreateObject("Outlook.Application") 
outlook.ActiveExplorer.WindowState = MINIMIZE 
WEND 
 
ON ERROR GOTO 0 
SET outlook = NOTHING 
SET shell = NOTHING
 
WScript.Quit

CONST PATH_TO_OUTLOOK = "C:\Program Files\Microsoft Office\Office14\OUTLOOK.EXE"
 
SET shell = WScript.CreateObject("WScript.Shell")
shell.Run PATH_TO_OUTLOOK, 2, false

SET outlook = WScript.CreateObject("Outlook.Application")
 
ON ERROR RESUME NEXT 
Do
  Err.Clear 
  WScript.Sleep(100)
  outlook.ActiveExplorer.WindowState = 1 'MINIMIZE 
Loop While Err.Number <> 0

Option Explicit
dim WshShell
dim OLObj 
set WshShell = WScript.CreateObject("Wscript.Shell") 
 ' Открываем Outlook. Обратите внимание, что несмотря на параметры запуска он зараза откроется
 ' в обычном окне. Путь к файлу прописывать не надо, винда типа сама знает, где расположен Outlook.
WshShell.Run "OUTLOOK.EXE", 2, false 
 ' чтобы свернуть его в трей делаем паузу в 10 сек
WScript.Sleep(10000)
Set OLObj = GetObject(,"Outlook.Application")
 ' активируем окно 
OLObj.ActiveExplorer.Activate
 ' посылаем команду свернуть
OLObj.ActiveExplorer.WindowState = 1
 ' то что Outlook сразу не сворачивается в трей - это может и к лучшему.
 ' я где то читал, что если его сразу запустить в трей, он не проверяет почту