Descrição:
É possÃvel verificar se um programa esta em execução, via scripts?
Solução:
Sim. Utilizando o objeto winmgmts e acessando as instâncias de Win32_process, é possÃvel varrer o nome de todos os processos do Windows. Com isto, basta fazer um teste pelo nome do processo desejado para saber se ele esta sendo executado.
Por exemplo:
set objService = getobject(“winmgmts:”)
for each Process in objService.InstancesOf(“Win32_process”)
  if Process.Name = “calc.exe” then
            a = 1 Â
  end if
Next if a = 1 then
      MsgBox “Calculadora já esta sendo executada!”
else
      Application.ExecuteExternalApp “calc.exe”, “”, “”, 1Â
end if
for each Process in objService.InstancesOf(“Win32_process”)
  if Process.Name = “calc.exe” then
            a = 1 Â
  end if
Next if a = 1 then
      MsgBox “Calculadora já esta sendo executada!”
else
      Application.ExecuteExternalApp “calc.exe”, “”, “”, 1Â
end if
NOTA: A aplicação em anexo foi desenvolvida no E3 versão 4.0 b225.
Anexos:
