WUtils.com

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

Class | Methods | Properties (16) | Qualifiers (1) | Instances | Namespaces (2)
Samples: VB Script | C# | VB.Net | Search on:Microsoft

VB.Net Code samples

The class SERVER_MEMORY_CHANGE is abstract and serves only as a base for new classes.

WMI query - sample windows WQL with VB.Net, ComputerName property of SERVER_MEMORY_CHANGE

Short VB.Net sample code to get the abstract class SERVER_MEMORY_CHANGE and its properties.
See it in another language: VBScript, C#.
…
	'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 = "SERVER_MEMORY_CHANGE"
	
	'Create ManagementClass
	Dim mClass As New ManagementClass(NamespacePath + ":" + ClassName)
	
	'List the properties in the SERVER_MEMORY_CHANGE 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

WMI query - sample windows WQL with VB.Net, ComputerName property of SERVER_MEMORY_CHANGE

List of all instances of SERVER_MEMORY_CHANGE class in VB.Net.
See it in another language: VBScript, C#.
…
	'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 = "SERVER_MEMORY_CHANGE"
	
	'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("ComputerName : {0}", oObject("ComputerName"))
	Next
comments powered by Disqus
WUtils.com