[VBS] Membunuh Proses Menggunakan Object WMI

Crowja-Coderz

' Bunuh proses menggunakan WMI
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

'2010 Crowja

Jangan Lupa Komentar Yaa..