Imports System
Imports Microsoft.Win32
Public Module modmain
   Sub Main()
     'The KPD-Team 2001
     'URL: http://www.allapi.net/dotnet/
     'E-Mail: KPDTeam@Allapi.net
      'Declare a RegistryKey object and initialize it
      Dim RegKey as RegistryKey = Registry.LocalMachine.OpenSubKey( _
         "HARDWARE\DESCRIPTION\System\CentralProcessor\0")
      'Retrieve the value of 'VendorIdentifier'
      Dim VendorValue as Object = RegKey.GetValue("VendorIdentifier")
      'Show the result
      If Not(VendorValue Is Nothing) Then
         Console.WriteLine("The vendor identifier of the central" + _
            " processor of this machine is: " + VendorValue.ToString())
      Else
         Console.WriteLine("Key not found...")
      End If
      'Close the registry key
      RegKey.Close()
   End Sub
End Module