Серийный номер железа или как ещё привязать к компьютеру? - VB

Private Function GetMACAddress( _
                 ByRef bData() As Byte) As Boolean
    Dim bAdapterInfo()  As Byte
    Dim lRet            As Long
    Dim lSize           As Long
    Dim bMACAddress()   As Byte
    Dim lMACAddresSize  As Long
    
    ' // Get MAC address
    lSize = &H288
    ReDim bAdapterInfo(lSize - 1)
 
    lRet = GetAdaptersInfo(bAdapterInfo(0), lSize)
    
    If lRet = ERROR_BUFFER_OVERFLOW Then
    
        ReDim bAdapterInfo(lSize - 1)
        lRet = GetAdaptersInfo(bAdapterInfo(0), lSize)
        
    End If
 
    If lRet = 0 Then
        
        GetMem4 bAdapterInfo(&H190), lMACAddresSize
        
        If lMACAddresSize > 0 Then
            
            ReDim bData(lMACAddresSize - 1)
            memcpy bData(0), bAdapterInfo(&H194), lMACAddresSize
            
            GetMACAddress = True
            
        End If
        
    End If
    
End Function