/EndProcess {
  set %program $nopath($$sfile(*.exe,Find exe to close))
  comopen Locator WbemScripting.SWbemLocator
  if ($comerr) { echo comopen failed | halt }
  echo Com: $com(Locator,ConnectServer,3, dispatch* Services)
  echo Result: $com(Locator).result
  comclose Locator
  if $com(Services) {
    echo com: $com(Services, ExecQuery,3,string,SELECT Name FROM Win32_Process WHERE Name = $(%program,2) $+ ,dispatch* Instances)
    echo result: $com(Services).result
    comclose Services
  }
  if $com(Instances) {
    echo Com: $com(Instances,Count,3)
    var %c = $com(Instances).result, %i = 1
    while (%i <= %c) {
      echo Process: $comval(Instances,%i, Terminate)
      inc %i
    }
    comclose instances
  }
}