Caption - property in ROOT\MicrosoftDNS namespace

List of classes with Caption local property in ROOT\MicrosoftDNS namespace

List of classes with Caption derived property in ROOT\MicrosoftDNS namespace

'https://wutils.com/wmi/
Dim wmiObject
Set wmiObject = GetObject( _
 "WINMGMTS:\\.\ROOT\MicrosoftDNS:" + _
 "MicrosoftDNS_AAAAType.ContainerName=""..RootHints"",DnsServerName=""..rootdomain.com"",DomainName=""in-addr-servers.arpa."",OwnerName=""a.in-addr-servers.arpa."",RecordClass=1,RecordData=""2001:500:13::73""")
Wscript.Echo wmiObject.Caption 'or other property name, see properties

//https://wutils.com/wmi/

//Project -> Add reference -> System.Management
//using System.Management;

//create a management scope object
ManagementScope scope = new ManagementScope("\\\\.\\ROOT\\MicrosoftDNS");

//create object query
ObjectQuery query = new ObjectQuery("SELECT * FROM MicrosoftDNS_AAAAType Where ContainerName=\"..RootHints\"DnsServerName=\"W2012SDC.rootdomain.com\"DomainName=\"in-addr-servers.arpa.\"OwnerName=\"a.in-addr-servers.arpa.\"RecordClass=\"1\"RecordData=\"2001:500:13::73\"");

//create object searcher
ManagementObjectSearcher searcher =
                        new ManagementObjectSearcher(scope, query);

//get a collection of WMI objects
ManagementObjectCollection queryCollection = searcher.Get();

//enumerate the collection.
foreach (ManagementObject m in queryCollection) 
{
  // access properties of the WMI object
  Console.WriteLine("Caption : {0}", m["Caption"]);
  
}

'Project -> Add reference -> System.Management
'Imports System.Management

'Get the namespace management scope
Dim Scope As New ManagementScope("\\.\ROOT\MicrosoftDNS")

'Get a result of WML query 
Dim Query As New ObjectQuery("SELECT * FROM MicrosoftDNS_AAAAType Where ContainerName="..RootHints"DnsServerName="W2012SDC.rootdomain.com"DomainName="in-addr-servers.arpa."OwnerName="a.in-addr-servers.arpa."RecordClass="1"RecordData="2001:500:13::73"")

'Create object searcher
Dim Searcher As New ManagementObjectSearcher(Scope, Query)

'Get a collection of WMI objects
Dim queryCollection As ManagementObjectCollection = Searcher.Get

'Enumerate wmi object 
For Each mObject As ManagementObject In queryCollection
  'write out some property value
  Console.WriteLine("Caption : {0}", mObject("Caption"))
Next