VBS监控内存如何通过WMI获取进程的虚拟内存使用量？

将脚本进行到底

想通过WMI获取一个进程没有映射在物理内存里的虚拟内存使用量，不知道怎么才能获得，希望大家们帮帮忙！

ooaf

回复 1# 将脚本进行到底

以前做了这个，你看看有没有帮助

1. 'by   @hello老崔
   
2. 
   
3. 
   
4. '---------------------------
   
5. 
   
6. '---------------------------
   
7. '特别说明：每隔3秒抓取一次内存数值，单位：KB ！！
   
8. 
   
9. '开始时间：20:05:02，结束时间：20:05:05,时间间隔：3分钟
   
10. 
    
11. '监控文件保存在：d:\alg.exe--20-5_monitor.txt
    
12. '---------------------------
    
13. '确定   
    
14. '---------------------------
    
15. 
    
16. on error resume next
    
17. stnCx="."
    
18. Set obj=GetObject("winMGmts:\" & sTnCx & "\root\cImV2")
    
19. Set col=obj.ExecQuerY("Select * from Win32_ProCEss WherE " & "Name = 'cscript.exe' or Name = 'wscript.exe'")
    
20. Set fso = CreateObject("Scripting.FileSystemObject")
    
21. 
    
22. n=0
    
23. processname=InputBox("输入进程名称：","提示")
    
24. MsgBox "确认输入的进程名称："&processname
    
25. t= CInt(inputbox("现在时间是："&Time&"输入监控时间，单位：（分钟）","提示"))
    
26. atime=Time
    
27. filename="d:"&processname&"--"&CStr(Hour(time))&"-"&CStr(Minute(time))&"_monitor.txt"
    
28. Set file=fso.CreateTextFile(filename,True)
    
29. 
    
30. If processname<>"" then
    
31.         Do
    
32.                 If (t-n/60)        <1 Then
    
33.                         Exit Do
    
34.                 else
    
35.                
    
36.                         Set col=obj.ExecQuerY("Select * from Win32_ProCEss WherE " & "Name = '"& processname &"'")
    
37.                                 If col.count=0 Then
    
38.                                         exits
    
39.                                 else
    
40.                                         For Each wmiObject In col
    
41.                                                 memorys = wmiObject.workingsetsize/1024
    
42.                                                 file.writeline memorys
    
43.                                         next
    
44.                                 End if
    
45.                 End if
    
46.                 WScript.Sleep 3000
    
47.                 n= n+3
    
48.         Loop
    
49.         file.close
    
50.        
    
51. Else
    
52.         MsgBox "没有输入进程名称！"
    
53. End If
    
54. 
    
55. MsgBox "特别说明：每隔3秒抓取一次内存数值，单位：KB ！！" &vbCrLf&vbcrlf&"开始时间："&CStr(atime)&"，结束时间："&CStr(Time)&",时间间隔："&CStr(n/60)&"分钟"&vbCrLf&vbcrlf&"监控文件保存在："&filename
    
56. 
    
57. Function exits()
    
58. MsgBox "没有找到进程,点击确定退出！"
    
59. WScript.quit
    
60. End Function

复制代码

zhangop9

监控内存如何通过WMI获取进程的虚拟内存使用量