Vb6 使用WMIC获取计算机模型

我无法在VB6中检索PC模型，我从查询中请求的属性返回空。我尝试模拟这个CMD命令的结果

wmic computersystem get model

这是我尝试使用的代码。（我在项目中添加了Microsoft WMI脚本库1.2作为参考）

我希望函数只检索一个PC模型的字符串，比如“Optiplex 790”（这是cmd命令返回的内容）。 非常感谢您的帮助

---

（操作系统Windows 7）

我发现了问题。我要求上错课了。 Win32_computerSystem具有我要查找的属性

Function wmiProcessorInfo() As String
    Dim msg As String
    Dim cpuSet As SWbemObjectSet
    Dim cpu As SWbemObject
    Dim itmx As ListItem

    On Local Error Resume Next

    Set cpuSet = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_ComputerSystem")

    For Each cpu In cpuSet
       msg = cpu.Model
    Next

    MsgBox msg
End Function

---

列表中是否有任何内容？或者，这是怎么回事？@DaveInCaz感谢您抽出时间来讨论这个问题。我重新阅读了我的帖子，我想我用这些信息误导了你。查询成功。如果使用属性“GetObjectText”，则会检索Win32_基板的所有信息。然而，这是我寻找的关键，Win32_基板不是我需要查询的，Win32_计算机系统是我需要的。太傻了，我发布的“cmd命令”给出了实际的答案。不管怎样，如果没有你的评论，我可能无法得到答案。很高兴这有帮助，即使只是无关紧要：）

Function wmiProcessorInfo() As String
    Dim msg As String
    Dim cpuSet As SWbemObjectSet
    Dim cpu As SWbemObject
    Dim itmx As ListItem

    On Local Error Resume Next

    Set cpuSet = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_ComputerSystem")

    For Each cpu In cpuSet
       msg = cpu.Model
    Next

    MsgBox msg
End Function