Includes&Samples |
ALTER_MESSAGE, ROOT\Microsoft\SqlServer\ServerEvents\MSSQLSERVER, VB Net samplesClass | Methods | Properties (11) | Qualifiers (1) | Instances | Namespaces (1)Samples: VB Script | C# | VB.Net | Search on:Microsoft VB.Net Code samplesThe class ALTER_MESSAGE is abstract and serves only as a base for new classes. WMI query - sample windows WQL with VB.Net, ComputerName property of ALTER_MESSAGEShort VB.Net sample code to get the abstract class ALTER_MESSAGE and its properties.
'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 = "ALTER_MESSAGE" 'Create ManagementClass Dim mClass As New ManagementClass(NamespacePath + ":" + ClassName) 'List the properties in the ALTER_MESSAGE 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 ALTER_MESSAGEList of all instances of ALTER_MESSAGE class in VB.Net.
'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 = "ALTER_MESSAGE" '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 |