'GetDNS-CNames.vbs
'Keywords: DNS, WMI
'Usage: cscript GETDNS-CNames.vbs
'Sample script showiung how to use the MicrosoftDNS namespace in WMI.
'The target server must be running Windows 2003.
'Use Cscript to run this from a command line because it displays a lot
'of information.

'NOT INTENDED FOR PRODUCTION USE AS WRITTEN

On Error Resume Next
Dim strComputer
Dim objWMIService
Dim propValue
Dim objItem
Dim SWBemlocator
Dim UserName
Dim Password
Dim colItems

'Specify the name of the Windows 2003 DNS/DC
strComputer = "jdhit-dc01"
'Alternate credentials if you need them
UserName = ""
Password = ""
Set SWBemlocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = SWBemlocator.ConnectServer(strComputer,"\root\MicrosoftDNS",UserName,Password)
Set colItems = objWMIService.ExecQuery("Select * from MicrosoftDNS_CNAMEType",,48)
For Each objItem in colItems
	WScript.Echo "Caption: " & objItem.Caption
	WScript.Echo "ContainerName: " & objItem.ContainerName
	WScript.Echo "Description: " & objItem.Description
	WScript.Echo "DnsServerName: " & objItem.DnsServerName
	WScript.Echo "DomainName: " & objItem.DomainName
	WScript.Echo "InstallDate: " & objItem.InstallDate
	WScript.Echo "Name: " & objItem.Name
	WScript.Echo "OwnerName: " & objItem.OwnerName
	WScript.Echo "PrimaryName: " & objItem.PrimaryName
	WScript.Echo "RecordClass: " & objItem.RecordClass
	WScript.Echo "RecordData: " & objItem.RecordData
	WScript.Echo "Status: " & objItem.Status
	WScript.Echo "TextRepresentation: " & objItem.TextRepresentation
	WScript.Echo "Timestamp: " & objItem.Timestamp
	WScript.Echo "TTL: " & objItem.TTL
Next