主板序列号

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
广东省
浏览 186
收藏
2
分享
2 +1
7
+1
全部评论 7
 
求助大佬
· 广东省
回复
 
鲁大师不行吗
· 湖南省
回复
做一个宏来给文件做验证,确保文件只能在这台电脑上使用,这样我就不需要给文件设置密码了
· 广东省
回复
 
意思是 当前电脑主板 内置的序列号吗 ?
· 北京
回复
是。打算做一个验证。
· 广东省
1
回复