vbs+wmi 禁用xp任务管理器

cyycoish

仅仅对xp的taskmgr管用，有兴趣的朋友可以拿虚拟机实验一下
运行该vbs后taskmgr会被msgbox锁死
解除方法也很简单：cmd     taskkill /f/im wscript.exe
但是不知道其原理，望有研究的朋友告知一下

1. Dim Wmi,ws
   
2. set ws = createobject("wscript.shell")
   
3. do
   
4. For Each Wmi In GetObject("winmgmts:\\.\root\cimv2:win32_process").instances_
   
5.         if lcase(wmi.name)="taskmgr.exe" then
   
6.                 ws.AppActivate wmi.ProcessID
   
7.                 do
   
8.                         msgbox ""
   
9.                 loop
   
10.         end if
    
11. Next
    
12. wscript.sleep 200
    
13. loop

复制代码