Listing 1: CloseOutlook.vbs

Option Explicit

Dim objProcesses, objProcess

Set objProcesses = GetObject("WinMgmts:root/CIMV2").ExecQuery( _
  "SELECT * FROM Win32_Process WHERE Name='OUTLOOK.EXE'")

For Each objProcess In objProcesses
  objProcess.Terminate
Next