My.Computer not working in VS2022 desktop app

Here's the offending code. I'm basically tying to gather as much information as I can about the computer/OS. If someone could tell me where Windows gets the information that it displays on the About screen that would be helpful. Any help you can provide is appreciated.

Public NotInheritable Class Machine

Public ReadOnly Property MachineName() As String

    Get

        Return System.Environment.MachineName.ToString()

    End Get

End Property

Public ReadOnly Property OperatingSystem() As String

    Get

        Return My.Computer.Info.OSFullName.ToString()

    End Get

End Property

Public ReadOnly Property OperatingSystemType() As String

    Get

        If System.Environment.Is64BitOperatingSystem Then

            Return "64-Bit Operating System"

        Else

            Return "32-Bit Operating System"

        End If

    End Get

End Property

Public ReadOnly Property UserName() As String

    Get

        Return System.Environment.UserName.ToString()

    End Get

End Property

Public ReadOnly Property DomainName() As String

    Get

        Return System.Environment.UserDomainName.ToString()

    End Get

End Property

Public ReadOnly Property TotalPhysicalMemory() As String

    Get

        Return (ConvertToGigabytes(My.Computer.Info.TotalPhysicalMemory)).ToString

    End Get

End Property

Public ReadOnly Property AvailablePhysicalMemory() As String

    Get

        Return (ConvertToGigabytes(My.Computer.Info.AvailablePhysicalMemory)).ToString

    End Get

End Property

Public ReadOnly Property TotalVirtualMemory() As String

    Get

        Return (ConvertToGigabytes(My.Computer.Info.TotalVirtualMemory)).ToString

    End Get

End Property

Public ReadOnly Property AvailableVirtualMemory() As String

    Get

        Return (ConvertToGigabytes(My.Computer.Info.AvailableVirtualMemory)).ToString

    End Get

End Property

Public ReadOnly Property LogicalProcessorCount As String

    Get

        Return System.Environment.ProcessorCount.ToString

    End Get

End Property

Public ReadOnly Property MonitorResolution As String

    Get

        Return Screen.PrimaryScreen.Bounds.Width.ToString() & " X " & Screen.PrimaryScreen.Bounds.Height.ToString()

    End Get

End Property

Private Function ConvertToMegabytes(lngbytes As ULong) As String

    Return (CDec(lngbytes) / 1024D / 1024D).ToString("N1") & " MB"

End Function

Private Function ConvertToGigabytes(lngbytes As ULong) As String

    Return (CDec(lngbytes) / 1024D / 1024D / 1024D).ToString("N1") & " GB"

End Function

Private Function ConvertToTerabytes(lngbytes As ULong) As String

    Return (CDec(lngbytes) / 1024D / 1024D / 1024D / 1024D).ToString("N1") & " TB"

End Function

Public Sub Display(ByRef curMachine As Machine, ByRef lvwMachine As ListView, ByRef lvwDrives As ListView)

    Dim lvwItem As ListViewItem

    lvwMachine.Items.Clear()

    lvwItem = lvwMachine.Items.Add("Machine Name")

    lvwItem.SubItems.Add(curMachine.MachineName)

    lvwItem = lvwMachine.Items.Add("Operating System")

    lvwItem.SubItems.Add(curMachine.OperatingSystem)

    lvwItem = lvwMachine.Items.Add("Operating System Type")

    lvwItem.SubItems.Add(curMachine.OperatingSystemType)

    lvwItem = lvwMachine.Items.Add("User Name")

    lvwItem.SubItems.Add(curMachine.UserName)

    lvwItem = lvwMachine.Items.Add("Domain Name")

    lvwItem.SubItems.Add(curMachine.DomainName)

    lvwItem = lvwMachine.Items.Add("Total Physical Memory")

    lvwItem.SubItems.Add(curMachine.TotalPhysicalMemory)

    lvwItem = lvwMachine.Items.Add("Available Physical Memory")

    lvwItem.SubItems.Add(curMachine.AvailablePhysicalMemory)

    lvwItem = lvwMachine.Items.Add("Total Virtual Memory")

    lvwItem.SubItems.Add(curMachine.TotalVirtualMemory)

    lvwItem = lvwMachine.Items.Add("Available Virtual Memory")

    lvwItem.SubItems.Add(curMachine.AvailableVirtualMemory)

    lvwItem = lvwMachine.Items.Add("Number Of Physical Processors")

    'lvwItem.SubItems.Add(curMachine.PhysicalProcessorCount)

    lvwItem = lvwMachine.Items.Add("Number Of Logical Processors")

    lvwItem.SubItems.Add(curMachine.LogicalProcessorCount)

    lvwItem = lvwMachine.Items.Add("Processor Type")

    'lvwItem.SubItems.Add(curMachine.ProcessorType)

    lvwItem = lvwMachine.Items.Add("Monitor Resolution")

    lvwItem.SubItems.Add(curMachine.MonitorResolution)

End Sub

End Class

You can replace

My.Computer.Info.OSFullName.ToString()

by

BrandingFormatString from Winbrand.dll

or

ProductName from registry (HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion)

For memory, you can use WMI and Win32_OperatingSystem

there are others that are causing issues as well. My.computer is BROKEN. WMI is not an issue. I don't have any of it in my project. I don't like it and I'm not going to start using it because you guys have broken stuff and don't want to fix it. I would appreciate substantive examples of how to fix these issues, not just hints. The code should work and it doesn't. It doesn't work because you broke it. so you are obligated to help fix it Explaining where Windows gets its information from on the About screen would be a start