Log CPU Usage in VB.Net

[Goldberg]

As per the title, any ideas?

Done some searches on Google with no joy. There must be a way to log the current CPU usage in VB.Net?

Thanks,

Goldy

[shadowdancer]

never done it myself yet but this might help a bit, its some c# code that explains a fair bit about it.
should be a simple process to convert to vb.net if you need to

http://www.codeproject.com/csharp/processescpuusage.asp

[Goldberg]

Cheers mate, had a go with a few examples will let you know how I get on.

[keifster]

what version of vb are you using?

[Nikki]

Have you sorted this yet goldberg?

[Goldberg]

Yes mate, however it's at work. If you want to know what I did I can post it later.

Sorry for the delays in getting back, I've had probs getting Sky BRoadband sorted

[Nikki]

no probs. yeah it would be good to know that matey,

cheers

[Goldberg]

Here you go mate, hopefully this makes sense, I've put in the whole sub procedure. It basically log's individual Cores (in percent) then I work out from that the overall percentage.

Takes a while to do but does work The debug comments are so I can see in VS. This basically writes out to a log file. You need : Imports System.Diagnostics

We have machines with 8 dual core CPU's fecking mad they are!

    Private Sub CPU_Usage()
        Dim objWMI As Object
        Dim j As Integer
        Dim Machine As Integer
        Dim Cores As Integer
        'Procedure to get the cpu usage whilst playback is taking place.
        objWMI = GetObject("winmgmts:")
        Dim strCls, strCPU As String
        Dim Usage As Integer
        Dim TotalUse As Integer
        Dim i As Integer
        strCls = "Win32_Processor"

        'Create File and open to append
        Dim desktoppath As String = My.Computer.FileSystem.SpecialDirectories.Desktop & "\logs.txt".ToString()
        Dim oFile As System.IO.File
        Dim oWrite As System.IO.StreamWriter
        oWrite = oFile.AppendText(desktoppath)

        'Need to repeat for each thread. X5 will be 4, X9 will be 8 and X17 will be 16!
        For i = 1 To Cores
            strCPU = "CPU" & i - 1
            'Debug.WriteLine(objWMI.InstancesOf(strCls)(strCls & ".DeviceID=""" & strCPU & """").LoadPercentage)
            Usage = (objWMI.InstancesOf(strCls)(strCls & ".DeviceID=""" & strCPU & """").LoadPercentage)
            Debug.WriteLine(Usage)
            'Store each thread each time
            TotalUse = TotalUse + Usage

            'Want to open and close the file each pass so that if we crash we still keep all dat we logged.
            'Now write threads to file
            oWrite.WriteLine("Thread " & i & " " & Usage & "%")
            oWrite.Close()
            're-open for the next pass.
            oWrite = oFile.AppendText(desktoppath)
        Next i

        'Calculate the Average based on core's 4 for X5, 8 for X9 and 18 for X17
        TotalUse = TotalUse / Cores
        Debug.WriteLine(TotalUse & "%")
        oWrite.WriteLine("Total CPU Use: " & TotalUse & "%")
        oWrite.WriteLine()
        oWrite.Close()
    End Sub

[keifster]

I'm a bit confused.... you don't set the value of Cores anywhere

[Goldberg]

Ah, I do that in a different procedure. I have 3 radio buttons and depending on which radio button is checked sets the value once the 'Start' button is pressed.

The reason I have 'Dim Cores as Integer' in the example is to list the variables I am using. Cores is a Global Variable and is set when the program loads.