Bunuh Proses

Set a = GetObject("winmgmts:")
b = "Select * From Win32_Process Where Name = 'Notepad.exe'"
Set c = a.Execquery(b)
For Each d in c
d.terminate()
Next

Save dengan extensi *.vbs