Question

excel vba 获取主板序列号

Sub 主板序列号()
Dim objs As Object, Obj As Object, WMI As Object, 主板序列号
Set WMI = GetObject("WinMgmts:")
Set objs = WMI.InstancesOf("Win32_BaseBoard")
For Each Obj In objs
MsgBox "您的主板序列号是：" + Obj.SerialNumber
Next
Sheets("sheet1").Cells(3, 1).Value = WMI'-----------------------
End Sub
想获取主板序列号，但是带横线的这句老是出错，求解答

Answer 1

Sub 主板序列号()
Dim Obj As Object, sn As String
For Each Obj In GetObject("WinMgmts:").InstancesOf("Win32_BaseBoard")
sn = Obj.SerialNumber
Next
Sheets("sheet1").Cells(3, 1).Value = sn
End Sub