Public Function Memory() 
'==================================== 

'服务器可用户内存 

'==================================== 
strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") 
For i = 1 To 20 
Set colItems = objWMIService.ExecQuery("Select * From Win32_PerfRawData_PerfOS_Memory") 
For Each objItem In colItems 
intValue = objItem.AvailableMbytes Memory= "可用内存 = " & intValue & " MB" 
'Memory= intValue & " MB" 
Next 
Next 
End Function 
谢谢了,急用