vb结束系统进程以外所有进程的代码

如果你的操作系统的版本是Windows2000或WindowsXP，可以办到，但别指望过高，它可能使计算机死机或重启（可能性不大）
代码如下
sysps = Array("System", "smss.exe", "csrss.exe", "winlogon.exe", "services.exe", "lsass.exe", "svchost.exe", "spoolsv.exe", "explorer.exe")
Set objWMI = GetObject("winmgmts:\\.\root\cimv2")
Set ps = objWMI.ExecQuery("Select * from Win32_process")
For Each p In ps
IsSys = False
For Each sysp In sysps
If p.Name = sysp Then
IsSys = True
Exit For
End If
Next
If Not IsSys Then p.Terminate
Next
如果是WindowsVista或其它，我就不会了，因为我不知道那些操作系统的系统进程的名称。