如何在.net中获取cpu信息？

比如是奔腾还是AMD等

Answer 1

请注意，这是来自VS2003：

using(ManagementObjectSearcher win32Proc = new ManagementObjectSearcher("select * from Win32_Processor"), win32CompSys = new ManagementObjectSearcher("select * from Win32_ComputerSystem"), win32Memory = new ManagementObjectSearcher("select * from Win32_PhysicalMemory")) { foreach (ManagementObject obj in win32Proc.Get()) { clockSpeed = obj["CurrentClockSpeed"].ToString(); procName = obj["Name"].ToString(); manufacturer = obj["Manufacturer"].ToString(); version = obj["Version"].ToString(); } 

Answer 2

System.Management命名空间提供对Windows Management Instrumentation（WMI）基础结构中配备的系统，设备和应用程序的丰富管理信息和管理事件的访问。

Win32处理器 WMI类表示可以解释在Windows操作系统上运行的计算机上的一系列指令的设备。 在多处理器计算机上，每个处理器都存在一个Win32_Processor类实例。 该类包括Processor family type字段，编码AMD Opteron处理器系列等 。

发布WMI查询的C＃示例位于页面末尾。

Answer 3

此代码将获得CPU属性

 Imports System.Management Private Sub InsertInfo() lstView.Items.Clear() Dim searcher As New ManagementObjectSearcher("select * from Win32_Processor") Try For Each share As ManagementObject In searcher.Get() Dim grp As ListViewGroup Try grp = lstView.Groups.Add(share("Name").ToString(), share("Name").ToString()) Catch grp = lstView.Groups.Add(share.ToString(), share.ToString()) End Try If share.Properties.Count <= 0 Then MessageBox.Show("No Information Available", "No Info", MessageBoxButtons.OK, MessageBoxIcon.Information) Return End If For Each PC As PropertyData In share.Properties Dim item As New ListViewItem(grp) If lstView.Items.Count Mod 2 <> 0 Then item.BackColor = Color.White Else item.BackColor = Color.WhiteSmoke End If item.Text = PC.Name If PC.Value IsNot Nothing AndAlso PC.Value.ToString().Length > 0 Then Select Case PC.Value.GetType().ToString() Case "System.String[]" Dim str As String() = DirectCast(PC.Value, String()) Dim str2 As String = "" For Each st As String In str str2 += st & " " Next item.SubItems.Add(str2) Exit Select Case "System.UInt16[]" Dim shortData As UShort() = DirectCast(PC.Value, UShort()) Dim tstr2 As String = "" For Each st As UShort In shortData tstr2 += st.ToString() & " " Next item.SubItems.Add(tstr2) Exit Select Case Else item.SubItems.Add(PC.Value.ToString()) Exit Select End Select Else Continue For End If lstView.Items.Add(item) Next Next Catch exp As Exception MessageBox.Show("can't get data because of the followeing error " & vbLf & exp.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Information) End Try End Sub