Вывести информацию о процессоре, видеокарте, оперативной памяти и винчестере

        Dim myLM As RegistryKey
        Dim myHW As RegistryKey
        Dim myDes As RegistryKey
        Dim mySystem As RegistryKey
        Dim myCPU As RegistryKey
        Dim myInfo As RegistryKey
        Dim myGPU As RegistryKey
 
        myLM = Registry.LocalMachine
        myHW = myLM.OpenSubKey("HARDWARE")
        myDes = myHW.OpenSubKey("DESCRIPTION")
        mySystem = myDes.OpenSubKey("SYSTEM")
        myCPU = mySystem.OpenSubKey("CentralProcessor")
        myInfo = myCPU.OpenSubKey("0")
 
        TextBox1.Text = myInfo.GetValue("VendorIdentifier")
        TextBox2.Text = myInfo.GetValue("ProcessorNameString")
        TextBox3.Text = myInfo.GetValue("Identifier")
        TextBox4.Text = myInfo.GetValue("~Mhz") & "MHz"

Imports Microsoft.Win32

Imports System
Imports Microsoft.win32
Imports System.Diagnostics

Imports Microsoft.Win32
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim myLM As RegistryKey
        Dim myHW As RegistryKey
        Dim myDes As RegistryKey
        Dim mySystem As RegistryKey
        Dim myCPU As RegistryKey
        Dim myInfo As RegistryKey
 
 
        myLM = Registry.LocalMachine
        myHW = myLM.OpenSubKey("HARDWARE")
        myDes = myHW.OpenSubKey("DESCRIPTION")
        mySystem = myDes.OpenSubKey("SYSTEM")
        myCPU = mySystem.OpenSubKey("CentralProcessor")
        myInfo = myCPU.OpenSubKey("0")
 
        TextBox1.Text = myInfo.GetValue("VendorIdentifier")
        TextBox2.Text = myInfo.GetValue("ProcessorNameString")
        TextBox3.Text = myInfo.GetValue("Identifier")
        TextBox4.Text = myInfo.GetValue("~Mhz") & "MHz"
    End Sub
End Class

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim a As ManagementObjectSearcher = New ManagementObjectSearcher("SELECT * FROM Win32_VideoController")
        For Each wmi As ManagementObject In a.Get()
            MsgBox(wmi("Name"))
        Next
    End Sub

My.Computer.Info.AvailablePhysicalMemory
 
My.Computer.Info.AvailableVirtualMemory

       For Each drv As IO.DriveInfo In IO.DriveInfo.GetDrives
            With drv
                If .DriveType = IO.DriveType.Fixed Then ' только винчестер
                    Debug.WriteLine(.VolumeLabel)
                End If
            End With
        Next

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim a As ManagementObjectSearcher = New ManagementObjectSearcher("SELECT * FROM Win32_VideoController")
        For Each wmi As ManagementObject In a.Get()
            MsgBox(wmi("Name"))
        Next
    End Sub