'https://wutils.com/wmi/
Dim wmiClass, oProperty
Set wmiClass = GetObject( _
"WINMGMTS:\\.\ROOT\Microsoft\SqlServer\ServerEvents\MSSQLSERVER:" + _
"CREATE_RULE")
'get some class property
Wscript.Echo wmiClass.properties_("TIME_CREATED").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
InstancesOf
List of all instances, wmi class CREATE_RULE.
'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 CREATE_RULE - all instances of this class and derived classesSet Instances = oWMI.InstancesOf("CREATE_RULE")
'Enumerate instances For Each Instance In Instances
'Do something with the instanceWscript.Echo Instance.TIME_CREATED 'or other property nameNext'Instance