Win32_LogicalMemoryConfiguration在win7下無法使用

strComputer = "."

Set objSWbemServices = GetObject("winmgmts:\" & strComputer)
Set colSWbemObjectSet = _
objSWbemServices.InstancesOf("Win32_LogicalMemoryConfiguration")

For Each objSWbemObject In colSWbemObjectSet
Wscript.Echo "Total Physical Memory (kb): " & _
objSWbemObject.TotalPhysicalMemory
Next
這段代碼在win7下無法運行報錯(null): 0x80041010 在win2003下可以運行，win7下已經(jīng)取消Win32LogicalMemoryConfiguration類
以下是替代方法
strComputer = "."
Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery(
"SELECT * FROM Win32_PhysicalMemory",,48)
For Each objItem in colItems
Wscript.Echo "-----------------------------------"
Wscript.Echo "Win32_PhysicalMemory instance"
Wscript.Echo "-----------------------------------"
Wscript.Echo "Capacity: " & objItem.Capacity
Next
用Win32_PhysicalMemory instance代替之