CodeItBetter Programming Another VB Programming Blog

'System & API - How to find Mother boad Serial Number
Option Explicit
 
'Add a reference to Microsoft WMI Scripting Library

Private Sub Main()
    Dim List, Object, WMI
    Set WMI = GetObject("WinMgmts:")
    Set List = WMI.InstancesOf("Win32_BaseBoard")
    For Each Object In List
        MsgBox Object.SerialNumber
    Next
End Sub