Ir a contenido


MENSAJE DE BIENVENIDA Foro vínculado con Twitter, más info aquí.

“El secreto para progresar es empezar por algún lugar. El secreto para empezar por algún lugar es fragmentar tus complejas y abrumadoras tareas de tal manera que queden convertidas en pequeñas tareas que puedas realizar y entonces simplemente comenzar por la primera.” - Mark Twain

Foto

Obtener Listado de Registros DNS desde WMI


  • Please log in to reply
No replies to this topic

#1 Alberto Dominguez

Alberto Dominguez

    Gurú

  • Administradores
  • 1.059 Mensajes:
  • LocationMadrid

Escrito 10 octubre 2013 - 14:08

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/

 

 

 


Saludos,

Alberto Dominguez

Enterprise Architect y Trainer
MCT, MCPD, MCITP, MCITP Dynamics, MCSE, MCSA, MCTS, MCP...
ITIL V3 Foundation Qualification in IT Service Management
Imagen enviadaPerfil Profesional Imagen enviadaTwitter
Imagen enviadaImagen enviadaImagen enviadaImagen enviada

#2 Alberto Dominguez

Alberto Dominguez

    Gurú

  • Administradores
  • 1.059 Mensajes:
  • LocationMadrid

Escrito 15 septiembre 2015 - 15:29

Para consultar que CNAMEs apuntan a un determinado registro:

Get-WmiObject -Namespace Root\MicrosoftDNS -Query "SELECT * FROM MicrosoftDNS_CNAMEType WHERE RecordData='server01.contoso.net.'" -Computer 'localhost' | select OwnerName -expandproperty OwnerName

Saludos,

Alberto Dominguez

Enterprise Architect y Trainer
MCT, MCPD, MCITP, MCITP Dynamics, MCSE, MCSA, MCTS, MCP...
ITIL V3 Foundation Qualification in IT Service Management
Imagen enviadaPerfil Profesional Imagen enviadaTwitter
Imagen enviadaImagen enviadaImagen enviadaImagen enviada




0 usuarios están leyendo este tema

0 miembro/s, 0 invitado/s, 0 usuario/s anónimo/s