[VBS] Mencegah suatu proccess berjalan

Option Explicit
Dim WMIService,colProcesses,objLatestProcess,i
Set WMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colProcesses = WMIService. _
  ExecNotificationQuery("select * from __instancecreationevent " _ 
        & " within 1 where TargetInstance isa 'Win32_Process'")
Do While i = 0
    Set objLatestProcess = colProcesses.NextEvent
    If objLatestProcess.TargetInstance.Name = "cmd.exe" Then
        objLatestProcess.TargetInstance.Terminate
    End If
Loop

Jangan Lupa Komentar Yaa..