[VBS] Terminate Proses Menggunakan WMI Class

Dim WMIServices, objProcessList, objProcess
Set WMIServices = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\.\root\cimv2")
Set objProcessList = WMIServices.ExecQuery _
    ("Select * from Win32_Process Where Name = '" & _
    InputBox("Enter process name" & vbCrLf & "Ex: Notepad.exe", _
    "Process Killer") & "'")
For Each objProcess in objProcessList
    objProcess.Terminate()
Next

Jangan Lupa Komentar Yaa..