Dejo .vbs para obtener el Listado de Registros de DNS:
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 "Registro: " & objItem.OwnerName & " ; " & "Apunta A: " & objItem.RecordData & " ; " & "Tipo: CNAME" Next Set colItems = objWMIService.ExecQuery("Select * from MicrosoftDNS_AType") For Each objItem in colItems Wscript.Echo "Registro: " & objItem.OwnerName & " ; " & "Apunta A: " & objItem.RecordData & " ; " & "Tipo: A" Next Set colItems = objWMIService.ExecQuery("Select * from MicrosoftDNS_MXType") For Each objItem in colItems Wscript.Echo "Registro: " & objItem.OwnerName & " ; " & "Apunta A: " & objItem.RecordData & " ; " & "Tipo: MX" Next Set colItems = objWMIService.ExecQuery("Select * from MicrosoftDNS_NSType") For Each objItem in colItems Wscript.Echo "Registro: " & objItem.OwnerName & " ; " & "Apunta A: " & objItem.RecordData & " ; " & "Tipo: NS" Next Set colItems = objWMIService.ExecQuery("Select * from MicrosoftDNS_PTRType") For Each objItem in colItems Wscript.Echo "Registro: " & objItem.OwnerName & " ; " & "Apunta A: " & objItem.RecordData & " ; " & "Tipo: PTR" Next Set colItems = objWMIService.ExecQuery("Select * from MicrosoftDNS_SOAType") For Each objItem in colItems Wscript.Echo "Registro: " & objItem.OwnerName & " ; " & "Apunta A: " & objItem.RecordData & " ; " & "Tipo: SOA" Next Set colItems = objWMIService.ExecQuery("Select * from MicrosoftDNS_SRVType") For Each objItem in colItems Wscript.Echo "Registro: " & objItem.OwnerName & " ; " & "Apunta A: " & objItem.RecordData & " ; " & "Tipo: SRV" Next
Más info: http://www.activexpe...ng/dns/records/