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下已经取消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代替之

文章名称：Win32_LogicalMemoryConfiguration在win7下无法使用
URL链接：http://pwwzsj.com/article/joespo.html