WMI - Was mache ich falsch???

[Newbie]

Hallo an Alle

Habe folgenden Code um die CPU Temperatur auszulesen:

    Public Function GetCpuTemperature()
        Dim Temperature As Double
        Try
            Dim TempSearcher As New Management.ManagementObjectSearcher("root\WMI", "SELECT * FROM MSAcpi_ThermalZoneTemperature")
            For Each TempSensor As Management.ManagementObject In TempSearcher.Get()
                Temperature = CDbl(TempSensor("CurrentTemperature"))
                Temperature = (Temperature - 2732) / 10.0
            Next
        Catch err As Management.ManagementException
            MessageBox.Show("Fehler: " & err.Message)
        End Try
        Return Temperature
    End Function

Sobald ich diese Funktion per Buttonklick aufrufe, wird mir wie gewünscht meine CPU Temperatur angezeigt.
Nur ist die CPU sofort zu 100% ausgelastet bis ich das programm beende.

Was mache ich Falsch?

Danke schonmal im Voraus

MfG
Steve

[Andreas Kosch]

Hallo,

wenn die CPU zu 100% ausgelastet wird, würde ich zuerst die For Each-Schleife als problemverursachende Stelle ansehen. Eine Schleife verursacht immer dann eine hohe CPU-Belastung, wenn das Ende-Kriterium der Schleife nicht genau definiert ist. Was passiert, wenn die Zeile "Next" durch "Next TempSensor " ersetzt wird? Als nächstes würde ich im Debugger prüfen, wieviele Elemente der Aufruf von TempSearcher.Get() zurückliefert.

[Newbie]

Vielen Dank

Mit "Next TempSensor" hats funktioniert.

MfG
Steve

[Paetzi]

Hallo,
könntest du mir evtl. mal deinen ganzen Code schicken?
Haben gerade in der Schule auch ein kleines Projekt am laufen bei dem wir die u.a. die CPU-Temperatur auslesen wollen, allerdings haben wir davon nich so wirklich viel Ahnung ;-)
Wäre wirklich nett.

MfG