Question

求一个写好的VBA读取主板序列号

我搜到一个写好的，但是返回结果不是序列号，而是：To be filled by O.E.M.
附原代码如下：
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
我的操作系统是win7 64位 旗舰版，Office2003

Answer 1

PnP功能带有PnP BIOS的主板配合PnP操作系统（如Win95）可帮助用户自动配置主机外设，做到“即插即用”。节能（绿色）功能一般在开机时有能源之星（Energy Star）标志，能在用户不使用主机时自动进入等待和休眠状态，在此期间降低CPU及各部件的功耗。无跳线主板这是一种新型的主板，是对PnP主板的进一步改进。在这种主板上，连CPU的类型、工作电压等都无须用跳线开关，均自动识别，只需用软件略作调整即可。经过Remark的CPU在这种主板上将无所遁形。486以前的主板一般没有上述功能，586以上的主板均配有PnP和节能功能，部分原装品牌机中还可通过主板…

Answer 2

Win32_BaseBoard表示的是32位主板，您的操作系统是64位的，所以无法正常运行。
改成Win64_BaseBoard试试，之前用过win7 64位旗舰版，兼容性不好。。

追问

难道高手不再百度？