ALTER_EXTENDED_PROPERTY, ROOT\Microsoft\SqlServer\ServerEvents\MSSQLSERVER, VBScript samples

Class | Methods | Properties (18) | Qualifiers (1) | Instances | Namespaces (1)
Samples: VB Script | C# | VB.Net | Search on:Microsoft

VBScript Code samples

The class ALTER_EXTENDED_PROPERTY is abstract and serves only as a base for new classes.

Get a Class as object

Short VB Script code to get the abstract class ALTER_EXTENDED_PROPERTY.
See in another language: C#, VB.Net.
	'https://wutils.com/wmi/
	Dim wmiClass, oProperty
	Set wmiClass = GetObject( _
	 "WINMGMTS:\\.\ROOT\Microsoft\SqlServer\ServerEvents\MSSQLSERVER:" + _
	 "ALTER_EXTENDED_PROPERTY")
	
	'get some class property 
	Wscript.Echo wmiClass.properties_("ComputerName").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 ALTER_EXTENDED_PROPERTY.
	'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 ALTER_EXTENDED_PROPERTY - all instances of this class and derived classes 
	Set Instances = oWMI.InstancesOf("ALTER_EXTENDED_PROPERTY")
	
	
	'Enumerate instances  
	For Each Instance In Instances 
	  'Do something with the instance
	  Wscript.Echo Instance.ComputerName 'or other property name
	Next 'Instance
	
comments powered by Disqus
WUtils.com