Sub getcpuid()
MsgBox GetObject("winmgmts:").ExecQuery("Select ProcessorID From Win32_Processor")("Win32_Processor.DeviceID='CPU0'", 1).ProcessorId
End Sub
vba一句代码获取CPU序列号
最新推荐文章于 2024-05-16 10:23:10 发布
Sub getcpuid()
MsgBox GetObject("winmgmts:").ExecQuery("Select ProcessorID From Win32_Processor")("Win32_Processor.DeviceID='CPU0'", 1).ProcessorId
End Sub