- 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 下已经取消此类
来源: http://www.bubuko.com/infodetail-2921273.html