Solved

DNS Export List Command Line or Script?

Posted on 2008-06-17
5
1,892 Views
Last Modified: 2008-07-04
On a Server 2003 DNS server, I can go into DNS and right-click a zone and "Export List".

Is there a way to do this in a command line or in a script, such as WMI?

I tried using dnscmd /WriteBackZone ("write back zone to file") but it won't let me specify the file and I can't find any file that it supposedly wrote back to.

I don't care what the method is, as long as I can incorporate it into some kind of script.

Thanks.
0
Comment
Question by:gateguard
  • 3
5 Comments
 

Expert Comment

by:jlib99
ID: 21803532
0
 
LVL 71

Accepted Solution

by:
Chris Dent earned 500 total points
ID: 21804380

All files written by DNSCMD are placed in %SystemRoot%\System32\DNS\.

You can export the zone in it's entirety. e.g.:

dnscmd server1 /ZoneExport domain.com domain.com.dns.txt

Where domain.com.dns.txt is the file name and will be in the path above on server1.

It is all exposed in WMI as well, so, depending on what you'd like to do with it, you might find that more useful. I can provide specific examples if you need.

Chris
0
 

Author Comment

by:gateguard
ID: 21805093
Thanks, Chris.  /ZoneExport only works on 2003 servers and I want to run the script from a 2000 server so if you happen to have a WMI script to do the same thing I would be greatly grateful.
0
 
LVL 71

Expert Comment

by:Chris Dent
ID: 21916176

Sure, give me a little time, I'll have to rebuild the zone entirely from the various pieces of WMI.

Afraid I have nothing to test it against either, I'll have to bug you to do that bit for me :)

Chris
0
 
LVL 71

Expert Comment

by:Chris Dent
ID: 21933312

This will build a fairly basic version of the zone from WMI. Correct the File and Zone name values at the top.

Service Records are quite a bother to extract, do you need those?

Chris

Const ZONE_NAME = "domain.com"
Const ZONE_FILE = "domain.com.dns"
 
Function GetSOARecord
	Dim colItems
	Dim objItem
	Dim strRecord
 
	Set colItems = objWMIService.ExecQuery("SELECT * FROM MicrosoftDNS_SOAType " &_
		"WHERE DomainName='" & ZONE_NAME & "'", "WQL")
 
	For Each objItem in colItems
		strRecord = "@" & VbTab & " IN SOA " & objItem.RecordData & VbCrLf
	Next
 
	Set colItems = Nothing
 
	GetSOARecord = strRecord
End Function
 
Function GetNSRecords
	Dim colItems
	Dim objItem
	Dim strRecords
 
	Set colItems = objWMIService.ExecQuery("SELECT * FROM MicrosoftDNS_NSType " &_
		"WHERE DomainName='" & ZONE_NAME & "'", "WQL")
 
	For Each objItem in colItems
		strRecords = strRecords & "@" & VbTab & " IN NS " &_
			objItem.RecordData & VbCrLf
	Next
 
	Set colItems = Nothing
 
	GetNSRecords = strRecords
End Function
 
Function GetMXRecords
	Dim colItems
	Dim objItem
	Dim strRecords
 
	Set colItems = objWMIService.ExecQuery("SELECT * FROM MicrosoftDNS_MXType " &_
		"WHERE DomainName='" & ZONE_NAME & "'", "WQL")
 
	For Each objItem in colItems
		strRecords = strRecords & "@" & VbTab & " IN MX " &_
			objItem.RecordData & VbCrLf
	Next
 
	Set colItems = Nothing
 
	GetMXRecords = strRecords
End Function
 
Function GetCNAMERecords
	Dim colItems
	Dim objItem
	Dim strRecords, strNode
 
	Set colItems = objWMIService.ExecQuery("SELECT * FROM MicrosoftDNS_CNAMEType " &_
		"WHERE DomainName='" & ZONE_NAME & "'", "WQL")
 
	For Each objItem in colItems
		strNode = Replace(objItem.OwnerName, "." & ZONE_NAME, "", 1, -1, VbTextCompare)
		strRecords = strRecords & strNode & VbTab & " IN CNAME " &_
			objItem.RecordData & VbCrLf
	Next
 
	Set colItems = Nothing
 
	GetCNAMERecords = strRecords
End Function
 
Function GetARecords
	Dim colItems
	Dim objItem
	Dim strRecords, strNode
 
	Set colItems = objWMIService.ExecQuery("SELECT * FROM MicrosoftDNS_AType " &_
		"WHERE DomainName='" & ZONE_NAME & "'", "WQL")
 
	For Each objItem in colItems
		strNode = Replace(objItem.OwnerName, "." & ZONE_NAME, "", 1, -1, VbTextCompare)
		strRecords = strRecords & strNode & VbTab & " IN A " &_
			objItem.RecordData & VbCrLf
	Next
 
	Set colItems = Nothing
 
	GetARecords = strRecords
End Function
 
 
Dim objWMIService, objFileSystem, objFile
 
Set objWMIService = GetObject("winmgmts:\\.\root\MicrosoftDNS")
 
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
Set objFile = objFileSystem.OpenTextFile(ZONE_FILE, 2, True, 0)
 
objFile.WriteLine GetSOARecord
objFile.WriteLine GetNSRecords
objFile.WriteLine GetMXRecords
objFile.WriteLine GetCNAMERecords
objFile.WriteLine GetARecords
 
Set objFile = Nothing
Set objFileSystem = Nothing
 
Set objWMIService = Nothing

Open in new window

0

Featured Post

Webinar: Aligning, Automating, Winning

Join Dan Russo, Senior Manager of Operations Intelligence, for an in-depth discussion on how Dealertrack, leading provider of integrated digital solutions for the automotive industry, transformed their DevOps processes to increase collaboration and move with greater velocity.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Windows server:  Forwarding to 8.8.8.8 vs using root hints 2 32
domian network access 5 31
DNS zone 3 49
DNS/WINS in a domain 10 37
I will assume you are running a non-server version of some sort of Windows throughout this article. There are many flavors of Windows since Windows Server 2000 - 2008, XP Home & Pro, Vista Home & Pro, and Windows 7 Starter, Home, Pro, Ultimate, etc.…
One of the most often confused topics in the area DNS is the idea of GLUE records. Specifically, what they are, when they are needed, when they are provided, and how they are created. First, WHAT IS GLUE? To understand GLUE, you must first under…
The Email Laundry PDF encryption service allows companies to send confidential encrypted  emails to anybody. The PDF document can also contain attachments that are embedded in the encrypted PDF. The password is randomly generated by The Email Laundr…

685 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question