none
VBS para matar vários processos de uma vez RRS feed

  • Pergunta

  • Olá,

    Pessoal estava precisando de um VBS que matasse vários processos, comecei a montar um pequeno Frankenstein mas não sei o porque não esta funcionando, não mata os processos.

    Peço uma ajuda de vocês, por-favor.

    Segue o código:

    strComputer = "."

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

    Dim Exec, Execs
    ReDim Execs(0)

    Function AddExecs(v)
      If Execs(0) = "" Then
            Execs(UBound(Execs)) = v
      Else
            ReDim Preserve Execs(UBound(Execs)+1)
            Execs(UBound(Execs)) = v
      End If
    End Function

    AddExecs("Microsoft.Photos.exe")
    AddExecs("GoogleCrashHandler64.exe")
    AddExecs("GoogleCrashHandler.exe")
    AddExecs("igfxtray.exe")
    AddExecs("jusched.exe")

    For Each Exec In Execs
            WScript.Echo "value:" & Exec
            Call Mate
    Next

    Sub Mate()
                    ' Processo que será verificado
                    Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process Where Name =" & Exec)
                    ' elimina o processo definido
                    For each Processo in ColProcesses
                        Processo.Terminate()
                    Next
    End Sub

    Desde já muito obrigado.

    segunda-feira, 27 de agosto de 2018 20:13

Todas as Respostas

  • Luciano, boa noite

    eu não saberia como te ajudar com um script .vbs. Mas se for uma alternativa usar powershell, segue um código de exemplo:

    $processos = "Microsoft.Photos.exe","GoogleCrashHandler64.exe","GoogleCrashHandler.exe","igfxtray.exe","jusched.exe"
    $processos | ForEach-Object {Stop-Process $_ -Force}

    Abraços!!

    segunda-feira, 27 de agosto de 2018 21:51
  • Obrigado Fernando,

    Mas para o meu caso, queria entender o porque do meu script não estar funcionando.

    Att.

    Luciano L Medeiros

    sexta-feira, 31 de agosto de 2018 19:27
  • Luciano, 

    seu script já está funcionando.. só acrescentei um detalhe. Repare:

    AddExecs("'Microsoft.Photos.exe'")
    AddExecs("'GoogleCrashHandler64.exe'")
    AddExecs("'GoogleCrashHandler.exe'")
    AddExecs("'igfxtray.exe'")
    AddExecs("'jusched.exe'")

    Alem das aspas duplas, coloquei aspas simples. 

    Faça o teste.

    Abraços!

    sábado, 1 de setembro de 2018 23:59