'Desc: pregunta por la finalizacion de cada unos de los procesos corriendo en el sistema..
'Usar con precaucion.

'------------- NO CAMBIAR; en su lugar usar run-user-kill-procesos.vbs---------------------
pids="*"

' esto supuestamente es para poder finalizar procesos no propios; de todas maneras parece no funcionar !!!
Set objLoc = createobject("wbemscripting.swbemlocator")
objLoc.Security_.privileges.addasstring "sedebugprivilege", true

set objService = getobject("winmgmts:" & "{impersonationLevel=impersonate}!\\" _
& "." & "\root\cimv2")
on error resume next 
numFin = 0
numFallas= 0
for each Process in objService.InstancesOf("Win32_process")
 
	If  InStr(pids, "-" & Process.ProcessId & "-") <> 0 or _
		pids="*" Then  
		res=MsgBox("Desea matar a este proceso?" & VbCrLf & _ 
		"-Nombre:" & VbCrLf & Process.Name & VbCrLf & _
		"-PID:" & VbCrLf & Process.ProcessId & VbCrLf & _
		"-Linea de comando:" & VbCrLf & Process.CommandLine & VbCrLf & _
		"-Path al ejecutable:" & VbCrLf  & Process.ExecutablePath _
		,VbYesNo, "Kill Process VBS v0.01 Copyleft 2008 Ader Javier     " )
		if res= vbYes then
			val=Process.Terminate()
			if val <> 0 then
			  numFallas = numFallas +1
			else 
			  numFin = numFin +1
			end if  
			mostrarMens(val)
		end if 
	End If
Next

res= MsgBox("Fin del kill process." & VbCrLf & _
 "Procesos Finalizados:" & numFin & VbCrLf & _
 "Finalizaciones Falladas:" & numFallas _
 , vbOkOnly ,"Kill Process VBS v0.01 Copyleft 2008 Ader Javier")

Function mostrarMens(valor)
	select case valor
		case 0
			MsgBox("Proceso finalizado exitosamente")
		case 2
			MsgBox("ERROR 2: Acceso denegado")
		case 3
			MsgBox("ERROR 3: Privilegios insuficientes")
		case 8
			MsgBox("ERROR 8: Falla desconocida")
		case 9
			MsgBox("ERROR 9: Path no hallado(!?)")
		case 21
			MsgBox("ERROR 21: Parametro invalido(!?)")
		case Else
			MsgBox("ERROR: Codigo de error desconocido(!?):" & valor )
	end select 
End Function