Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" ( _
  ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegEnumValue Lib "advapi32.dll" Alias "RegEnumValueA" ( _
ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpValueName As String, _
lpcbValueName As Long, ByVal lpReserved As Long, lpType As Long, lpData As Any, _
lpcbData As Long) As Long
 
 
Private Sub Form_Load()
Dim hKey As Long, Cnt As Long, sName As String, sData As String, Retour As _
  Long, RetData As Long
 
Const BUFFER_SIZE As Long = 255
Cnt = 0
  If RegOpenKey(HKEY_LOCAL_MACHINE, _
    "HARDWARE\DESCRIPTION\System\MultifunctionAdapter\5\DiskController\0\DiskP" & _
    "ripheral\0\", hKey) = 0 Then
 
     ' Alle Unterschlüssel des Zweiges der Registrierung auslesen
    While RegEnumValue(hKey, Cnt, sName, Retour, 0, ByVal 0&, ByVal sData, _
      RetData) <> ERROR_NO_MORE_ITEMS
        ' Suchen, ob der gewünschte Eintrag vorhanden ist
       If LCase$(Left$(sName, 10)) = "identifier" Then DiskController = Trim$( _
         Left$(sData, RetData - 1))
       Cnt = Cnt + 1
       sName = Space(BUFFER_SIZE)
       sData = Space(BUFFER_SIZE)
       Retour = BUFFER_SIZE
       RetData = BUFFER_SIZE
    Wend
 
    ' Schließen der Registrierung
    RegCloseKey hKey
 
Text1.Text = “Controller-Nummer “ & vbTab & DiskController
End Sub