Forums Scripts & Popups count number of processes

alias nb_process {
  .comopen process WbemScripting.SWbemLocator
  noop $com(process,ConnectServer,3, dispatch* process_connect)
  noop $com(process_connect, ExecQuery,3,string,Select * from Win32_Process where Name = $qt($1),dispatch* process_nb)
  var %n $comval(process_nb,0).result
  :error
  reseterror
  .comclose process
  .comclose process_connect
  .comclose process_nb
  return %n
}