请教大佬，这是什么原理，vbs文件守护

bangyou

在可板块看到了，搞不明白是什么原理

1. On Error Resume Next
   
2. dim wmi,proc,procs,proname,flag,WshShell,fso,f
   
3. set fso=CreateObject("Scripting.FileSystemObject")
   
4. set WSHshell = wscript.createobject("wscript.shell")
   
5. set f=fso.opentextfile("X.tmp",8)
   
6. Do
   
7.     proname="cmd.exe"
   
8. set wmi=getobject("winmgmts:{impersonationlevel=impersonate}!\\.\root\cimv2")  
   
9. set procs=wmi.execquery("select * from win32_process")   
   
10.   flag=true  
    
11. for each proc in procs  
    
12.     if strcomp(proc.name,proname)=0 then  
    
13.      flag=false   
    
14.       exit for   
    
15.     end if  
    
16. next   
    
17.   set wmi=nothing  
    
18.   if flag then  
    
19.     WshShell.Run "进程保护.bat",0,true  
    
20. end if   
    
21. loop

复制代码

http://bbs.bathome.net/thread-63314-1-1.html

jyswjjgdwtdtj

就是检测cmd.exe是否存在 如归不存在则运行那个bat

bangyou

呵，我眼瞎，没去看BAT 中还有一个死循环

yyz219

谢谢了 谢谢