VBScript 从 WMI 查询循环中获取值的总和

【问题标题】：VBScript get sum of values from WMI query loopVBScript 从 WMI 查询循环中获取值的总和
【发布时间】：2018-05-23 03:53:20
【问题描述】：

下面显示的基本脚本将回显它在 colItems 中找到的每个 objItem.MemoryDevices (M) 的值。然而，这不是我想要的。由于每个值始终是一个数字，我希望它回显它找到的所有值的总和。

strComputer = "."

Set objWMIService = GetObject( "winmgmts://" & strComputer & "/root/cimv2" )
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_PhysicalMemoryArray",,48 )


For Each objItem in colItems
    M = objItem.MemoryDevices
    Wscript.Echo M
Next

【问题讨论】：

标签： vbscript wmi

【解决方案1】：

VBScript 将自动在字符串和数字类型之间进行转换。您应该能够通过将 Total 集合添加到一个数字来完成您想要的操作，然后将 Total 增加您的变量 M。

strComputer = "."

Set objWMIService = GetObject( "winmgmts://" & strComputer & "/root/cimv2" )
Set colItems = objWMIService.ExecQuery("SELECT * FROM 
Win32_PhysicalMemoryArray",,48 )

Total = 0
For Each objItem in colItems
    M = objItem.MemoryDevices
    Total = Total + M
Next

WScript.Echo Total

【讨论】：