取得CPU序列号
来源:百度文库 编辑:神马文学网 时间:2024/07/07 08:15:33
Private Sub Command1_Click()
Set cpuSet = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_Processor")
For Each cpu In cpuSet
MsgBox "CPU系列号:" & cpu.ProcessorId ' 取得CPU序列号
Next
End Sub
Set cpuSet = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_Processor")
For Each cpu In cpuSet
MsgBox "CPU系列号:" & cpu.ProcessorId ' 取得CPU序列号
Next
End Sub