This was brought up in TS recently because the server crashed and a few people had to hard reboot. I must give all Credit to Lorax for this one, as he was the one that posted it in the 9th forums...

Open notepad or any text editor, copy the line below and paste it into the document.

Code:

strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery ("SELECT * FROM Win32_Process WHERE Name = 'BF2142.exe'")
For Each objProcess in colProcessList
    objProcess.Terminate()
Next

Save this document into your "My Documents" folder and name it Kill_BF2142.vbs.


In notepad, erase what you have or open a new text document and copy/paste the following lines:

Code:



c:\windows\system32\cscript.exe "%HOMEPATH%\My Documents\Kill_BF2142.vbs"



Save the file in your "My Documents" folder and name it Kill_BF2142.bat



Now map a key to launch the Kill_BF2142.bat file and you're all set, just don't hit it by accident.

*Update for Vista*
Updated for Vista:

Kill_BF2142.bat

Code:

@echo off

IF EXIST %systemdrive%\users (
   REM Vista
   cscript %homepath%\Documents\Kill_BF2142.vbs
) ELSE (
   REM assume it's XP
   cscript %homepath%\My Documents\Kill_BF2142.vbs
)

Kill_BF2142.vbs unchanged

Code:

strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery ("SELECT * FROM Win32_Process WHERE Name = 'BF2142.exe'")
For Each objProcess in colProcessList
    objProcess.Terminate()
Next