主板序列号
WPS的jsa宏怎么查询获取主板序号。vba代码如下
Sub GetCPUAndMotherboardSerialNumbers()
Dim objWMIService As Object
Dim colItems As Object
Dim objItem As Object
Dim CPU_SerialNumber As String
Dim Motherboard_SerialNumber As String
' 创建WMI服务对象
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
' 获取CPU序列号
Set colItems = objWMIService.ExecQuery("SELECT ProcessorID FROM Win32_Processor")
For Each objItem In colItems
CPU_SerialNumber = objItem.ProcessorID
Next objItem
' 获取主板序列号
Set colItems = objWMIService.ExecQuery("SELECT SerialNumber FROM Win32_BaseBoard")
For Each objItem In colItems
Motherboard_SerialNumber = objItem.SerialNumber
Next objItem
' 输出结果
MsgBox "CPU序列号: " & CPU_SerialNumber & vbCrLf & "主板序列号: " & Motherboard_SerialNumber
End Sub
