none
Fechar Programa Aberto RRS feed

Respostas

  • Gustavo, quando você executa um programa ele cria um processo que pode ser visto no Task Manager, portanto, para encerrar este programa basta terminar este processo.

     

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

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

    For Each objProcess in colProcessList
        objProcess.Terminate()
    Next

     


     

    O legal é que desta maneira você também consegue encerrar programas em máquinas remotas mudando apenas o nome da máquina em: strComputer = "." em vez de "." você pode colocar o nome da máquina remota que deseja executar a tarefa.

    Uma outra solução seria o uso de outras ferramentas como no caso do PSKILL da Sysinternals e que pode ser encontrado no link abaixo.

     

    http://www.microsoft.com/technet/sysinternals/utilities/pskill.mspx

     

     

    Grande abraço.

    quinta-feira, 2 de agosto de 2007 15:39