PerformanceCounter category doesn't exist on a few PC's!
Question
Answers
-
You could try this code. Which should get a list of all performance counter categories on a machine into ListBox1 by selecting Button1.
Then you select one of the entries in ListBox1 and select Button2. This will get a list of all performance counter instance names for the performance counter category selected in ListBox1.
Then select one of the entries in ListBox2 and select Button3. ListBox3 will display a list of performance counters available for the performance counter instance name selected in ListBox2.
Then select one of the performance counters in ListBox3 and start the timer.
If a category, instance name or performance counter is not available on the machine the program is run on then it will not be displayed. I could not find a performance counter called "ProcessorSpeed" for my machine though.
Also in my next post I will provide the Form1.Designer.vb code so if you want to create this app you should be able to use that code to provide all the controls on a blank Form and the below code copied over any code in Form1.vb.
Option Strict On Public Class Form1 'Code used is from below two links. ' 'Walkthrough: Retrieving Categories and Counters 'http://msdn.microsoft.com/en-us/library/2fh4x1xb(v=vs.90).aspx ' 'A Quick Introduction to Performance Counters in Visual Studio 2012 'http://www.codeguru.com/columns/vb/a-quick-introduction-to-performance-counters-in-visual-studio-2012.htm Private pc As PerformanceCounter Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.CenterToScreen() Me.Text = "Performance Counters" ListBox1.Sorted = True ListBox2.Sorted = True ListBox3.Sorted = True Button4.BackColor = Color.Lime Button4.Text = "Start Timer" Timer1.Interval = 1000 End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim myCat As PerformanceCounterCategory() Dim i As Integer ListBox1.Items.Clear() myCat = PerformanceCounterCategory.GetCategories For i = 0 To myCat.Length - 1 ListBox1.Items.Add(myCat(i).CategoryName) Next End Sub Dim InstanceNames() As String Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click ListBox2.Items.Clear() If ListBox1.SelectedIndex <> -1 Then Dim mycat As New PerformanceCounterCategory(ListBox1.SelectedItem.ToString()) InstanceNames = mycat.GetInstanceNames() If InstanceNames.Count > 0 Then For Each Item In InstanceNames ListBox2.Items.Add(Item) Next End If End If End Sub Dim Counters As New System.Collections.ArrayList Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click ListBox3.Items.Clear() Counters.Clear() If ListBox1.SelectedIndex <> -1 And ListBox2.SelectedIndex <> -1 Then Dim mycat As New PerformanceCounterCategory(ListBox1.SelectedItem.ToString()) Counters.AddRange(mycat.GetCounters(ListBox2.SelectedItem.ToString)) Dim counter As PerformanceCounter For Each counter In Counters ListBox3.Items.Add(counter.CounterName) Next End If End Sub Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click If Button4.Text = "Start Timer" Then Button4.BackColor = Color.OrangeRed Button4.Text = "Stop Timer" Timer1.Start() Else Button4.BackColor = Color.Lime Button4.Text = "Start Timer" Timer1.Stop() End If End Sub Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick RichTextBox1.Text = "" If ListBox1.SelectedIndex <> -1 And ListBox2.SelectedIndex <> -1 And ListBox3.SelectedIndex <> -1 Then pc = New PerformanceCounter() pc.CategoryName = ListBox1.SelectedItem.ToString pc.InstanceName = ListBox2.SelectedItem.ToString pc.CounterName = ListBox3.SelectedItem.ToString RichTextBox1.AppendText(pc.CounterHelp.ToString & vbCrLf & vbCrLf & vbCrLf & "RawValue = " & pc.RawValue.ToString & vbCrLf & "NextValue = " & pc.NextValue.ToString) End If End Sub End Class
La vida loca
- Proposed as answer by Cor Ligthert Tuesday, November 4, 2014 7:17 AM
- Marked as answer by Carl Cai Wednesday, November 19, 2014 8:06 AM
-
You can download Microsofts WMI Code Creator v1.0 which can created code in VB.Net, VB.Script or C#. It executes the created code in Console Apps though so the code is written to be used that way. Below is an image but I don't know how to use it to create a performance counter. Maybe under "execute a method".
Maybe this article from Code Project can give you insight on how to create a performance counter as it seem fairly well written - An Introduction To Performance Counters
La vida loca
- Marked as answer by Carl Cai Wednesday, November 19, 2014 8:06 AM
All replies
-
You could try this code. Which should get a list of all performance counter categories on a machine into ListBox1 by selecting Button1.
Then you select one of the entries in ListBox1 and select Button2. This will get a list of all performance counter instance names for the performance counter category selected in ListBox1.
Then select one of the entries in ListBox2 and select Button3. ListBox3 will display a list of performance counters available for the performance counter instance name selected in ListBox2.
Then select one of the performance counters in ListBox3 and start the timer.
If a category, instance name or performance counter is not available on the machine the program is run on then it will not be displayed. I could not find a performance counter called "ProcessorSpeed" for my machine though.
Also in my next post I will provide the Form1.Designer.vb code so if you want to create this app you should be able to use that code to provide all the controls on a blank Form and the below code copied over any code in Form1.vb.
Option Strict On Public Class Form1 'Code used is from below two links. ' 'Walkthrough: Retrieving Categories and Counters 'http://msdn.microsoft.com/en-us/library/2fh4x1xb(v=vs.90).aspx ' 'A Quick Introduction to Performance Counters in Visual Studio 2012 'http://www.codeguru.com/columns/vb/a-quick-introduction-to-performance-counters-in-visual-studio-2012.htm Private pc As PerformanceCounter Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.CenterToScreen() Me.Text = "Performance Counters" ListBox1.Sorted = True ListBox2.Sorted = True ListBox3.Sorted = True Button4.BackColor = Color.Lime Button4.Text = "Start Timer" Timer1.Interval = 1000 End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim myCat As PerformanceCounterCategory() Dim i As Integer ListBox1.Items.Clear() myCat = PerformanceCounterCategory.GetCategories For i = 0 To myCat.Length - 1 ListBox1.Items.Add(myCat(i).CategoryName) Next End Sub Dim InstanceNames() As String Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click ListBox2.Items.Clear() If ListBox1.SelectedIndex <> -1 Then Dim mycat As New PerformanceCounterCategory(ListBox1.SelectedItem.ToString()) InstanceNames = mycat.GetInstanceNames() If InstanceNames.Count > 0 Then For Each Item In InstanceNames ListBox2.Items.Add(Item) Next End If End If End Sub Dim Counters As New System.Collections.ArrayList Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click ListBox3.Items.Clear() Counters.Clear() If ListBox1.SelectedIndex <> -1 And ListBox2.SelectedIndex <> -1 Then Dim mycat As New PerformanceCounterCategory(ListBox1.SelectedItem.ToString()) Counters.AddRange(mycat.GetCounters(ListBox2.SelectedItem.ToString)) Dim counter As PerformanceCounter For Each counter In Counters ListBox3.Items.Add(counter.CounterName) Next End If End Sub Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click If Button4.Text = "Start Timer" Then Button4.BackColor = Color.OrangeRed Button4.Text = "Stop Timer" Timer1.Start() Else Button4.BackColor = Color.Lime Button4.Text = "Start Timer" Timer1.Stop() End If End Sub Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick RichTextBox1.Text = "" If ListBox1.SelectedIndex <> -1 And ListBox2.SelectedIndex <> -1 And ListBox3.SelectedIndex <> -1 Then pc = New PerformanceCounter() pc.CategoryName = ListBox1.SelectedItem.ToString pc.InstanceName = ListBox2.SelectedItem.ToString pc.CounterName = ListBox3.SelectedItem.ToString RichTextBox1.AppendText(pc.CounterHelp.ToString & vbCrLf & vbCrLf & vbCrLf & "RawValue = " & pc.RawValue.ToString & vbCrLf & "NextValue = " & pc.NextValue.ToString) End If End Sub End Class
La vida loca
- Proposed as answer by Cor Ligthert Tuesday, November 4, 2014 7:17 AM
- Marked as answer by Carl Cai Wednesday, November 19, 2014 8:06 AM
-
You can download Microsofts WMI Code Creator v1.0 which can created code in VB.Net, VB.Script or C#. It executes the created code in Console Apps though so the code is written to be used that way. Below is an image but I don't know how to use it to create a performance counter. Maybe under "execute a method".
Maybe this article from Code Project can give you insight on how to create a performance counter as it seem fairly well written - An Introduction To Performance Counters
La vida loca
- Marked as answer by Carl Cai Wednesday, November 19, 2014 8:06 AM
