上传者: 38654589
|
上传时间: 2022-11-11 02:17:00
|
文件大小: 27KB
|
文件类型: PDF
代码如下:Public Sub getCpuId() Try Dim mc As Management.ManagementClass Dim moc As Management.ManagementObjectCollection Dim mo As Management.ManagementObject mc = New Management.ManagementClass(“win32_processor”) moc = mc.GetInstances() For Each mo In moc strCpuId = mo.Properties(“processorid”).Value.T