MicrosoftDNS_SRVType, ROOT\MicrosoftDNS, VBScript samples

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

MicrosoftDNS_SRVType - VB Script code samples

Get instance of WMI class using GetObject, Caption property of MicrosoftDNS_SRVType

Short VBS code - get a single specified instance of MicrosoftDNS_SRVType class or get a default unnamed instance (singleton) of the class, using one single command GetObject with exact path of the wmi object.
	
	'https://wutils.com/wmi/
	Dim wmiObject
	Set wmiObject = GetObject( _
	 "WINMGMTS:\\.\ROOT\MicrosoftDNS:" + _
	 "MicrosoftDNS_SRVType.ContainerName=""rootdomain.com"",DnsServerName=""..rootdomain.com"",DomainName=""_tcp.default-first-site-name._sites.dc._msdcs.rootdomain.com"",OwnerName=""_kerberos._tcp.default-first-site-name._sites.dc._msdcs.rootdomain.com"",RecordClass=1,RecordData=""0 100 88 ..rootdomain.com.""")
	Wscript.Echo wmiObject.Caption 'or other property name, see properties
	

Alternative codes

SWbemServices.Get

Quickest and most efficient VB Script code to get a single instance by a key - SWbemServices.Get
	'https://wutils.com/wmi/
	Dim oWMI, Instance
	
	'Get base WMI object, "." means computer name (local)
	Set oWMI = GetObject("WINMGMTS:\\.\ROOT\MicrosoftDNS")
	
	Do
	  'Get the instance of MicrosoftDNS_SRVType 
	  Set Instance = oWMI.Get("MicrosoftDNS_SRVType.ContainerName=""rootdomain.com"",DnsServerName=""..rootdomain.com"",DomainName=""_tcp.default-first-site-name._sites.dc._msdcs.rootdomain.com"",OwnerName=""_kerberos._tcp.default-first-site-name._sites.dc._msdcs.rootdomain.com"",RecordClass=1,RecordData=""0 100 88 ..rootdomain.com.""")
	                    
	  'Do something with the instance
	  Wscript.Echo Instance.Caption 'or other property name, see properties
	
	  'Wait for some time to get next value
	  Wscript.Sleep 1000
	Loop While True  
	  
	

WMI query - sample windows WQL

Get a specified instance of MicrosoftDNS_SRVType by a key, get a default unnamed instance (singleton) of the class or list instances of the class by wmi query using this VB Script.
See in another language: C#, VB.Net.
	'https://wutils.com/wmi/
	Dim oWMI, WQL, Instances, Instance
	
	'Get base WMI object, "." means computer name (local)
	Set oWMI = GetObject("WINMGMTS:\\.\ROOT\MicrosoftDNS")
	
	'Create a WMI query text 
	WQL = "Select * from MicrosoftDNS_SRVType Where ContainerName=""rootdomain.com""DnsServerName=""W2012SDC.rootdomain.com""DomainName=""_tcp.default-first-site-name._sites.dc._msdcs.rootdomain.com""OwnerName=""_kerberos._tcp.default-first-site-name._sites.dc._msdcs.rootdomain.com""RecordClass=""1""RecordData=""0 100 88 w2012sdc.rootdomain.com."""
	
	'Get instances of MicrosoftDNS_SRVType 
	Set Instances = oWMI.ExecQuery(WQL)
	                    
	'Enumerate instances  
	For Each Instance In Instances 
	  'Do something with the instance
	  Wscript.Echo Instance.Caption 'or other property name
	Next 'Instance
	

InstancesOf

List of all instances, wmi class MicrosoftDNS_SRVType.
	'https://wutils.com/wmi/
	Dim oWMI, Instances, Instance
	
	'Get base WMI object, "." means computer name (local)
	Set oWMI = GetObject("WINMGMTS:\\.\ROOT\MicrosoftDNS")
	
	'Get instances of MicrosoftDNS_SRVType - all instances of this class and derived classes 
	'Set Instances = oWMI.InstancesOf("MicrosoftDNS_SRVType")
	
	'Get instances of MicrosoftDNS_SRVType 
	Set Instances = oWMI.InstancesOf("MicrosoftDNS_SRVType", 1)
	
	
	'Enumerate instances  
	For Each Instance In Instances 
	  'Do something with the instance
	  Wscript.Echo Instance.Caption 'or other property name
	Next 'Instance
	

WMI remote scripting - Locator, Connect

Get WMI management object using SWbemLocator.ConnectServer method. You can connect to a remote computer and specify Username/Password for the WMI connection.
	'https://wutils.com/wmi/
	Dim Locator, oWMI, WQL, Instances, Instance
	
	'Create Locator object
	Set Locator = CreateObject("WbemScripting.SWbemLocator")
	
	'Get base WMI object
	Set oWMI = Locator.ConnectServer("MachineName", "ROOT\MicrosoftDNS", "MachineName\administrator", "Password")
	 
	'.... continue using oWMI object
	
	
WUtils.com
online utility - toplist