registryenum

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
      Dim Cnt as Integer
      'Declare a RegistryKey object and initialize it
      Dim RegKey as RegistryKey = Registry.LocalMachine.OpenSubKey( _
         "HARDWARE\DESCRIPTION\System\CentralProcessor\0")
      Dim Values() as String = RegKey.GetValueNames()
      If Values.Length > 0 Then
         For Cnt = 0 to Values.Length - 1
            Console.WriteLine(Values(Cnt))
         Next Cnt
      Else
         Console.WriteLine("No items to enumerate...")
      End If
      'Close the registry key
      RegKey.Close()
   End Sub
End Module

Close this window