复制代码 代码如下:

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