Prozessorinformationen auslesen

    • VB.NET

      Prozessorinformationen auslesen

      Hallo

      mit dem folgenden Code kann man Informationen über den Prozessor abrufen.

      ACHTUNG: Einige Funktionen können unter XP nicht abgerufen werden (es tritt ein Fehler auf)

      Zuerst müsst ihr unter Verweise (in den Projekteigenschaften) "System.Management" hinzufügen. Dann müsst ihr noch im Code vor der ersten Klasse (ganz oben)

      VB.NET-Quellcode

      1. Imports System.Management
      schreiben.

      Hier nun der eigendliche Code:

      VB.NET-Quellcode

      1. Dim ManagementObjectSearcher As New ManagementObjectSearcher("SELECT * FROM Win32_ComputerSystem")
      2. Dim queryCollection1 As ManagementObjectCollection = ManagementObjectSearcher.Get
      4. For Each ManagementObject In queryCollection1
      5. Dim AnzahlProzessoren As Integer = ManagementObject("NumberOfProcessors")
      6. Next
      8. ManagementObjectSearcher = New ManagementObjectSearcher("SELECT * FROM Win32_Processor")
      9. queryCollection1 = ManagementObjectSearcher.Get
      11. For Each ManagementObject In queryCollection1
      12. Dim Hersteller As String = ManagementObject("Manufacturer").ToString()
      13. Dim Name As String = ManagementObject("Name").ToString()
      14. Dim MaximaleTaktfrequenz As Integer = ManagementObject("MaxClockSpeed")
      15. Dim AnzahlVonKernen As Integer = ManagementObject("NumberOfCores") 'Dies geht unter XP nicht!!!!!
      16. Dim AktuelleTaktfrequenz As Integer = ManagementObject("CurrentClockSpeed")
      17. Dim AnzahlLogischeProzessoren As Integer = ManagementObject("NumberOfLogicalProcessors")
      18. 'Hier können noch weitere Informationen abgefragt werden. Link siehe unten
      19. Next


      Weitere Eigenschaften: Hier

      Einfach die Eigenschaften nehmen (Bei einigen kommt eine Fehlermeldung und einige funktionieren nicht unter XP) und dann einfach oben einsetzen:

      VB.NET-Quellcode

      1. dim Informationen as string = ManagementObject(Eigenschaftname).ToString()


      Vielleicht kanns jemand gebrauchen.

      lg

      Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Alteran“ ()