使用 WMIC 获取计算机型号

Question

我无法在 VB6 中检索 PC 型号，我从查询 returns 请求的属性为空。我尝试模拟此 CMD 命令的结果。

wmic computersystem get model

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

Function wmiInfo() As String
   Dim List
   Dim Msg
   Dim Object

   On Local Error Resume Next

   Set List = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_BaseBoard")
   For Each Object In List
      Msg = Msg & "Motherboard Serial Number: " & Object.Model & vbCrLf
   Next

   MsgBox Msg
end function

我希望该函数仅检索带有 PC 型号的字符串，例如 "Optiplex 790"（这就是 cmd 命令 returns）。非常感谢任何帮助。

(OS Windows 7)

Answer 1

我发现了问题。我请求错误 class。 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

使用 WMIC 获取计算机型号

Get Computer Model witn WMIC

vb6

wmic