' Para evitar la terminación accidental de los procesos del sistema, los procesos normales y necesarios del sistema se han ocultado en la lista de procesos
Dim WshShell,filespec,i,j,k,r,z
Establecer WshShell = WScript.CreateObject("WScript.Shell")
filespec = WshShell.ExpandEnvironmentStrings("%WinDir%")
Hacer
strComputer = "."
Establecer wbemServices = Getobject("winmgmts:\\" & strComputer)
Establecer wbemObjectSet = wbemServices.InstancesOf("Win32_Process")
all = ""
i = 0
ReDim ara(i),arb(i),arc(i)
Para cada wbemObject En wbemObjectSet
ReDim Preserve ara(i),arb(i),arc(i)
ara(i) = wbemObject.ProcessID
arb(i ) = wbemObject .Name
arc(i) = wbemObject.ExecutablePath
Si no es nulo (arc(i)) entonces
k = LCase(arc( i))
i = i + 1
Seleccionar caso k
Caso LCase(filespec & "\explorer.exe") i = i - 1
Caso LCase(filespec & "\system32\cmd.exe") i = i - 1
Caso LCase(filespec & "\system32\conime.exe") i = i - 1
Caso LCase(filespec & "\system32\csrss.exe") i = i - 1
Caso LCase(filespec & "\system32\ctfmon.exe") i = i - 1
Caso LCase(filespec & "\system32\smss.exe") i = i - 1
Caso LCase(filespec & "\system32\lsass.exe") i = i - 1
Caso LCase(filespec & "\system32\winlogon.exe") i = i - 1
Caso LCase(filespec & "\syst
em32\services.exe") i = i - 1
Caso LCase(filespec & "\system32\spoolsv.exe") i = i - 1
Caso LCase(filespec & "\system32\svchost.exe") i = i - 1
Caso LCase(filespec & "\system32\wdfmgr.exe") i = i - 1
Caso LCase( filespec & "\system32\webm\wmiprvse.exe") i = i - 1
Caso LCase(filespec & "\system32\cscript.exe") i = i - 1
Caso LCase(filespec & "\system32\wscript.exe") i = i - 1
Finalizar selección
Finalizar si
Siguiente
i = i - 1
Para j = 0 Para i
todos = todos & ara(j) & vbTab & arb(j) & vbCrLf
Siguiente
all = all & vbCrLf & "Ingrese el ID del proceso que desea finalizar (R = actualizar)"
z = InputBox(all,"Nivel actual fuera del sistema lista de procesos ","R")
Si IsNumeric(z) Entonces
Si z = 0 Entonces salga Do
WshShell.Run "taskkill /f / im " &z,0
z = "R"
end if
bucle
Pruebe el párrafo anterior