Sub Page_Load(ByVal Source As Object, ByVal E As EventArgs)
        Dim pRegKey As RegistryKey = Microsoft.Win32.Registry.LocalMachine
        pRegKey = pRegKey.OpenSubKey("Software\\Asus\\AI Booster")
        Dim val As Object = pRegKey.GetValue("CaptionName")
        Response.Write("The central processor of this machine is:" & val)
    End Sub

    Sub Page_Load(ByVal Source As Object, ByVal E As EventArgs)
        Dim pRegKey As RegistryKey = Microsoft.Win32.Registry.CurrentUser
        pRegKey = pRegKey.OpenSubKey("Software\Lavalys\EVEREST\SensorValues")
        Dim val As Object = pRegKey.GetValue("Values.TMOBO")
        Response.Write("The central processor of this machine is:" & val)
    End Sub