none
Script para monitorar status de um processo RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar
    Boa tarde,
                    preciso monitorar uma aplicação quanto ao seu status de execução. Caso um determinado processo(que é responsável pela aplicação) não esteja em execução, será necessário acionar via e-mail o administrador do sistema. Já verifiquei em outro tópico que é possível monitorar a execução de um serviço de sistema, entretanto, esta aplicação não é registrada como serviço. Logo, o script não se aplica.

    Qualquer ajuda será muito bem vinda!
    Desde já agradeço!

    Atenciosamente.
    segunda-feira, 5 de fevereiro de 2007 18:57
    |

Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Rafael,

        Imagino que o script que monitora serviço deva ser bem parecido com este, o que muda é a classe WMI.

        Neste exemplo eu verifico se o processo winword.exe (MS Word) está ativo.

    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

    Set colWMI = objWMIService.ExecQuery _
        ("Select name from Win32_Process WHERE name='winword.exe'")

    i=0
    For Each objWMI in colWMI
     i=i+1
    Next

    if i=0 then
     wscript.echo "'Coloque aqui o envio do e-mail porque nao existe o processo"
    end if

    terça-feira, 6 de fevereiro de 2007 12:55
    |
    Moderador

Todas as Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Rafael,

        Imagino que o script que monitora serviço deva ser bem parecido com este, o que muda é a classe WMI.

        Neste exemplo eu verifico se o processo winword.exe (MS Word) está ativo.

    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

    Set colWMI = objWMIService.ExecQuery _
        ("Select name from Win32_Process WHERE name='winword.exe'")

    i=0
    For Each objWMI in colWMI
     i=i+1
    Next

    if i=0 then
     wscript.echo "'Coloque aqui o envio do e-mail porque nao existe o processo"
    end if

    terça-feira, 6 de fevereiro de 2007 12:55
    |
    Moderador
  • Question
    Entrar para Votar
    0
    Entrar para Votar
    Fábio,
             o script funcionou perfeitamente! Era exatamente isso que eu estava precisando!

    Mais uma vez agradeço!

    Abraço!
    terça-feira, 6 de fevereiro de 2007 14:22
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar
    Só complementando...

    fiz uma rotina para enviar emails e publiquei no meu blog um tempo atrás. Só adaptar...

    http://viniciuscanto.blogspot.com/2006/07/how-to-monitor-when-user-pugs-usb.html

    []s,

    Vinicius
    quarta-feira, 7 de fevereiro de 2007 10:41
    |
    Moderador
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    bom dia!!!

    mano desculpa até esta falando isso... mais tipo se deu certo classifique para o forum ficar mais agil...

    domingo, 4 de março de 2007 16:40
    |