.net获取硬件信息_CPU序列号

 

 

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