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网址:https://www.cdcxhl.com/article30/joespo.html
成都网站建设公司_创新互联,为您提供做网站、面包屑导航、服务器托管、移动网站建设、外贸网站建设、虚拟主机
声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联