(相关资料图)

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 = snEnd Sub。

本文到此分享完毕，希望对大家有所帮助。