Script pour vérifier que les enregistrements DNS SRV ont été créés pour un contrôleur de domaine

Voici un script qui permet de vérifier que tous les enregistrements SRV sont bien créés et présents dans vos DNS après la promotion d’un contrôleur de domaine ou lors de sa rétrogradation.

Pour cela il suffit d’extraire du fichier netlogon.dns les enregistrements normalement présents dans vos DNS.

Le fichier se situe sur un contrôleur de domaine dans Lecteur:\%SystemRoot%\System32\Config\netlogon.dns.

Exemple

_ldap._tcp.pdc._msdcs.<DnsDomainName>
_ldap._tcp.gc._msdcs.<DnsForestName>
_kerberos._tcp.dc._msdcs.<DnsDomainName>
_ldap._tcp.dc._msdcs.<DnsDomainName

Les sauvegarder dans un fichier TXT et lancer ensuite le script qui va vous générer un rapport Excel.

#======================================================
#
# NAME:  Check_DNS_SRV_record        
#
# AUTHOR:  Mehdi JERBI      
# 
# Source : www.jerbi.fr

#========================================================
#Path of the folder search
$dc = 0
$dc = read-host "Enter DCname with his short name"

#Creation of output file

$ScriptPath		= Split-Path -parent $MyInvocation.MyCommand.Definition
$CurrentDate	= Get-Date -format yyyyMMdd_hhmmss
$ResultFile		= $ScriptPath+ "\" + $CurrentDate + "_DNS_SRV_result.csv"

#Import TXT file

Function Get-FileName($initialDirectory)
{   
	[System.Reflection.Assembly]::LoadWithPartialName("System.windows.forms") | Out-Null

	$OpenFileDialog = New-Object System.Windows.Forms.OpenFileDialog
	$OpenFileDialog.initialDirectory = $initialDirectory
	$OpenFileDialog.filter = "Text files (*.TXT)|*.TXT"
	$OpenFileDialog.ShowDialog() | Out-Null
	$OpenFileDialog.filename
	if ($OpenFileDialog.filename -eq "") {
		Write-Host "file not found"
		exit
	}
}

$Inputfile		= Get-FileName "c:\"
$Records = Get-Content $Inputfile
$ErrorActionPreference = "silentlycontinue"

#build of the result

$a = New-Object -comobject Excel.Application
 
$a.Visible = $True
 
$b = $a.Workbooks.Add()
$c = $b.Worksheets.Item(1)
 
$col = 1
$ligne = 1
 
$c.Cells.Item(1,1) = "Zone Search"
$c.Cells.Item(1,1).Interior.colorindex = 15
$c.Cells.Item(1,2) = "Found"
$ligne++

#Search SRV record

Foreach ($zone in $Records)
{	
$command = nslookup -q=SRV $zone
$test = 0

foreach ($found in $command)
	{ 
	if ($found -match $dc)
	{				
	$test=1			
	}

	}
if ($test -eq "0")
	{
	$col = 1
	$c.Cells.Item($ligne,$col) = [string]$zone 
	$col++
	$c.Cells.Item($ligne,$col) = [string] "NOK"
	$col++
	$ligne ++
	}
else
	{
	$col = 1
	$c.Cells.Item($ligne,$col) = [string]$zone 
	$col++
	$c.Cells.Item($ligne,$col) = [string] "OK"
	$col++
	$ligne ++
	}
}

#		Autosize columns
		$c.columns.item("A:D").EntireColumn.AutoFit()
		$b.SaveAs($ResultFile)

#======================================================

# NAME: Check_DNS_SRV_record

# AUTHOR: Mehdi JERBI

# Source : www.jerbi.fr

#========================================================

#Path of the folder search

$dc = 0

$dc = read-host "Enter DCname with his short name"

#Creation of output file

$ScriptPath = Split-Path -parent $MyInvocation.MyCommand.Definition

$CurrentDate = Get-Date -format yyyyMMdd_hhmmss

$ResultFile = $ScriptPath+ "\" + $CurrentDate + "_DNS_SRV_result.csv"

#Import TXT file

Function Get-FileName($initialDirectory)

{

[System.Reflection.Assembly]::LoadWithPartialName("System.windows.forms") | Out-Null

$OpenFileDialog = New-Object System.Windows.Forms.OpenFileDialog

$OpenFileDialog.initialDirectory = $initialDirectory

$OpenFileDialog.filter = "Text files (*.TXT)|*.TXT"

$OpenFileDialog.ShowDialog() | Out-Null

$OpenFileDialog.filename

if ($OpenFileDialog.filename -eq "") {

Write-Host "file not found"

exit

}

$Inputfile = Get-FileName "c:\"

$Records = Get-Content $Inputfile

$ErrorActionPreference = "silentlycontinue"

#build of the result

$a = New-Object -comobject Excel.Application

$a.Visible = $True

$b = $a.Workbooks.Add()

$c = $b.Worksheets.Item(1)

$col = 1

$ligne = 1

$c.Cells.Item(1,1) = "Zone Search"

$c.Cells.Item(1,1).Interior.colorindex = 15

$c.Cells.Item(1,2) = "Found"

$ligne++

#Search SRV record

Foreach ($zone in $Records)

{

$command = nslookup -q=SRV $zone

$test = 0

foreach ($found in $command)

{

if ($found -match $dc)

{

$test=1

}

if ($test -eq "0")

{

$col = 1

$c.Cells.Item($ligne,$col) = [string]$zone

$col++

$c.Cells.Item($ligne,$col) = [string] "NOK"

$col++

$ligne ++

}

else

{

$col = 1

$c.Cells.Item($ligne,$col) = [string]$zone

$col++

$c.Cells.Item($ligne,$col) = [string] "OK"

$col++

$ligne ++

}

# Autosize columns

$c.columns.item("A:D").EntireColumn.AutoFit()

$b.SaveAs($ResultFile)

Leave a Reply Cancel reply