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://blog.51cto.com/4432704/2342798
时间: 2024-08-30 17:28:12