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 |