comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Monitoreador de procesos by masterchop

  • 0 Respuestas
  • 1411 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
« en: Febrero 24, 2010, 03:54:57 pm »
Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
' 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 »

 

¿Te gustó el post? COMPARTILO!