请看下面的代码,我的主板的序列号是空的,不能取出。
建议你改用CPU序列号:Win32_Processor
Set a = GetObject("winmgmts:")
Set b = a.InstancesOf("Win32_BaseBoard")
For Each c In b
With c
If .Properties_.Count > 0 Then
Set d = .Properties_
For Each e In d
Text1 = Text1 & e.Name & ": " & e.Value & vbCrLf
Next
End If
End With
Next |