A 'kill process(es)' vbscript routine

				
'**************************************
' Name: A 'kill process(es)' vbscript routine
' Description:Ever wanted to use a batch file (menu program -- DOS)) to execute a *.vbs file to start/stop a process or processes. Well, had a couple of minutes on my hands, and I thought I'd share this with you. It has the batch file code and the vbs code included. Have fun...:)
' By: Steven Jacobs
'
'This code is copyrighted and has' limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=9134&lngWId=4'for details.'**************************************

'Batch Menu Code:
@echo off
:TOP
cls
echo Process Application Menu
echo -------------------------------
echo.
echo 1. Start Process
echo 2. Stop Process
echo 3. Notepad
echo.
echo 4. Exit
echo.
set /P sel=Please select application to run: 
echo.
for %%a in (1, 2, 3, 4) do if "%sel%"=="%%a" goto SELECT_%%a
echo Invalid selection. Valid values are 1 thru 4. Press Enter to continue
pause>NUL
goto TOP
:SELECT_1
cd <your target directory>
start <server/batch/etc.>
goto TOP
:SELECT_2
cd <your target directory
start killprocess.vbs
goto TOP
:SELECT_3
start notepad.exe
goto TOP
:SELECT_4
goto :EOF
'killprocess.vbs
'Get Current User Logged In
Set objNetwork = 
Wscript.CreateObject("Wscript.Network")
currUser = objNetwork.UserName
'Kill Process(es) based on *.exe and current user 
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & 
strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("SELECT * FROM Win32_Process WHERE Name = 
'java.exe'")
For Each objProcess in colProcessList
If objProcess.GetOwner ( User, Domain ) = 0 Then
 if LCase(User) = currUser then
objProcess.Terminate()
end if 
end if
Next