rendered paste body/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
}
}