复制代码 代码如下: 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.ToString() Next mo Catch ex As Exception MsgBox(ex.Message) End Try End Sub
