none
Fechar processos caso existirem 2 processos abertos RRS feed

  • Pergunta

  • Ola pessoal preciso de ajuda, preciso de um VBS Script que um processo quando forem duplicado.

    Por exemplo : Eu tenho um aplicação que é um Quiosque e quando da um erro ele abre 2 processo do iexplorer.exe, então eu preciso de um script que fique verificado se existe 2 processos do Ixplorer.exe  se exister finalizar os 2 processos, e  abra um atalho que eu criei para determinado site que o quiosque.  Pore se existir 1 iexplorer.exe não faça nada! 

    Grato! 


     


    • Editado Fábio JrModerator sexta-feira, 1 de março de 2013 11:15 Título. Anterior era muito genérico (VBScript)
    sexta-feira, 1 de março de 2013 05:32

Respostas

  • Michel,

    Tente isto:

    strComputer = "." 
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" _
        & strComputer & "\root\cimv2")
    
    Set colProcesses = objWMIService.ExecQuery("select * from win32_process where name='explorer.exe'" )
    
    if colProcesses.count > 1 then
    
    	For Each objProcess in colProcesses
    		objProcess.Terminate
    	Next
    
    	'Abrir Programa
    	set shell = CreateObject("Shell.Application")
    	shell.Open "http://www.technetbrasil.com.br"
    	
    end if

    Substitua o endereço do Technet pelo endereço da sua aplicação do quiosque.

    Ref.:

    Win32_Process class (Windows)

    http://msdn.microsoft.com/en-us/library/windows/desktop/aa394372(v=vs.85).aspx


    Fábio de Paula Junior

    • Marcado como Resposta Michel Toffolo sábado, 2 de março de 2013 05:28
    sexta-feira, 1 de março de 2013 11:12
    Moderador

Todas as Respostas

  • Michel,

    Tente isto:

    strComputer = "." 
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" _
        & strComputer & "\root\cimv2")
    
    Set colProcesses = objWMIService.ExecQuery("select * from win32_process where name='explorer.exe'" )
    
    if colProcesses.count > 1 then
    
    	For Each objProcess in colProcesses
    		objProcess.Terminate
    	Next
    
    	'Abrir Programa
    	set shell = CreateObject("Shell.Application")
    	shell.Open "http://www.technetbrasil.com.br"
    	
    end if

    Substitua o endereço do Technet pelo endereço da sua aplicação do quiosque.

    Ref.:

    Win32_Process class (Windows)

    http://msdn.microsoft.com/en-us/library/windows/desktop/aa394372(v=vs.85).aspx


    Fábio de Paula Junior

    • Marcado como Resposta Michel Toffolo sábado, 2 de março de 2013 05:28
    sexta-feira, 1 de março de 2013 11:12
    Moderador
  • Fábio, você resolveu meu problema, muito obrigado!

    Abrass

    sábado, 2 de março de 2013 05:30