VB.Net by API/Microsoft.Win32/RegistryKey

RegistryKey.GetValue

<source lang="vbnet"> Imports System Imports Microsoft.win32 Imports System.Diagnostics Imports System.Windows.Forms

Public Class Tester
   Public Shared Sub Main
   
       Dim m_LM As RegistryKey
       Dim m_HW As RegistryKey
       Dim m_Des As RegistryKey
       Dim m_System As RegistryKey
       Dim m_CPU As RegistryKey
       Dim m_Info As RegistryKey
       m_LM = Registry.LocalMachine
       m_HW = m_LM.OpenSubKey("HARDWARE")
       m_Des = m_HW.OpenSubKey("DESCRIPTION")
       m_System = m_Des.OpenSubKey("SYSTEM")
       m_CPU = m_System.OpenSubKey("CentralProcessor")
       m_Info = m_CPU.OpenSubKey("0")

       Console.WriteLine(m_Info.GetValue("VendorIdentifier"))
       Console.WriteLine(m_Info.GetValue("ProcessorNameString"))
       Console.WriteLine(m_Info.GetValue("Identifier"))
       Console.WriteLine(m_Info.GetValue("~Mhz") & "MHz")
   End Sub

End Class

 </source>

RegistryKey.OpenSubKey

<source lang="vbnet"> Imports System Imports Microsoft.win32 Imports System.Diagnostics Imports System.Windows.Forms

Public Class Tester
   Public Shared Sub Main
   
       Dim m_LM As RegistryKey
       Dim m_HW As RegistryKey
       Dim m_Des As RegistryKey
       Dim m_System As RegistryKey
       Dim m_CPU As RegistryKey
       Dim m_Info As RegistryKey
       m_LM = Registry.LocalMachine
       m_HW = m_LM.OpenSubKey("HARDWARE")
       m_Des = m_HW.OpenSubKey("DESCRIPTION")
       m_System = m_Des.OpenSubKey("SYSTEM")
       m_CPU = m_System.OpenSubKey("CentralProcessor")
       m_Info = m_CPU.OpenSubKey("0")

       Console.WriteLine(m_Info.GetValue("VendorIdentifier"))
       Console.WriteLine(m_Info.GetValue("ProcessorNameString"))
       Console.WriteLine(m_Info.GetValue("Identifier"))
       Console.WriteLine(m_Info.GetValue("~Mhz") & "MHz")
   End Sub

End Class

 </source>