PCの製造元、モデルの情報を取得する。

WMI(Windows Management Instrumentation)を利用してハードウェア(PCの製造元、モデル)の情報を取得します。
VBAでWMIから情報を取得するにはSWbemLocatorオブジェクトのConnectServerメソッドを利用してコンピューター上の WMIへ接続することで取得できます。
PCの製造元、モデルの情報は接続したWMIの Win32_ComputerSystemクラスから取得します。

'*****************************************************************
'　ハードウェア(PC)の情報を取得
'*****************************************************************
Sub getPCInfo()

    'SWbemLocatorオブジェクトを作成してWMIに接続
    Dim oWMI As Object
    Set oWMI = CreateObject("WbemScripting.SWbemLocator").ConnectServer
    
    'オブジェクト取得のクエリを実行
    Dim oQrySet As Object
    Set oQrySet = oWMI.ExecQuery("SELECT * FROM Win32_ComputerSystem")

    'ハードウェアの情報を取得
    Dim oCS As Object
    For Each oCS In oQrySet
        Dim oProp
        Debug.Print "-----------------------------------------------------------"
        Debug.Print "製造元       :" & oCS.Manufacturer
        Debug.Print "モデル       :" & oCS.Model
    Next

End Sub