Retrieve DNS Records - VBScript samples
Create an Andrew File System Database Server DNS RecordCreate an ATM Address to Name DNS Record
Create an IPv6 Address DNS Record
Create a Mail Agent for Domain DNS Record
Create a Mailbox DNS Record
Create a Mail Exchanger DNS Record
Create a Mail Forwarding Agent DNS Record
Create a Mail Group DNS Record
Create a Mail Information DNS Record
Create a Mailbox Rename DNS Record
Create a Name Server DNS Record
Create a Responsible Person DNS Record
Create a Route Through DNS Record
Create a Text DNS Record
Create a Well-Known Services DNS Record
List Andrew File System Database Server DNS Records
List ATM Address to Name DNS Records
List Canonical Name DNS Records
List Host Address DNS Records
List Host Information DNS Records
List IPv6 Address DNS Records
List ISDN DNS Records
List KEY DNS Records
List Mail Agent DNS Records
List Mailbox DNS Records
List Mail Exchanger DNS Records
List Mail Forwarding Agent DNS Records
List Mail Group DNS Records
List Mail Information DNS Records
List Mailbox Rename DNS Records
List Next DNS Records
List Name Server DNS Records
List Pointer DNS Records
List Responsible PersonDNS Records
List Route Through DNS Records
List Start of Authority DNS Records
List Service DNS Records
Returns information about all the signature (SIG) resource records on a DNS server.
List Text DNS Records
List Well-Known Services DNS Records
List WINS DNS Records
List WINS Reverse Lookup DNS Records
List X.25 DNS Records
You can use any of the VBScript programs below in ActiveXperts Network Monitor. Click here for an explanation about how to include scripts in ActiveXperts Network Monitor.
Create an Andrew File System Database Server DNS Record
Creates an Andrew File System Database Server (AFSDB) record on a DNS server.
strDNSServer = "atl-dc-03.fabrikam.com" strContainer = "fabrikam.com" strOwner = "atl-srv-01.fabrikam.com" intRecordClass = 1 intTTL = 600 intSubtype = 1 strServerName = "afs.fabrikam.com" strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & _ "\root\MicrosoftDNS") Set objItem = objWMIService.Get("MicrosoftDNS_AFSDBType") errResult = objItem.CreateInstanceFromPropertyData _ (strDNSServer, strContainer, strOwner, intRecordClass, intTTL, _ intSubType, strServerName)
Create an ATM Address to Name DNS Record
Creates an ATM address to name (ATMA) record on a DNS server.
strDNSServer = "atl-dc-03.fabrikam.com" strContainer = "fabrikam.com" strOwner = "atm.fabrikam.com" intRecordClass = 1 intTTL = 600 intFormat = 1 strATMAddress = "47.0079.00010200000000000000.00a03e000002.00" strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & _ "\root\MicrosoftDNS") Set objItem = objWMIService.Get("MicrosoftDNS_ATMAType") errResult = objItem.CreateInstanceFromPropertyData _ (strDNSServer, strContainer, strOwner, intRecordClass, intTTL, _ intFormat, strATMAddress)
Create an IPv6 Address DNS Record
Creates an IPv6 address record (AAAA) on a DNS server.
strDNSServer = "atl-dc-03.fabrikam.com" strContainer = "fabrikam.com" strOwner = "ipv6.fabrikam.com" intRecordClass = 1 intTTL = 600 strIPv6Address = "4321:0:1:2:3:4:567:89ab" strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & _ "\root\MicrosoftDNS") Set objItem = objWMIService.Get("MicrosoftDNS_AAAAType") errResult = objItem.CreateInstanceFromPropertyData _ (strDNSServer, strContainer, strOwner, intRecordClass, _ intTTL, strIPv6Address)
Create a Mail Agent for Domain DNS Record
Creates a mail agent for domain (MD) record on a DNS server.
strDNSServer = "atl-dc-03.fabrikam.com" strContainer = "fabrikam.com" strOwner = "workstation5.fabrikam.com" intRecordClass = 1 intTTL = 600 strMailAgent = "mailagent.fabrikam.com" strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & _ "\root\MicrosoftDNS") Set objItem = objWMIService.Get("MicrosoftDNS_MDType") errResult = objItem.CreateInstanceFromPropertyData _ (strDNSServer, strContainer, strOwner, intRecordClass, intTTL, _ strMailAgent)
Create a Mailbox DNS Record
Creates a mailbox (MB) record on a DNS server.
strDNSServer = "atl-dc-03.fabrikam.com" strContainer = "fabrikam.com" strOwner = "atl-srv-01.fabrikam.com" intRecordClass = 1 intTTL = 600 strMailboxHost = "admin.mailserver.fabrikam.com" strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & _ "\root\MicrosoftDNS") Set objItem = objWMIService.Get("MicrosoftDNS_MBType") errResult = objItem.CreateInstanceFromPropertyData _ (strDNSServer, strContainer, strOwner, intRecordClass, _ intTTL, strMailboxHost)
Create a Mail Exchanger DNS Record
Creates a mail exchanger (MX) record on a DNS server.
strDNSServer = "atl-dc-03.fabrikam.com" strContainer = "fabrikam.com" strOwner = "atl-srv-01.fabrikam.com" intRecordClass = 1 intTTL = 600 intPreference = 0 strMailExchanger = "mailexchanger.fabrikam.com" strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & _ "\root\MicrosoftDNS") Set objItem = objWMIService.Get("MicrosoftDNS_MXType") errResult = objItem.CreateInstanceFromPropertyData _ (strDNSServer, strContainer, strOwner, intRecordClass, intTTL, _ intPreference, strMailExchanger)
Create a Mail Forwarding Agent DNS Record
Creates a mail forwarding agent (MF) record on a DNS server.
strDNSServer = "atl-dc-03.fabrikam.com" strContainer = "fabrikam.com" strOwner = "atl-srv-01.fabrikam.com" intRecordClass = 1 intTTL = 600 strMailForwarder = "mailforwarder.fabrikam.com" strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & _ "\root\MicrosoftDNS") Set objItem = objWMIService.Get("MicrosoftDNS_MFType") errResult = objItem.CreateInstanceFromPropertyData _ (strDNSServer, strContainer, strOwner, intRecordClass, _ intTTL, strMailForwarder)
Create a Mail Group DNS Record
Creates a mail group (MG) record on a DNS server.
strDNSServer = "atl-dc-03.fabrikam.com" strContainer = "fabrikam.com" strOwner = "admin.fabrikam.com" intRecordClass = 1 intTTL = 600 strMailbox = "netadmins.fabrikam.com" strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & _ "\root\MicrosoftDNS") Set objItem = objWMIService.Get("MicrosoftDNS_MGType") errResult = objItem.CreateInstanceFromPropertyData _ (strDNSServer, strContainer, strOwner, intRecordClass, intTTL, strMailbox)
Create a Mail Information DNS Record
Creates a mail information (MI) record on a DNS server.
strDNSServer = "atl-dc-03.fabrikam.com" strContainer = "fabrikam.com" strOwner = "administrator.fabrikam.com" intRecordClass = 1 intTTL = 600 strAdminMailbox = "dnsadmin.fabrikam.com" strErrorMailbox = "support.fabrikam.com" strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & _ "\root\MicrosoftDNS") Set objItem = objWMIService.Get("MicrosoftDNS_MInfoType") errResult = objItem.CreateInstanceFromPropertyData _ (strDNSServer, strContainer, strOwner, intRecordClass, intTTL, _ strAdminMailbox, strErrorMailbox)
Create a Mailbox Rename DNS Record
Creates a mailbox rename (MR) record on a DNS server.
strDNSServer = "atl-dc-03.fabrikam.com" strContainer = "fabrikam.com" strOwner = "old-mailbox.fabrikam.com" intRecordClass = 1 intTTL = 600 strMailbox = "newmailbox.fabrikam.com" strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & _ "\root\MicrosoftDNS") Set objItem = objWMIService.Get("MicrosoftDNS_MRType") errResult = objItem.CreateInstanceFromPropertyData _ (strDNSServer, strContainer, strOwner, intRecordClass, intTTL, strMailbox)
Create a Name Server DNS Record
Creates a name server (NS) record on a DNS server.
strDNSServer = "atl-dc-03.fabrikam.com" strContainer = "fabrikam.com" strOwner = "atl-srv-01.fabrikam.com" intRecordClass = 1 intTTL = 600 strNSHost = "nameserver.fabrikam.com" strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & _ "\root\MicrosoftDNS") Set objItem = objWMIService.Get("MicrosoftDNS_NSType") errResult = objItem.CreateInstanceFromPropertyData _ (strDNSServer, strContainer, strOwner, intRecordClass, intTTL, strNSHost)
Create a Responsible Person DNS Record
Creates a responsible person (RP) record on a DNS server.
strDNSServer = "atl-dc-03.fabrikam.com" strContainer = "fabrikam.com" strOwner = "atl-srv-01.fabrikam.com" intRecordClass = 1 intTTL = 600 strRPMAilbox = "admin.fabrikam.com" strText = "Network Administrator, (555) 555-1219" strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & _ "\root\MicrosoftDNS") Set objItem = objWMIService.Get("MicrosoftDNS_RPType") errResult = objItem.CreateInstanceFromPropertyData _ (strDNSServer, strContainer, strOwner, intRecordClass, _ intTTL, strRPMailbox, strText)
Create a Route Through DNS Record
Creates a route through (RT) record on a DNS server.
strDNSServer = "atl-dc-03.fabrikam.com" strContainer = "fabrikam.com" strOwner = "atl-srv-01.fabrikam.com" intRecordClass = 1 intTTL = 600 intPreference = 1 strRouter = "router.fabrikam.com" strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & _ "\root\MicrosoftDNS") Set objItem = objWMIService.Get("MicrosoftDNS_RTType") errResult = objItem.CreateInstanceFromPropertyData _ (strDNSServer, strContainer, strOwner, intRecordClass, _ intTTL, intPreference, strRouter)
Create a Text DNS Record
Creates a text (TXT) record on a DNS server.
strDNSServer = "atl-dc-03.fabrikam.com" strContainer = "fabrikam.com" strOwner = "atl-dc-01.fabrikam.com" intRecordClass = 1 intTTL = 600 strText = "This domain is reserved for employees of Fabrikam." strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & _ "\root\MicrosoftDNS") Set objItem = objWMIService.Get("MicrosoftDNS_TXTType") errResult = objItem.CreateInstanceFromPropertyData _ (strDNSServer, strContainer, strOwner, intRecordClass, intTTL, strText)
Create a Well-Known Services DNS Record
Creates a well-known services (WKS) record on a DNS server.
strDNSServer = "atl-dc-03.fabrikam.com" strContainer = "fabrikam.com" strOwner = "ftp.fabrikam.com" intRecordClass = 1 intTTL = 600 strIPAddress = "192.168.1.150" strProtocol = "TCP" strServices = "FTP" strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & _ "\root\MicrosoftDNS") Set objItem = objWMIService.Get("MicrosoftDNS_WKSType") errResult = objItem.CreateInstanceFromPropertyData _ (strDNSServer, strContainer, strOwner, intRecordClass, intTTL, _ strIPAddress, strProtocol, strServices)
List Andrew File System Database Server DNS Records
Returns information about the Andrew File System database server (AFSDB) resource records on a DNS server.
strComputer = "." SSet objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & _ "\root\MicrosoftDNS") Set colItems = objWMIService.ExecQuery("Select * from MicrosoftDNS_AFSDBType") For Each objItem in colItems Wscript.Echo "Owner Name: " & objItem.OwnerName Wscript.Echo "Container Name: " & objItem.ContainerName Wscript.Echo "DNS Server Name: " & objItem.DnsServerName Wscript.Echo "Domain Name: " & objItem.DomainName Wscript.Echo "Record Class: " & objItem.RecordClass Wscript.Echo "Record Data: " & objItem.RecordData Wscript.Echo "Server Name: " & objItem.ServerName Wscript.Echo "Subtype: " & objItem.Subtype Wscript.Echo "Text Representation: " & objItem.TextRepresentation Wscript.Echo "Timestamp: " & objItem.Timestamp Wscript.Echo "Time-to-Live: " & objItem.TTL Wscript.Echo Next
List ATM Address to Name DNS Records
Returns information about the ATM address to name (ATMA) records on a DNS server.
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & _ "\root\MicrosoftDNS") Set colItems = objWMIService.ExecQuery("Select * from MicrosoftDNS_ATMAType") For Each objItem in colItems Wscript.Echo "Owner Name: " & objItem.OwnerName Wscript.Echo "ATM Address: " & objItem.ATMAddress Wscript.Echo "Container Name: " & objItem.ContainerName Wscript.Echo "DNS Server Name: " & objItem.DnsServerName Wscript.Echo "Domain Name: " & objItem.DomainName Wscript.Echo "Format: " & objItem.Format Wscript.Echo "Record Class: " & objItem.RecordClass Wscript.Echo "Record Data: " & objItem.RecordData Wscript.Echo "Text Representation: " & objItem.TextRepresentation Wscript.Echo "Timestamp: " & objItem.Timestamp Wscript.Echo "Time-to-Live: " & objItem.TTL Wscript.Echo Next
List Canonical Name DNS Records
Returns information about the canonical name (CNAME) records on a DNS server.
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & _ "\root\MicrosoftDNS") Set colItems = objWMIService.ExecQuery("Select * from MicrosoftDNS_CNAMEType") For Each objItem in colItems Wscript.Echo "Owner Name: " & objItem.OwnerName Wscript.Echo "Primary Name: " & objItem.PrimaryName Wscript.Echo "Container Name: " & objItem.ContainerName Wscript.Echo "DNS Server Name: " & objItem.DnsServerName Wscript.Echo "Domain Name: " & objItem.DomainName Wscript.Echo "Record Class: " & objItem.RecordClass Wscript.Echo "Record Data: " & objItem.RecordData Wscript.Echo "Text Representation: " & objItem.TextRepresentation Wscript.Echo "Time-to-Live: " & objItem.TTL Wscript.Echo Next
List Host Address DNS Records
Returns information about the host address (A) resource records on a DNS server.
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & _ "\root\MicrosoftDNS") Set colItems = objWMIService.ExecQuery("Select * from MicrosoftDNS_AType") For Each objItem in colItems Wscript.Echo "IP Address: " & objItem.IPAddress Wscript.Echo "Owner Name: " & objItem.OwnerName Wscript.Echo "Container Name: " & objItem.ContainerName Wscript.Echo "DNS Server Name: " & objItem.DnsServerName Wscript.Echo "Domain Name: " & objItem.DomainName Wscript.Echo "Record Class: " & objItem.RecordClass Wscript.Echo "Record Data: " & objItem.RecordData Wscript.Echo "Text Representation: " & objItem.TextRepresentation Wscript.Echo "Time-to-Live: " & objItem.TTL Wscript.Echo Next
List Host Information DNS Records
Returns data about the host information (HINFO) records on a DNS server.
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & _ "\root\MicrosoftDNS") Set colItems = objWMIService.ExecQuery("Select * from MicrosoftDNS_HINFOType") For Each objItem in colItems Wscript.Echo "Owner Name: " & objItem.OwnerName Wscript.Echo "Container Name: " & objItem.ContainerName Wscript.Echo "CPU: " & objItem.CPU Wscript.Echo "DNS Server Name: " & objItem.DnsServerName Wscript.Echo "Domain Name: " & objItem.DomainName Wscript.Echo "Operating System: " & objItem.OS Wscript.Echo "Record Class: " & objItem.RecordClass Wscript.Echo "Record Data: " & objItem.RecordData Wscript.Echo "Text Representation: " & objItem.TextRepresentation Wscript.Echo "Timestamp: " & objItem.Timestamp Wscript.Echo "Time-to-Live: " & objItem.TTL Wscript.Echo Next
List IPv6 Address DNS Records
Returns information about all the IPv6 address (AAAA) resource records on a DNS server.
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & _ "\root\MicrosoftDNS") Set colItems = objWMIService.ExecQuery("Select * from MicrosoftDNS_AAAAType") For Each objItem in colItems Wscript.Echo "Owner Name: " & objItem.OwnerName Wscript.Echo "Container Name: " & objItem.ContainerName Wscript.Echo "DNS Server Name: " & objItem.DnsServerName Wscript.Echo "Domain Name: " & objItem.DomainName Wscript.Echo "IPv6 Address: " & objItem.IPv6Address Wscript.Echo "Record Class: " & objItem.RecordClass Wscript.Echo "Record Data: " & objItem.RecordData Wscript.Echo "Text Representation: " & objItem.TextRepresentation Wscript.Echo "Timestamp: " & objItem.Timestamp Wscript.Echo "Time-to-Live: " & objItem.TTL Wscript.Echo Next
List ISDN DNS Records
Returns information about the ISDN resource records on a DNS server.
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & _ "\root\MicrosoftDNS") Set colItems = objWMIService.ExecQuery("Select * from MicrosoftDNS_ISDNType") For Each objItem in colItems Wscript.Echo "Owner Name: " & objItem.OwnerName Wscript.Echo "Container Name: " & objItem.ContainerName Wscript.Echo "DNS Serve Name: " & objItem.DnsServerName Wscript.Echo "Domain Name: " & objItem.DomainName Wscript.Echo "ISDN Number: " & objItem.ISDNNumber Wscript.Echo "Record Class: " & objItem.RecordClass Wscript.Echo "Record Data: " & objItem.RecordData Wscript.Echo "SubAddress: " & objItem.SubAddress Wscript.Echo "Text Representation: " & objItem.TextRepresentation Wscript.Echo "Timestamp: " & objItem.Timestamp Wscript.Echo "Time-to-Live: " & objItem.TTL Wscript.Echo Next
List KEY DNS Records
Returns information about the KEY resource records on a DNS server.
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & _ "\root\MicrosoftDNS") Set colItems = objWMIService.ExecQuery("Select * from MicrosoftDNS_KEYType") For Each objItem in colItems Wscript.Echo "Owner Name: " & objItem.OwnerName Wscript.Echo "Algorithm: " & objItem.Algorithm Wscript.Echo "Container Name: " & objItem.ContainerName Wscript.Echo "DNS Server Name: " & objItem.DnsServerName Wscript.Echo "Domain Name: " & objItem.DomainName Wscript.Echo "Flags: " & objItem.Flags Wscript.Echo "Protocol: " & objItem.Protocol Wscript.Echo "Public Key: " & objItem.PublicKey Wscript.Echo "Record Class: " & objItem.RecordClass Wscript.Echo "Record Data: " & objItem.RecordData Wscript.Echo "Text Representation: " & objItem.TextRepresentation Wscript.Echo "Timestamp: " & objItem.Timestamp Wscript.Echo "Time-to-Live: " & objItem.TTL Wscript.Echo Next
List Mail Agent DNS Records
Returns information about the mail agent for domain (MD) records on a DNS server.
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & _ "\root\MicrosoftDNS") Set colItems = objWMIService.ExecQuery("Select * from MicrosoftDNS_MDType") For Each objItem in colItems Wscript.Echo "Owner Name: " & objItem.OwnerName Wscript.Echo "Container Name: " & objItem.ContainerName Wscript.Echo "DNS Server Name: " & objItem.DnsServerName Wscript.Echo "Domain Name: " & objItem.DomainName Wscript.Echo "MD Host: " & objItem.MDHost Wscript.Echo "Record Class: " & objItem.RecordClass Wscript.Echo "Record Data: " & objItem.RecordData Wscript.Echo "Text Representation: " & objItem.TextRepresentation Wscript.Echo "Timestamp: " & objItem.Timestamp Wscript.Echo "Time-to-Live: " & objItem.TTL Wscript.Echo Next
List Mailbox DNS Records
Returns information about all the mailbox (MB) records on a DNS server.
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & _ "\root\MicrosoftDNS") Set colItems = objWMIService.ExecQuery("Select * from MicrosoftDNS_MBType") For Each objItem in colItems Wscript.Echo "Owner Name: " & objItem.OwnerName Wscript.Echo "Container Name: " & objItem.ContainerName Wscript.Echo "DNS Server Name: " & objItem.DnsServerName Wscript.Echo "Domain Name: " & objItem.DomainName Wscript.Echo "MB Host: " & objItem.MBHost Wscript.Echo "Record Class: " & objItem.RecordClass Wscript.Echo "Record Data: " & objItem.RecordData Wscript.Echo "Text Representation: " & objItem.TextRepresentation Wscript.Echo "Timestamp: " & objItem.Timestamp Wscript.Echo "Time-to-Live: " & objItem.TTL Wscript.Echo Next
List Mail Exchanger DNS Records
Returns information about the mail exchanger (MX) records on a DNS server.
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & _ "\root\MicrosoftDNS") Set colItems = objWMIService.ExecQuery("Select * from MicrosoftDNS_MXType") For Each objItem in colItems Wscript.Echo "Owner Name: " & objItem.OwnerName Wscript.Echo "Container Name: " & objItem.ContainerName Wscript.Echo "DNS sServer Name: " & objItem.DnsServerName Wscript.Echo "Domain Name: " & objItem.DomainName Wscript.Echo "Mail Exchange: " & objItem.MailExchange Wscript.Echo "Preference: " & objItem.Preference Wscript.Echo "Record Class: " & objItem.RecordClass Wscript.Echo "Record Data: " & objItem.RecordData Wscript.Echo "Text Representation: " & objItem.TextRepresentation Wscript.Echo "Timestamp: " & objItem.Timestamp Wscript.Echo "Time-to-Live: " & objItem.TTL Wscript.Echo Next
List Mail Forwarding Agent DNS Records
Returns information about the mail forwarding agent (MF) records on a DNS server.
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & _ "\root\MicrosoftDNS") Set colItems = objWMIService.ExecQuery("Select * from MicrosoftDNS_MFType") For Each objItem in colItems Wscript.Echo "Owner Name: " & objItem.OwnerName Wscript.Echo "Container Name: " & objItem.ContainerName Wscript.Echo "DNS Server Name: " & objItem.DnsServerName Wscript.Echo "Domain Name: " & objItem.DomainName Wscript.Echo "MF Host: " & objItem.MFHost Wscript.Echo "Record Class: " & objItem.RecordClass Wscript.Echo "Record Data: " & objItem.RecordData Wscript.Echo "Text Representation: " & objItem.TextRepresentation Wscript.Echo "Timestamp: " & objItem.Timestamp Wscript.Echo "Time-to-Live: " & objItem.TTL Wscript.Echo Next
List Mail Group DNS Records
Returns information about the mail group (MG) resource records on a DNS server.
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & _ "\root\MicrosoftDNS") Set colItems = objWMIService.ExecQuery("Select * from MicrosoftDNS_MGType") For Each objItem in colItems Wscript.Echo "Owner Name: " & objItem.OwnerName Wscript.Echo "Container Name: " & objItem.ContainerName Wscript.Echo "DNS Server Name: " & objItem.DnsServerName Wscript.Echo "Domain Name: " & objItem.DomainName Wscript.Echo "MG Mailbox: " & objItem.MGMailbox Wscript.Echo "Record Class: " & objItem.RecordClass Wscript.Echo "Record Data: " & objItem.RecordData Wscript.Echo "Text Representation: " & objItem.TextRepresentation Wscript.Echo "Timestamp: " & objItem.Timestamp Wscript.Echo "Time-to-Live: " & objItem.TTL Wscript.Echo Next
List Mail Information DNS Records
Returns data about the mail information (MINFO) records on a DNS server.
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & _ "\root\MicrosoftDNS") Set colItems = objWMIService.ExecQuery("Select * from MicrosoftDNS_MINFOType") For Each objItem in colItems Wscript.Echo "Owner Name: " & objItem.OwnerName Wscript.Echo "Container Name: " & objItem.ContainerName Wscript.Echo "DNS Server Name: " & objItem.DnsServerName Wscript.Echo "Domain Name: " & objItem.DomainName Wscript.Echo "Error Mailbox: " & objItem.ErrorMailbox Wscript.Echo "Record Class: " & objItem.RecordClass Wscript.Echo "Record Data: " & objItem.RecordData Wscript.Echo "Responsible Mailbox: " & objItem.ResponsibleMailbox Wscript.Echo "Text Representation: " & objItem.TextRepresentation Wscript.Echo "Timestamp: " & objItem.Timestamp Wscript.Echo "Time-to-Live: " & objItem.TTL Wscript.Echo Next
List Mailbox Rename DNS Records
Returns information about the mailbox rename (MR) records on a DNS server.
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & _ "\root\MicrosoftDNS") Set colItems = objWMIService.ExecQuery("Select * from MicrosoftDNS_MRType") For Each objItem in colItems Wscript.Echo "Owner Name: " & objItem.OwnerName Wscript.Echo "Container Name: " & objItem.ContainerName Wscript.Echo "DNS ServerName: " & objItem.DnsServerName Wscript.Echo "Domain Name: " & objItem.DomainName Wscript.Echo "MR Mailbox: " & objItem.MRMailbox Wscript.Echo "Record Class: " & objItem.RecordClass Wscript.Echo "Record Data: " & objItem.RecordData Wscript.Echo "Text Representation: " & objItem.TextRepresentation Wscript.Echo "Timestamp: " & objItem.Timestamp Wscript.Echo "Time-to-Live: " & objItem.TTL Wscript.Echo Next
List Next DNS Records
Returns information about the next (NXT) resource records on a DNS server.
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & _ "\root\MicrosoftDNS") Set colItems = objWMIService.ExecQuery("Select * from MicrosoftDNS_NXTType") For Each objItem in colItems Wscript.Echo "Owner Name: " & objItem.OwnerName Wscript.Echo "Container Name: " & objItem.ContainerName Wscript.Echo "DNS Server Name: " & objItem.DnsServerName Wscript.Echo "Domain Name: " & objItem.DomainName Wscript.Echo "Next Domain Name: " & objItem.NextDomainName Wscript.Echo "Record Class: " & objItem.RecordClass Wscript.Echo "Record Data: " & objItem.RecordData Wscript.Echo "Text Representation: " & objItem.TextRepresentation Wscript.Echo "Timestamp: " & objItem.Timestamp Wscript.Echo "Time-to-Live: " & objItem.TTL Wscript.Echo "Types: " & objItem.Types Wscript.Echo Next
List Name Server DNS Records
Returns information about the name server (NS) records on a DNS server.
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & _ "\root\MicrosoftDNS") Set colItems = objWMIService.ExecQuery("Select * from MicrosoftDNS_NSType") For Each objItem in colItems Wscript.Echo "Owner Name: " & objItem.OwnerName Wscript.Echo "Container Name: " & objItem.ContainerName Wscript.Echo "DNS Server Name: " & objItem.DnsServerName Wscript.Echo "Domain Name: " & objItem.DomainName Wscript.Echo "NS Host: " & objItem.NSHost Wscript.Echo "Record Class: " & objItem.RecordClass Wscript.Echo "Record Data: " & objItem.RecordData Wscript.Echo "Text Representation: " & objItem.TextRepresentation Wscript.Echo "Timestamp: " & objItem.Timestamp Wscript.Echo "Time-to-Live: " & objItem.TTL Wscript.Echo Next
List Pointer DNS Records
Returns information about all the pointer (PTR) records on a DNS server.
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & _ "\root\MicrosoftDNS") Set colItems = objWMIService.ExecQuery("Select * from MicrosoftDNS_PTRType") For Each objItem in colItems Wscript.Echo "Owner Name: " & objItem.OwnerName Wscript.Echo "Container Name: " & objItem.ContainerName Wscript.Echo "DNS Server Name: " & objItem.DnsServerName Wscript.Echo "Domain Name: " & objItem.DomainName Wscript.Echo "PTR Domain Name: " & objItem.PTRDomainName Wscript.Echo "Record Class: " & objItem.RecordClass Wscript.Echo "Record Data: " & objItem.RecordData Wscript.Echo "Text Representation: " & objItem.TextRepresentation Wscript.Echo "Timestamp: " & objItem.Timestamp Wscript.Echo "Time-to-Live: " & objItem.TTL Wscript.Echo Next
List Responsible PersonDNS Records
Returns information about the responsible person (RP) records on a DNS server.
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & _ "\root\MicrosoftDNS") Set colItems = objWMIService.ExecQuery("Select * from MicrosoftDNS_RPType") For Each objItem in colItems Wscript.Echo "Owner Name: " & objItem.OwnerName Wscript.Echo "Container Name: " & objItem.ContainerName Wscript.Echo "DNS sServer Name: " & objItem.DnsServerName Wscript.Echo "Domain Name: " & objItem.DomainName Wscript.Echo "Record Class: " & objItem.RecordClass Wscript.Echo "Record Data: " & objItem.RecordData Wscript.Echo "RP Mailbox: " & objItem.RPMailbox Wscript.Echo "Text Representation: " & objItem.TextRepresentation Wscript.Echo "Timestamp: " & objItem.Timestamp Wscript.Echo "Time-to-Live: " & objItem.TTL Wscript.Echo "TXT Domain Name: " & objItem.TXTDomainName Wscript.Echo Next
List Route Through DNS Records
Returns information about the route through (RT) records on a DNS server.
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & _ "\root\MicrosoftDNS") Set colItems = objWMIService.ExecQuery("Select * from MicrosoftDNS_RTType") For Each objItem in colItems Wscript.Echo "Owner Name: " & objItem.OwnerName Wscript.Echo "Container Name: " & objItem.ContainerName Wscript.Echo "DNS Server Name: " & objItem.DnsServerName Wscript.Echo "Domain Name: " & objItem.DomainName Wscript.Echo "Intermediate Host: " & objItem.IntermediateHost Wscript.Echo "Preference: " & objItem.Preference Wscript.Echo "Record Class: " & objItem.RecordClass Wscript.Echo "Record Data: " & objItem.RecordData Wscript.Echo "Text Representation: " & objItem.TextRepresentation Wscript.Echo "Timestamp: " & objItem.Timestamp Wscript.Echo "Time-to-Live: " & objItem.TTL Wscript.Echo Next
List Start of Authority DNS Records
Returns information about all the start of authority (SOA) records on a DNS server.
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & _ "\root\MicrosoftDNS") Set colItems = objWMIService.ExecQuery("Select * from MicrosoftDNS_SOAType") For Each objItem in colItems Wscript.Echo "Owner Name: " & objItem.OwnerName Wscript.Echo "Container Name: " & objItem.ContainerName Wscript.Echo "DNS Server Name: " & objItem.DnsServerName Wscript.Echo "Domain Name: " & objItem.DomainName Wscript.Echo "Expire Limit: " & objItem.ExpireLimit Wscript.Echo "Minimum Time-to-Live: " & objItem.MinimumTTL Wscript.Echo "Primary Server: " & objItem.PrimaryServer Wscript.Echo "Record Class: " & objItem.RecordClass Wscript.Echo "Record Data: " & objItem.RecordData Wscript.Echo "Refresh Interval: " & objItem.RefreshInterval Wscript.Echo "Responsible Party: " & objItem.ResponsibleParty Wscript.Echo "Retry Delay: " & objItem.RetryDelay Wscript.Echo "Serial Number: " & objItem.SerialNumber Wscript.Echo "Text Representation: " & objItem.TextRepresentation Wscript.Echo "Time-to-Live: " & objItem.TTL Wscript.Echo Next
List Service DNS Records
Returns information about all the service (SRV) records on a DNS server.
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & _ "\root\MicrosoftDNS") Set colItems = objWMIService.ExecQuery("Select * from MicrosoftDNS_SRVType") For Each objItem in colItems Wscript.Echo "Owner Name: " & objItem.OwnerName Wscript.Echo "Container Name: " & objItem.ContainerName Wscript.Echo "DNS Server Name: " & objItem.DnsServerName Wscript.Echo "Domain Name: " & objItem.DomainName Wscript.Echo "Port: " & objItem.Port Wscript.Echo "Priority: " & objItem.Priority Wscript.Echo "Record Class: " & objItem.RecordClass Wscript.Echo "Record Data: " & objItem.RecordData Wscript.Echo "Text Representation: " & objItem.TextRepresentation Wscript.Echo "Time-to-Live: " & objItem.TTL Wscript.Echo "Weight: " & objItem.Weight Wscript.Echo Next
Returns information about all the signature (SIG) resource records on a DNS server.
List Signature DNS Records
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & _ "\root\MicrosoftDNS") Set colItems = objWMIService.ExecQuery("Select * from MicrosoftDNS_SIGType") For Each objItem in colItems Wscript.Echo "Owner Name: " & objItem.OwnerName Wscript.Echo "Algorithm: " & objItem.Algorithm Wscript.Echo "Container Name: " & objItem.ContainerName Wscript.Echo "DNS Server Name: " & objItem.DnsServerName Wscript.Echo "Domain Name: " & objItem.DomainName Wscript.Echo "Key Tag: " & objItem.KeyTag Wscript.Echo "Labels: " & objItem.Labels Wscript.Echo "Original Time-to-Live: " & objItem.OriginalTTL Wscript.Echo "Record Class: " & objItem.RecordClass Wscript.Echo "Record Data: " & objItem.RecordData Wscript.Echo "Signature: " & objItem.Signature Wscript.Echo "Signature Expiration: " & objItem.SignatureExpiration Wscript.Echo "Signature Inception: " & objItem.SignatureInception Wscript.Echo "Signer Name: " & objItem.SignerName Wscript.Echo "Text Representation: " & objItem.TextRepresentation Wscript.Echo "Timestamp: " & objItem.Timestamp Wscript.Echo "Time-to-Live: " & objItem.TTL Wscript.Echo "Type Covered: " & objItem.TypeCovered Wscript.Echo Next
List Text DNS Records
Returns information about all the text (TXT) records on a DNS server.
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & _ "\root\MicrosoftDNS") Set colItems = objWMIService.ExecQuery("Select * from MicrosoftDNS_TXTType") For Each objItem in colItems Wscript.Echo "Owner Name: " & objItem.OwnerName Wscript.Echo "Container Name: " & objItem.ContainerName Wscript.Echo "Descriptive Text: " & objItem.DescriptiveText Wscript.Echo "DNS Server Name: " & objItem.DnsServerName Wscript.Echo "Domain Name: " & objItem.DomainName Wscript.Echo "Record Class: " & objItem.RecordClass Wscript.Echo "Record Data: " & objItem.RecordData Wscript.Echo "Text Representation: " & objItem.TextRepresentation Wscript.Echo "Timestamp: " & objItem.Timestamp Wscript.Echo "Time-to-Live: " & objItem.TTL Wscript.Echo Next
List Well-Known Services DNS Records
Returns information about all the well-known services (WKS) records on a DNS server.
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & _ "\root\MicrosoftDNS") Set colItems = objWMIService.ExecQuery("Select * from MicrosoftDNS_WKSType") For Each objItem in colItems Wscript.Echo "Owner Name: " & objItem.OwnerName Wscript.Echo "Container Name: " & objItem.ContainerName Wscript.Echo "DNS Server Name: " & objItem.DnsServerName Wscript.Echo "Domain Name: " & objItem.DomainName Wscript.Echo "Internet Address: " & objItem.InternetAddress Wscript.Echo "IP Protocol: " & objItem.IPProtocol Wscript.Echo "Record Class: " & objItem.RecordClass Wscript.Echo "Record Data: " & objItem.RecordData Wscript.Echo "Services: " & objItem.Services Wscript.Echo "Text Representation: " & objItem.TextRepresentation Wscript.Echo "Timestamp: " & objItem.Timestamp Wscript.Echo "Time-to-Live: " & objItem.TTL Wscript.Echo Next
List WINS DNS Records
Returns information about all the Windows Internet Name Service (WINS) records on a DNS server.
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & _ "\root\MicrosoftDNS") Set colItems = objWMIService.ExecQuery("Select * from MicrosoftDNS_WINSType") For Each objItem in colItems Wscript.Echo "Owner Name: " & objItem.OwnerName Wscript.Echo "Cache Timeout: " & objItem.CacheTimeout Wscript.Echo "Container Name: " & objItem.ContainerName Wscript.Echo "DNS Server Name: " & objItem.DnsServerName Wscript.Echo "Domain Name: " & objItem.DomainName Wscript.Echo "Lookup Timeout: " & objItem.LookupTimeout Wscript.Echo "Mapping Flag: " & objItem.MappingFlag Wscript.Echo "Record Class: " & objItem.RecordClass Wscript.Echo "Record Data: " & objItem.RecordData Wscript.Echo "Text Representation: " & objItem.TextRepresentation Wscript.Echo "Timestamp: " & objItem.Timestamp Wscript.Echo "Time-to-Live : " & objItem.TTL Wscript.Echo "WINS Servers: " & objItem.WinsServers Wscript.Echo Next
List WINS Reverse Lookup DNS Records
Returns information about all the Windows Internet Name Service (WINS) reverse lookup records on a DNS server.
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & _ "\root\MicrosoftDNS") Set colItems = objWMIService.ExecQuery("Select * from MicrosoftDNS_WINSRType") For Each objItem in colItems Wscript.Echo "Owner Name: " & objItem.OwnerName Wscript.Echo "Cache Timeout: " & objItem.CacheTimeout Wscript.Echo "Container Name: " & objItem.ContainerName Wscript.Echo "DNS Server Name: " & objItem.DnsServerName Wscript.Echo "Domain Name: " & objItem.DomainName Wscript.Echo "Lookup Timeout: " & objItem.LookupTimeout Wscript.Echo "Mapping Flag: " & objItem.MappingFlag Wscript.Echo "Record Class: " & objItem.RecordClass Wscript.Echo "Record Data: " & objItem.RecordData Wscript.Echo "Result Domain: " & objItem.ResultDomain Wscript.Echo "Text Representation: " & objItem.TextRepresentation Wscript.Echo "Timestamp: " & objItem.Timestamp Wscript.Echo "Time-to-Live: " & objItem.TTL Wscript.Echo Next
List X.25 DNS Records
Returns information about all the X.25 records on a DNS server.
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & _ "\root\MicrosoftDNS") Set colItems = objWMIService.ExecQuery("Select * from MicrosoftDNS_X25Type") For Each objItem in colItems Wscript.Echo "Owner Name: " & objItem.OwnerName Wscript.Echo "Container Name: " & objItem.ContainerName Wscript.Echo "DNS Server Name: " & objItem.DnsServerName Wscript.Echo "Domain Name: " & objItem.DomainName Wscript.Echo "PSDN Address: " & objItem.PSDNAddress Wscript.Echo "Record Class: " & objItem.RecordClass Wscript.Echo "Record Data: " & objItem.RecordData Wscript.Echo "Text Representation: " & objItem.TextRepresentation Wscript.Echo "Timestamp: " & objItem.Timestamp Wscript.Echo "Time-to-Live: " & objItem.TTL Wscript.Echo Next