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