Prevent a Process from Running

2009. 10. 14. 02:26

Prevent a Process from Running

2009. 10. 14. 02:26 in 3. Implementation/VB / Java Script

Temporary event consumer that terminates any new instances of Notepad.exe as soon as those new instances are created.

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 = "notepad.exe" Then
        objLatestProcess.TargetInstance.Terminate
    End If
Loop

출처 : Microsoft Script Center