Public Function IsCPUBusy() As Double
        Dim pcpu As ManagementObject
        Dim ppt As System.UInt64
        pcpu = New ManagementObject( _
          "Win32_PerfFormattedData_PerfOS_Processor.Name='_total'")
        ppt = CType(pcpu.Properties("PercentProcessorTime").Value, _
        System.UInt64)
        Dim pptd As Decimal = Convert.ToDecimal(ppt)
 
        If pptd > 100 Then
            pptd = 100
        End If
 
        pcpu.Dispose()
        Return pptd
    End Function

Zitat:

Du kannst Performance Counters mit WMI auslesen, oder mit dem PDH Interface oder direkt aus Registry. Aber ich wüßte nicht warum das besser klappen sollte. Alles kommt aus der selben Quelle.