public class Test
public Shared Sub Main
Dim PerformanceCounter2 As System.Diagnostics.PerformanceCounter
PerformanceCounter2 = New System.Diagnostics.PerformanceCounter()
Console.WriteLine("Category: " & PerformanceCounter2.CategoryName)
Console.WriteLine("Counter: " & PerformanceCounter2.CounterName)
Console.WriteLine("Instance: " & PerformanceCounter2.InstanceName)
Console.WriteLine("Machine: " & Environment.MachineName)
Console.WriteLine("RawValue: " & PerformanceCounter2.RawValue)
End Sub
End class