Monitoreador de procesos by masterchop

  • 0 Respuestas
  • 2038 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado ProcessKill

  • *
  • Underc0der
  • Mensajes: 154
  • Actividad:
    0%
  • Reputación 0
  • Arriba los hackers de Argentina!
    • Ver Perfil
    • Email

Monitoreador de procesos by masterchop

  • en: Febrero 24, 2010, 03:54:57 pm
Código: [Seleccionar]
' Monitor Process Creation
Dim Proceso

Proceso = "Proceso.exe"

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colMonitoredProcesses = objWMIService. _       
    ExecNotificationQuery("select * from __instancecreationevent " _
        & " within 1 where TargetInstance isa 'Win32_Process'")
i = 0

Do While i = 0
   Set objLatestProcess = colMonitoredProcesses.NextEvent
   If objLatestProcess.TargetInstance.Name = Proceso Then
    set WshShell = CreateObject("wscript.Shell")
   WshShell.Run "taskkill /F /IM "&objLatestProcess.TargetInstance.Name&"", 0, true
   End if
Loop
« Última modificación: Julio 21, 2014, 07:20:22 pm por Expermicid »