Registry Get Sukey Informations
'This is my code
' i want to all subkeyinformation for keys from registry
' I need help
Imports System
Imports Microsoft.Win32
Module Module1
Sub Main()
Dim key As Microsoft.Win32.RegistryKey
Dim Keyname As String
Dim SubkeyCount As Integer
Dim ValueCount As Integer
Dim name As String
Dim Subkeys(10)
Dim Valuename(5)
Dim SubValues(10)
Dim ValuesParameter(10)
Keyname = "System\CurrentControlset\Enum\USB\ROOT_HUB"
'Keyname enthält System\CurrentControlSet\Enum\USB\Root_HUB
key = Microsoft.Win32.Registry.LocalMachine.OpenSubKey(Keyname)
'Key enthält
'Name
'SubKeyCount
'ValueCount
name = key.Name
SubkeyCount = key.SubKeyCount 'Anzahl der Unterschlüssel unterhalb von USB
ValueCount = key.ValueCount
key.GetSubKeyNames.CopyTo(Subkeys, 0) 'in SubKeys stehen jetzt die Unterschlüssel
key = key.OpenSubKey(Subkeys(0), False)
name = key.Name
SubkeyCount = key.SubKeyCount
ValueCount = key.ValueCount
key.GetSubKeyNames.CopyTo(Valuename, 0)
key = key.OpenSubKey(Valuename(0), False)
name = key.Name
End Sub
end module