QTP获取内存占有量

上一篇 / 下一篇  2008-01-10 20:24:57 / 个人分类：QTP

查看( 630 ) / 评论( 1 ) / 评分( 0 / 0 )
On Error Resume Next
strComputer = "localhost"
Set ōbjWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_PerfRawData_PerfOS_Memory",,48)

For Each objItem in colItems
msgbox objItem.AvailableBytes
Next
Set ōbjWMIService = Nothing
Set colItems = Nothing

收藏 举报

TAG: QTP功能库

investmark的个人空间 引用 删除 investmark   /   2008-01-30 15:48:47
强的
 

评分：0

我来说两句

日历

« 2024-05-06  
日 一 二 三 四 五 六
   1234
567891011
12131415161718
19202122232425
262728293031 

数据统计

  • 访问量: 20597
  • 日志数: 32
  • 建立时间: 2007-12-13
  • 更新时间: 2008-12-04

RSS订阅

Open Toolbar