Public Sub SpecificationsProcessor()
Dim strComputer As String
Dim objWMIService As Object, colProcessor As Object, objProcessor As Object

    strComputer = "."
    Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colProcessor = objWMIService.ExecQuery("SELECT * FROM Win32_Processor")
    For Each objProcessor In colProcessor
        Debug.Print "Name: " & objProcessor.Name
        Debug.Print "LogicalProcessors: " & objProcessor.NumberOfLogicalProcessors
        Debug.Print "Manufacturer: " & objProcessor.Manufacturer
        Debug.Print "Version: " & objProcessor.Version
        Debug.Print "Architecture: " & objProcessor.Architecture
        Debug.Print "Level: " & objProcessor.Level
        Debug.Print "Revision: " & objProcessor.Revision
        Debug.Print "ProcessorId: " & objProcessor.ProcessorId
    Next

End Sub

Public Sub SpecificationsMB()

Dim strComputer As String
Dim objWMIService As Object, colItems  As Object, objItem As Object
   
   On Error GoTo SpecificationsMB_Error

strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
'Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_BaseBoard", , 48)
For Each objItem In colItems
    Debug.Print "-----------------------------------"
    Debug.Print "Win32_BaseBoard instance"
    Debug.Print "-----------------------------------"
    Debug.Print "Серийный номер: "; Tab; objItem.SerialNumber
    Debug.Print "Производитель: "; Tab; objItem.Manufacturer
    Debug.Print "Model: "; Tab; Tab; objItem.Model
    Debug.Print "OtherIdentifyingInfo: "; Tab; objItem.OtherIdentifyingInfo
    Debug.Print "PartNumber: "; Tab; Tab; objItem.PartNumber
    Debug.Print "Product: "; Tab; Tab; objItem.Product
Next
   On Error GoTo 0
   Exit Sub

SpecificationsMB_Error:

    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure SpecificationsMB of Module Module4"
End Sub

wmic baseboard get product,Manufacturer,version,serialnumber 

No Instance(s) Available.

    p = p & "~" & IIf(IsNull(objItem.Product), "", objItem.Product)