vbs实现 扫描检测硬件改动

9zhmke

我以前也是这么做，后来发现总是不准确。推荐个改进方法，把暂停的时间改为检测CPU占有率和硬盘使用率，如果这两个都低就可以直接点击了，如果这有一个高就多等一会儿。
这几个有些是网上抄改有些是自己写的，典型使用方法：
while CPU_busy >5 or Hard_busy >10240: wscript.sleep 200:Wend　　 '如果CPU忙或者硬盘忙则等待

1. 
   
2. Function Ping(url) '检查网络Ping值，单位毫秒
   
3.     Set objWMI = GetObject("winmgmts:\\.")
   
4.     Set colPings = objWMI.ExecQuery ("Select * From Win32_PingStatus where Address = '" & url & "'")
   
5.     Ping=9999
   
6.     On error resume next
   
7.         For Each objPing in colPings
   
8.             Ping=objPing.ResponseTime+0
   
9.         Next
   
10.     On error goto 0
    
11. End Function
    

复制代码

1. 
   
2. Function Wait(proc) '等待程序完成,十秒还没完成则退出
   
3.     dim mark,obj,proce,data,x
   
4.     do
   
5.       mark=0
   
6.       Set obj = getobject("winmgmts:\\.\root\cimv2")
   
7.       Set proce = obj.execquery("select * from win32_process")
   
8.       For each x in proce
   
9.         if lcase(x.name)=proc then mark=1
   
10.         data=data+1
    
11.       next
    
12.       if mark=0 or data>100 then exit do
    
13.       wscript.sleep 100
    
14.       Set obj = nothing
    
15.       Set proce = nothing
    
16.     loop
    
17. End Function
    

复制代码

1. 
   
2. Function Hard_busy() '硬盘忙闲
   
3.     Dim vName,IDE,cPPP,sNow,A,B,R1,W1,R2,W2,read,write
   
4.     Set objWMIService=GetObject("winmgmts:\\.\root\cimv2")
   
5.     Set IDE = objWMIService.ExecQuery("Select * from Win32_DiskDrive WHERE InterfaceType='IDE'")
   
6.     Set cPPP = objWMIService.ExecQuery("SELECT * FROM Win32_PerfRawData_PerfDisk_PhysicalDisk WHERE Name<>'_Total'")
   
7.     DskPs=WshShell.ExpandEnvironmentStrings("%SystemDrive%") '取系统驱动器
   
8.         Set A = objWMIService.ExecQuery("Select * from Win32_PerfRawData_PerfDisk_LogicalDisk Where Name = '"& DskPs &"'")
   
9.         For Each B In A
   
10.             R1 = B.DiskReadBytesPersec: W1 = B.DiskWriteBytesPersec
    
11.             If RA0 = "" Then RA0 = B.DiskReadBytesPersec Else RA1 = R1 End If
    
12.             If WA0 = "" Then WA0 = B.DiskWriteBytesPersec Else WA1 = W1 End If
    
13.         Next
    
14.     Set A = Nothing
    
15.     WScript.Sleep(500)
    
16.     Set A = objWMIService.ExecQuery("Select * from Win32_PerfRawData_PerfDisk_LogicalDisk Where Name = '"& DskPs &"'")
    
17.     For Each B In A
    
18.         R2 = B.DiskReadBytesPersec
    
19.         W2 = B.DiskWriteBytesPersec
    
20.     Next
    
21.     Set A = Nothing
    
22.     read=R2-R1:write=W2-W1   'msgbox  "半秒实时读取：" & read & "/s 实时写人：" & write
    
23.     Hard_busy = read + write
    
24.     Set IDE=nothing
    
25.     Set cPPP=nothing
    
26. End Function
    

复制代码

1. 
   
2. Function CPU_busy() 'CPU使用率
   
3.     dim objProc
   
4.     Set objProc = GetObject("winmgmts:\\.\root\cimv2:win32_processor='cpu0'")
   
5.     CPU_busy=objProc.LoadPercentage 'CPU使用率
   
6.     Set objProc = nothing
   
7. End Function
   

复制代码