El código que te voy a mostrar es válido para Visual Basic 6.0 y
siempre que el Windows en el que se ejecute tenga los objetos de WMI
(Windows Management Instrumentation)
El siguiente código lo pones en el evento Form_Load del formulario en el que habrá un TextBox llamado Text1
que debe ser MultiLine.
Private Sub Form_Load()
Dim wmi As Object
Dim mos As Object
Dim mo As Object
Set wmi = GetObject("winmgmts:\\.\root\cimv2")
Set mos = wmi.ExecQuery("Select * from Win32_Baseboard")
Text1 = ""
For Each mo In mos
Text1 = Text1 & "Serial Number: " & mo.SerialNumber & vbCrLf
Text1 = Text1 & "Manufacturer: " & mo.Manufacturer & vbCrLf
Text1 = Text1 & "Product: " & mo.Product
Next
End Sub
Y esto es todo... espero que te sea de utilidad.
Nota:
Si quieres el código
para Visual Basic .NET o Visual C#, pulsa en el link anterior.
Nos vemos.
Guillermo