QTP获取内存占有量

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

查看( 623 ) / 评论( 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-04-24  
日 一 二 三 四 五 六
 123456
78910111213
14151617181920
21222324252627
282930    

数据统计

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

RSS订阅

Open Toolbar