QN__PARAMETER_TABLE, ROOT\Microsoft\SqlServer\ServerEvents\MSSQLSERVER, VB Net samples

	'http://wutils.com/wmi/
	
	'Project -> Add reference -> System.Management
	'Imports System.Management
	
	'set the class name and namespace
	Dim NamespacePath As String = "\\.\ROOT\Microsoft\SqlServer\ServerEvents\MSSQLSERVER"
	Dim ClassName As String = "QN__PARAMETER_TABLE"
	
	'Create ManagementClass
	Dim mClass As New ManagementClass(NamespacePath + ":" + ClassName)
	
	'List the properties in the QN__PARAMETER_TABLE class
	Dim lproperties As PropertyDataCollection = mClass.Properties
	
	'display the properties  
	Console.WriteLine(String.Format("Property Names in {0}: ", ClassName))
	For Each oproperty As PropertyData In lproperties
		Console.WriteLine("Name: {0}, Origin: {1}", oproperty.Name, oproperty.Origin)
	Next
	

	'http://wutils.com/wmi/
	
	'Project -> Add reference -> System.Management
	'Imports System.Management
	
	'set the class name and namespace
	Dim NamespacePath As String = "\\.\ROOT\Microsoft\SqlServer\ServerEvents\MSSQLSERVER"
	Dim ClassName As String = "QN__PARAMETER_TABLE"
	
	'Create ManagementClass
	Dim oClass As New ManagementClass(NamespacePath + ":" + ClassName)
	
	'Get all instances of the class and enumerate them
	For Each oObject As ManagementObject In oClass.GetInstances()
		'access a property of the Management object
		Console.WriteLine("ApplicationName : {0}", oObject("ApplicationName"))
	Next