Includes&Samples |
EventSubClass - property in ROOT\Microsoft\SqlServer\ServerEvents\MSSQLSERVER namespaceEventSubClass in other namespacesList of classes with EventSubClass local property in ROOT\Microsoft\SqlServer\ServerEvents\MSSQLSERVER namespaceList of classes with EventSubClass derived property in ROOT\Microsoft\SqlServer\ServerEvents\MSSQLSERVER namespaceCode samples for EventSubClass propertyThe class AUDIT_DATABASE_PRINCIPAL_MANAGEMENT_EVENT is abstract and serves only as a base for new classes. Get a Class as objectShort VB Script code to get the abstract class AUDIT_DATABASE_PRINCIPAL_MANAGEMENT_EVENT.
'https://wutils.com/wmi/ Dim wmiClass, oProperty Set wmiClass = GetObject( _ "WINMGMTS:\\.\ROOT\Microsoft\SqlServer\ServerEvents\MSSQLSERVER:" + _ "AUDIT_DATABASE_PRINCIPAL_MANAGEMENT_EVENT") 'get some class property Wscript.Echo wmiClass.properties_("EventSubClass").Origin 'or other property name, see properties 'Check if the class is singleton Wscript.Echo wmiClass.Path_.IsSingleton 'Get number of methods in the class Wscript.Echo wmiClass.Methods_.Count 'List class properties For Each oProperty In wmiClass.properties_ 'get property name and origin. Property value in the class is null, of course. Wscript.Echo oProperty.Name, oProperty.Origin, oProperty.Value Next InstancesOfList of all instances, wmi class AUDIT_DATABASE_PRINCIPAL_MANAGEMENT_EVENT.
'https://wutils.com/wmi/ Dim oWMI, Instances, Instance 'Get base WMI object, "." means computer name (local) Set oWMI = GetObject("WINMGMTS:\\.\ROOT\Microsoft\SqlServer\ServerEvents\MSSQLSERVER") 'Get instances of AUDIT_DATABASE_PRINCIPAL_MANAGEMENT_EVENT - all instances of this class and derived classes Set Instances = oWMI.InstancesOf("AUDIT_DATABASE_PRINCIPAL_MANAGEMENT_EVENT") 'Enumerate instances For Each Instance In Instances 'Do something with the instance Wscript.Echo Instance.EventSubClass 'or other property name Next 'Instance |