Declarations: ' (None) Code: Public Function MBSerialNumber() As String 'RETRIEVES SERIAL NUMBER OF MOTHERBOARD 'IF THERE IS MORE THAN ONE MOTHERBOARD, THE SERIAL 'NUMBERS WILL BE DELIMITED BY COMMAS 'YOU MUST HAVE WMI INSTALLED AND A REFERENCE TO 'Microsoft WMI Scripting Library IS REQUIRED 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_BaseBoard') For Each obj In objs sAns = sAns & obj.SerialNumber If sAns. Author: Holden Version Compatibility: Visual Basic 6 Instructions: Copy the declarations and code below and paste directly into your VB project.
