none
Script VBS para matar o processo RRS feed

Respostas

  • Olá,

    Veja se o script abaixo te atede:

    strComputer = "."

    Set objNetwork = CreateObject("Wscript.Network")

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

    ''' Processo que será verificado '''''''
    Set colProcesses = objWMIService.ExecQuery _
        ("Select * from Win32_Process Where Name = 'notepad.exe'")

    ''' elimina o processo definido '''
    For each Processo in ColProcesses
       Processo.Terminate()
    Next


    Faça os testes e nos retorne.

    Até mais,

    Jesiel
    • Marcado como Resposta kelton.ribeiro sexta-feira, 8 de maio de 2009 02:10
    segunda-feira, 4 de maio de 2009 15:34

Todas as Respostas

  • Olá,

    Veja se o script abaixo te atede:

    strComputer = "."

    Set objNetwork = CreateObject("Wscript.Network")

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

    ''' Processo que será verificado '''''''
    Set colProcesses = objWMIService.ExecQuery _
        ("Select * from Win32_Process Where Name = 'notepad.exe'")

    ''' elimina o processo definido '''
    For each Processo in ColProcesses
       Processo.Terminate()
    Next


    Faça os testes e nos retorne.

    Até mais,

    Jesiel
    • Marcado como Resposta kelton.ribeiro sexta-feira, 8 de maio de 2009 02:10
    segunda-feira, 4 de maio de 2009 15:34
  • Obrigado Jesiel ,

    rodou  certinho ... valeu mesmo !!!
    • Marcado como Resposta kelton.ribeiro sexta-feira, 8 de maio de 2009 02:10
    • Não Marcado como Resposta kelton.ribeiro sexta-feira, 8 de maio de 2009 02:10
    quarta-feira, 6 de maio de 2009 14:49
  • Olá,

    bacana Kelton, beleza que funcionou...

    Classifique a reposta para finalizar o Thread.

    Até mais,

    Jesiel
    quarta-feira, 6 de maio de 2009 15:06
  • Olá pessoal,

    Como faço nesse script citado, colocar uma condição para verificar se o mesmo está ativo e aguardar por exemplo 5 segundos antes de finalizá-lo?

    sexta-feira, 23 de julho de 2010 14:23
  • Olá,

     

    Já descobri aqui como fazer. Segue o script caso seja de interesse:

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

    Set colProcessList = objWMIService.ExecQuery _
    ("Select * from Win32_Process Where Name = 'notepad.exe'")

    WScript.Sleep 5000

    For Each objProcess in colProcessList
    objProcess.Terminate()
    Next

    Um abraço.

    sexta-feira, 23 de julho de 2010 18:23
  • Bom dia, no caso esse script abaixo finaliza o processo, como poderia fazer pra ele esperar o processo terminar sozinho para o script seguir pra proxima linha

    por exemplo,

    tenho uma instalação do adobepdf e em seguida tenho do java quero que o script espere terminar a instalação do adobe para iniciar a do java,

     

    grato

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

    Set colProcessList = objWMIService.ExecQuery _
    ("Select * from Win32_Process Where Name = 'notepad.exe'")

    WScript.Sleep 5000

    For Each objProcess in colProcessList
    objProcess.Terminate()
    Next

    Um abraço.

    sexta-feira, 27 de maio de 2011 14:28