[ Last edited by HAT on 2008-12-16 at 10:04 ]作者: everest79 时间: 2008-12-16 00:32 这个函数要自已调用WMI去写,以下未测试
Function Available
Dim wmi
Set wmi=GetObject("winmgmts:\\.\root\cimv2")
Set ref=wmi.ExecQuery("Select * From Win32_PerfFormattedData_PerfOS_Memory")
For Each x In ref
Available=x.AvailableBytes/1024
Next
End Function作者: wl00560 时间: 2008-12-16 06:19 多谢,可以使用……