DNS Export List Command Line or Script?

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.
gateguardAsked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
Chris DentConnect With a Mentor PowerShell DeveloperCommented:

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
 
jlib99Commented:
0
 
gateguardAuthor Commented:
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
 
Chris DentPowerShell DeveloperCommented:

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
 
Chris DentPowerShell DeveloperCommented:

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
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.