WPS的jsa宏怎么查询获取主板序号

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