Ciao Dielnet,
il seguente codice - postato tempo fà da Oregon - ti consente di leggere il numero della MB e degli HD installati sul PC, naturalmente quando i predetti componenti sono abilitati a fornire le info cercate:
codice:
'Da VB6 puoi utilizzare Windows Managemente Instrumentation
'riferendoti alla libreria Microsoft WMI Scripting V1.2 Library :
'----------------------------------------------------------------
Private Sub Form_Click()
    
    'Controlla che sia presente Microsoft Windows Management Instrumentation:
    Call IsWMIInstalled
    
    Print "Seriale MB:" & vbCrLf & GetSerialInfo("BaseBoard")
    Print "Seriale BIOS: " & vbCrLf & GetSerialInfo("BIOS")
    Print "Seriale HD: " & vbCrLf & GetSerialInfo("PhysicalMedia")

End Sub
'----------------------------------------------------------------
Private Function GetSerialInfo(device As String) As String
    Dim objs As Object
    Dim obj As Object
    Dim WMI As Object
    Dim sAns As String
    
    Set WMI = GetObject("WinMgmts:")
    Set objs = WMI.InstancesOf("Win32_" & device)
    For Each obj In objs
      sAns = sAns & obj.SerialNumber & vbCrLf
    Next
    
    GetSerialInfo = Replace$(sAns, " ", "")
End Function
'----------------------------------------------------------------
' Restituisce True se è presente Microsoft Windows
' Management Instrumentation:
Function IsWMIInstalled() As Boolean

    Dim oTemp
On Local Error Resume Next
    
    Set oTemp = CreateObject("WbemScripting.sWbemLocator")
  
    IsWMIInstalled = (Err.Number <> 429)
  
    If Err.Number = 429 Then
      Err.Clear
      Else
      Set oTemp = Nothing
    End If

End Function