Получить компьютерную модель с WMIC

Question

Я не могу получить модель ПК в VB6, свойство, которое я запрашиваю из запроса, возвращается пустым.Я пытаюсь эмулировать результат этой команды CMD.

wmic computersystem get model

Это код, который я пытаюсь использовать.(Я добавил сценарий Microsoft WMI lib 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

Я ожидаю, что функция получит только строку с моделью ПК, например, "Optiplex 790" (это то, чтокоманда cmd возвращает).Любая помощь приветствуется.

(ОС Windows 7)

Answer 1

Я нашел проблему.Я просил не тот класс.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