Используя RegOpenKey, RegQueryValueEx, RegCloseKey, определить идентификатор жесткого диска

  Private Property MsgBox As String
 
    Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Integer, ByVal lpsubKey As String, ByRef phkResult As Integer) As Integer
 
    Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hkey As Integer) As Integer
 
    Public Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Integer, ByVal lpValueName As String, ByVal Reserved As Integer, _
                                                                                         ByVal lpType As Integer, ByVal lpData As String, ByRef lpcb As Integer) As Integer
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim sDate As String
        Dim lres As Integer
        Dim retval As Integer
        Dim lDlen As Integer
        Dim hregkey As Integer
        Dim subkey As String
        subkey = "\HARDWARE\DEVICEMAP\Scsi\Scsi Port 1\Scsi Bus0\Target Id 0\Logical Unit Id 0"
        retval = RegOpenKey(&H80000002, subkey, hregkey)
        If retval <> 0 Then
            MsgBox = ("Ошибка открытия раздела")
            End
        End If
        sDate = Space(1024)
        lDlen = Len(sDate)
        lres = RegQueryValueEx(hregkey, subkey, 0, 0, sDate, lDlen)
        If lres <> 0 Then
            MsgBox = ("Ошибка считывания")
        End If
        retval = RegCloseKey(hregkey)
        TextBox1.Text = retval
    End Sub

Imports Microsoft.Win32
 
Public Class Form1
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim RegKey As RegistryKey
        Dim AppRegKey As String = "HARDWARE\DEVICEMAP\Scsi\Scsi Port 1\Scsi Bus 0\Target Id 0\Logical Unit Id 0"
        Dim Identifier As String
        RegKey = Registry.LocalMachine.OpenSubKey(AppRegKey)
        If IsNothing(RegKey) Then
            MsgBox("Ошибка открытия раздела")
        Else
            Identifier = RegKey.GetValue("Identifier")
            If IsNothing(Identifier) Then
                MsgBox("Ошибка считывания параметра")
            Else
                TextBox1.Text = Identifier
            End If
        End If
 
    End Sub
 
End Class

If retval <> 0 Then
            MsgBox = ("Ошибка открытия раздела")
        End If

Public Class Form1
    Private Const REG_SZ As Integer = 1
    Private Const HKEY_LOCAL_MACHINE As Integer = &H80000002
 
    Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Integer, ByVal lpsubKey As String, ByRef phkResult As Integer) As Integer
    Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hkey As Integer) As Integer
    Public Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Integer, ByVal lpValueName As String, ByVal Reserved As Integer, ByVal lpType As Integer, ByVal lpData As String, ByRef lpcb As Integer) As Integer
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim subkey As String = "HARDWARE\DEVICEMAP\Scsi\Scsi Port 1\Scsi Bus0\Target Id 0\Logical Unit Id 0"
        Dim strValueName As String = "Identifier"
        Dim Ret As Integer, lValueType As Integer, lDataBufSize As Integer
        Dim strBuf As String = ""
        If RegOpenKey(HKEY_LOCAL_MACHINE, subkey, Ret) = 0 Then
            RegQueryValueEx(Ret, strValueName, 0, lValueType, 0, lDataBufSize)
            If lDataBufSize > 0 Then
                strBuf = StrDup(lDataBufSize, Chr(0))
                RegQueryValueEx(Ret, strValueName, 0, 0, strBuf, lDataBufSize)
                TextBox1.Text = strBuf
            Else
                MsgBox("Ошибка считывания")
            End If
        Else
            MsgBox("Ошибка открытия раздела")
        End If
    End Sub
 
End Class