代码如下: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