मैं .NET में cpu जानकारी कैसे प्राप्त कर सकता हूं?

Question

चाहे वह पेंटियम या AMD आदि है की तरह

Answer 1

System.Management Namespace के बारे में प्रणाली, उपकरणों, और Windows मैनेजमेंट इंस्ट्रूमेंटेशन (WMI) बुनियादी सुविधाओं के लिए instrumented अनुप्रयोगों प्रबंधन सूचना और प्रबंधन की घटनाओं का विस्तृत समूह के लिए उपयोग प्रदान करता है।

Win32 Processor डब्ल्यूएमआई कक्षा एक डिवाइस का प्रतिनिधित्व करती है जो विंडोज ऑपरेटिंग सिस्टम पर चल रहे कंप्यूटर पर निर्देशों के अनुक्रम की व्याख्या कर सकती है। एक मल्टीप्रोसेसर कंप्यूटर पर, प्रत्येक प्रोसेसर के लिए Win32_Processor वर्ग का एक उदाहरण मौजूद है। कक्षा में Processor family type फ़ील्ड, एएमडी ओपर्टन प्रोसेसर परिवार जैसी चीजें एन्कोडिंग शामिल हैं।

पृष्ठ के अंत में C# issuing WMI query का एक उदाहरण है।

Answer 2

कृपया ध्यान दें कि इस 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 3

सीपीयू गुण इस कोड को मिल जाएगा

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