VBS 监测未响应程序脚本

wuxue107

之前帮一个玩游戏的朋友写的一个小脚本。检测未相应程序并关闭的

1. 
   
2. On Error Resume Next
   
3. If LCase(Right(WScript.FullName,11)) = "wscript.exe" Then
   
4.         CreateObject("Wscript.Shell").Run "CScript "&Chr(34)&WScript.ScriptFullName&Chr(34)
   
5.         WScript.quit
   
6. End If
   
7. 
   
8. Timeout = 60                        '多少秒数关闭不响应程序
   
9. Times = 6                                '每多少秒检测一次，时间误差为一个检测周期
   
10. 
    
11. '################  白名单   ############## 字母用小写
    
12. blist = array("system idle process","svchost.exe","conhost.exe", _
    
13. "csrss.exe","explorer.exe","lsass.exe","smss.exe","lsm.exe","spoolsv.exe", _
    
14. "system","wininit.exe","winlogon.exe","services.exe","taskhost.exe","dwm.exe")
    
15. 
    
16. Set objshell = CreateObject("wscript.shell")
    
17. set dc = CreateObject("Scripting.Dictionary")
    
18. Do
    
19.         set out = objshell.exec("cmd /c tasklist /v|find "" Not Responding """).stdout
    
20.         do while Not out.AtEndOfLine
    
21.                 m=out.ReadLine
    
22.                 name = LCase(Trim(Left(m,23)))
    
23.                 pid = Trim(Mid(m,27,8))
    
24.                 b=false
    
25.                 For Each n In blist
    
26.                         If name = n Then b = true:Exit For
    
27.                 Next
    
28.                
    
29.                 If Not b Then
    
30.                         'WScript.Echo "At: " &Date & " " & time & ":TASKKILL  /F /PID " & pid
    
31.                         If Not dc.Exists("n" & pid) Then
    
32.                                 dc.Add "n" & pid,Times
    
33.                         Else
    
34.                                 dc.Item("n" & pid) = dc.Item("n" & pid)+Times
    
35.                         End If
    
36.                         If Time-lt>Times+20 Then dc.Item("n" & pid)=Times
    
37.                         lt= Time
    
38. 
    
39.                         WScript.Echo "At: " & FormatDateTime(Now,2) & " ProcessName:" & Left(m,23) & "  PID:" & Mid(m,27,8) & "  Time out: " & String(6-Len(dc.Item("n" & pid))," ") & dc.Item("n" & pid) & " Second!"
    
40.                         If dc.Item("n" & pid)>=Timeout Then
    
41.                                 objshell.Run "TASKKILL  /F /PID " & pid ,0
    
42.                                 WScript.Echo "At: " & FormatDateTime(Now,2) &  " ProcessName:" & Left(m,23) & "  PID:" & Mid(m,27,8) & "  Execute: " & "TASKKILL  /F /PID " & pid
    
43.                         End if
    
44.                 End if
    
45.         Loop
    
46.        
    
47.         WScript.Sleep Times * 1000
    
48. Loop While true
    
49. 
    

复制代码