Includes&Samples |
MicrosoftDNS_SRVType, ROOT\MicrosoftDNS, VBScript samplesClass | Methods (4) | Properties (18) | Qualifiers (6) | Instances (21) | Namespaces (1)Samples: VB Script | C# | VB.Net | Search on:Microsoft MicrosoftDNS_SRVType - VB Script code samplesGet instance of WMI class using GetObject, Caption property of MicrosoftDNS_SRVTypeShort 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 codesSWbemServices.GetQuickest 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 WQLGet 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.
'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 InstancesOfList 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, ConnectGet 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 |