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