需要帮助将变量分配给 VBScript WMI 数组结果答案

【问题标题】：Need help assigning variables to VBScript WMI array results需要帮助将变量分配给 VBScript WMI 数组结果
【发布时间】：2018-05-08 20:13:22
【问题描述】：

我正在尝试编写一个 VBScript，它从同一个 WMI 类 (Win32_DiskDrive) 中提取 3 个不同的属性。如果您有多个驱动器，该类会提供一个数组。我想将数组中的所有结果都分配给 SCCM 变量，但这样做时遇到了麻烦，因为我以前从未做过这样的事情。

这是我的脚本：

Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly       = &h20

Dim objWMIService, objItem, colItems, strComputer, Index, Model, Size
Dim Index(4)
Index(0) = Index0
Index(1) = Index1
Index(2) = Index2
Index(3) = Index3

Dim Model(4)
Model(0) = Model0
Model(1) = Model1
Model(2) = Model2
Model(3) = Model3

Dim Size(4)
Size(0) = Size0
Size(1) = Size1
Size(2) = Size2
Size(3) = Size3

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_DiskDrive", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)
Set env = CreateObject("Microsoft.SMS.TSEnvironment")

For Each objItem in colItems
    Index(4) = objItem.Index
    Model(4) = objItem.Model
    Size(4) = objItem.Size
    env("DriveIndex") = Index(4)
    env("DriveModel") = Model(4)
    env("DriveBytes") = Size(4)
Next

【问题讨论】：

您的问题是如何根据 WMI 对象的属性构建不同的数组？还是如何为 SCCM 变量赋值？
您需要为每个驱动器使用不同的变量，或者您需要将结果连接成一个字符串。按照您在此处的方式，列表中的最后一个驱动器将被分配给变量，因为循环将导致“对于每个 objItem”的值被覆盖。您如何处理这实际上取决于您以后希望如何处理这些值。
Ansgar，我一般都知道如何制作 SCCM 变量，但我需要知道如何从 WMI 中获取正确的值，以便将它们分配为变量。

标签： vbscript wmi sccm

【解决方案1】：

这是一种可能的解决方案，在您的 vbscript 中不需要数组。它将输出一个带有驱动器编号后缀的 TS 变量（从 0 开始，或者您设置的任何 iCount 开始）。

Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly       = &h20

Dim objWMIService, objItem, colItems, strComputer
strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_DiskDrive", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)
Set env = CreateObject("Microsoft.SMS.TSEnvironment")

iCount = 0
For Each objItem in colItems
    env("DriveIndex" & iCount) = objItem.Index
    env("DriveModel" & iCount) = objItem.Model
    env("DriveBytes" & iCount) = objItem.Size
    iCount = iCount + 1
Next

因此，如果您有 3 个驱动器，您最终会在 SCCM 中得到类似的结果：
DriveIndex0 = TheIndexOf0
DriveModel0 = TheModelOf0
DriveSize0 = TheSizeOf0
DriveIndex1 = TheIndexOf1
@987654327 @
DriveSize1 = TheSizeOf1
DriveIndex2 = TheIndexOf2
DriveModel2 = TheModelOf2
DriveSize2 = TheSizeOf2

随后您可以像往常一样在 TS 中引用每个变量。 %DriveIndex0%,%DriveIndex1%等

【讨论】：

我想这就是我想要的。如果它有效，我将对其进行测试并标记为答案。谢谢！