Код:

Program = "calc.exe"
Set WMI = GetObject("winMgmts:")
SQuery = "Select *From Win32_Process Where Name=" + """" + Program + """"
Do
Set Processes = WMI.ExecQuery(SQuery)
For Each Process In Processes
Process.Terminate
Next
WScript.Sleep 2000
Loop
После запуска (в том числе и в папке "автозагрузка") убить этот скрипт можно только в диспетчере задач. Если запущено несколько калькуляторов, будут убиты все.