Add/delete A/PTR records in windows DNS

tdubb123 · March 31, 2023, 5:45am

I am trying to use following scripts to add/delete A and PTR records in DNS

but not sure if it will work

param(

[Parameter(Mandatory=$true)]

[string]$ARecord,

[Parameter(Mandatory=$true)]

[string]$zone,

[Parameter(Mandatory=$true)]

[string]$DnsServer

)

$ARecordcheck = Get-DnsServerResourceRecord -ZoneName $zone -RRType A -Name $ARecord -ComputerName $DnsServer -ErrorAction SilentlyContinue

Check if A Record Exist

if ($ARecordcheck -eq $null) {

Write-Error “A record $ARecord does not exist in DNS zone.”

}

$FQDN = $ARecord + “.” + $zone

Get IP Address from DNS

$IP = Resolve-DnsName -Name $ARecord -Type A | Select-Object -ExpandProperty IPAddress

$PTRLastOctet = $IP.Split(‘.’)[-1]

Get reverse lookup zone and IP

$reverselookupIP = (Resolve-DnsName -type PTR $IP | select -ExpandProperty Name)

$reversezone = $reverselookupIP.Substring(($reverselookupIP.IndexOf(‘.’) + 1))

$PtrRecord = Get-DnsServerResourceRecord -ZoneName $reversezone -RRType PTR -ComputerName $DnsServer -Name $PTRLastOctet

if ($PtrRecord -eq $null) {

Write-Error “PTR record $PtrRecord does not exist in DNS zone $reversezone”

exit 1

}

ping test

$result = Test-NetConnection $IP -InformationLevel Quiet

if (-not $result) {

write-host “Proceeding to delete DNS Record…”

Remove-DnsServerResourceRecord -ZoneName $zone -name $ARecord -ComputerName $DNSServer -RRType A -Confirm:$false

Remove-DnsServerResourceRecord -ZoneName $reversezone -ComputerName $DnsServer -RRType PTR -RecordData $FQDN -Name $PTRLastOctet -Confirm:$false

}

else {

write-host "IP is alive... PLeaase check"

exit

}

param(

[Parameter(Mandatory=$true)]

[string]$ARecord,

[Parameter(Mandatory=$true)]

[string]$IP,

[Parameter(Mandatory=$true)]

[string]$zone,

[Parameter(Mandatory=$true)]

[string]$DnsServer

)

ping test

$result = Test-NetConnection $IP -InformationLevel Quiet

if ($result) {

Write-Error "IP is alive. Please check or use different IP"

exit

}

#Check If A Record Exist

Check if A record exist

$ExistingARecord = Get-DnsServerResourceRecord -ZoneName $Zone -Name $ARecord -RRType A -ErrorAction SilentlyContinue -ComputerName $DnsServer

if ($ExistingARecord) {

Write-Warning "A record '$ARecord.$Zone' already exists."

Exit

}

else {

# Create A record

Try {

    Add-DnsServerResourceRecordA -Name $ARecord -ZoneName $Zone -IPv4Address $IP -ErrorAction Stop -ComputerName $DnsServer

}

Catch {

    Write-Error "Failed to create A record '$ARecord.$Zone'. Error: $($_.Exception.Message)"

    Exit

}

}

FQDN

$FQDN = $ARecord + “.” + $zone

Find the reverse DNS zone from IP

$First3_Octets = $IP.Split(“.”)[0…2] -join “.”

$octets = $first3octets.split(‘.’)

$reverseoctets = $octets -join ‘.’

$reversezone = $reverseoctets + “.in-addr.arpa”

$PTRLastOctet = $IP.Split(‘.’)[-1]

$ExistingPTRRecord = Get-DnsServerResourceRecord -ZoneName $reversezone -RRType PTR -ComputerName $DnsServer -Name $PTRLastOctet

if ($ExistingPTRRecord) {

Write-Warning "PTR record '$RecordName.$ZoneName' already exists."

Exit

}

else {

# Create PTR record

Try {

    Add-DnsServerResourceRecordA -Name $ARecord -ZoneName $Zone -IPv4Address $IP -ErrorAction Stop -ComputerName $DnsServer

    Add-DnsServerResourceRecordPtr -ZoneName $reversezone -Name $PTRLastOctet -PtrDomainName $FQDN -ComputerName $DnsServer

}

Catch {

    Write-Error "Failed to create PTR record $FQDN Error: $($_.Exception.Message)"

    Exit

Olaf · March 31, 2023, 7:46am

Tdubb123,
Welcome to the forum.

Wow … that’s a lot of code. And it’s all unformatted.

Please go back, edit your code once again and fix the formatting of your code …

When you post code, sample data, console output or error messages please format it as code using the preformatted text button ( </> ). Simply place your cursor on an empty line, click the button and paste your code.

Thanks in advance

How to format code in PowerShell.org 1 <---- Click

Regardless of that … you forgot to ask a specific question.

Please keep in mind … we do not offer free code reviews or genereal consulting.

tdubb123 · March 31, 2023, 1:18pm

param(

[Parameter(Mandatory = $true)]
[string]$ARecord,
[Parameter(Mandatory = $true)]
[string]$IP,
[Parameter(Mandatory = $true)]
[string]$zone,
[Parameter(Mandatory = $true)]
[string]$DnsServer

)

ping test

$result = Test-NetConnection $IP -InformationLevel Quiet
if ($result) {
Write-Error “IP is alive. Please check or use different IP”
exit
}

#Check If A Record Exist

$ExistingARecord = Get-DnsServerResourceRecord -ZoneName $Zone -Name $ARecord -RRType A -ErrorAction SilentlyContinue -ComputerName $DnsServer

if ($ExistingARecord) {
Write-Warning “A record ‘$ARecord.$Zone’ already exists.”
Exit
}

else {

# Create A record
Try {
    Add-DnsServerResourceRecordA -Name $ARecord -ZoneName $Zone -IPv4Address $IP -ErrorAction Stop -ComputerName $DnsServer
}

Catch {
    Write-Error "Failed to create A record '$ARecord.$Zone'. Error: $($_.Exception.Message)"
    Exit
}

}

FQDN

$FQDN = $ARecord + “.” + $zone

Find the reverse DNS zone from IP

$First3_Octets = $IP.Split(“.”)[0…2] -join “.”
$octets = $first3_octets.split(‘.’)
[Array]::Reverse($octets)
$reverseoctets = $octets -join ‘.’
$reversezone = $reverseoctets + “.in-addr.arpa”
$PTRLastOctet = $IP.Split(‘.’)[-1]

$ExistingPTRRecord = Get-DnsServerResourceRecord -ZoneName $reversezone -RRType PTR -ComputerName $DnsServer -Name $PTRLastOctet

if ($ExistingPTRRecord) {
Write-Warning “PTR record ‘$RecordName.$ZoneName’ already exists.”
Exit
}

else {

# Create PTR record

Try {

    Add-DnsServerResourceRecordA -Name $ARecord -ZoneName $Zone -IPv4Address $IP -ErrorAction Stop -ComputerName $DnsServer
    Add-DnsServerResourceRecordPtr -ZoneName $reversezone -Name $PTRLastOctet -PtrDomainName $FQDN -ComputerName $DnsServer
}
Catch {
    Write-Error "Failed to create PTR record $FQDN Error: $($_.Exception.Message)"
    Exit
}

}

tdubb123 · March 31, 2023, 1:20pm

param(

    [Parameter(Mandatory = $true)]
    [string]$ARecord,
    [Parameter(Mandatory = $true)]
    [string]$IP,
    [Parameter(Mandatory = $true)]
    [string]$zone,
    [Parameter(Mandatory = $true)]
    [string]$DnsServer
)

 
# ping test

$result = Test-NetConnection $IP -InformationLevel Quiet
if ($result) {
    Write-Error "IP is alive. Please check or use different IP"
    exit
}

#Check If A Record Exist

$ExistingARecord = Get-DnsServerResourceRecord -ZoneName $Zone -Name $ARecord -RRType A -ErrorAction SilentlyContinue -ComputerName $DnsServer

if ($ExistingARecord) {
    Write-Warning "A record '$ARecord.$Zone' already exists."
    Exit
}

else {

    # Create A record
    Try {
        Add-DnsServerResourceRecordA -Name $ARecord -ZoneName $Zone -IPv4Address $IP -ErrorAction Stop -ComputerName $DnsServer
    }

    Catch {
        Write-Error "Failed to create A record '$ARecord.$Zone'. Error: $($_.Exception.Message)"
        Exit
    }
}

 

 

# FQDN 

$FQDN = $ARecord + "." + $zone

# Find the reverse DNS zone from IP
 
$First3_Octets = $IP.Split(".")[0..2] -join "."
$octets = $first3_octets.split('.')
[Array]::Reverse($octets)
$reverseoctets = $octets -join '.'
$reversezone = $reverseoctets + ".in-addr.arpa"
$PTRLastOctet = $IP.Split('.')[-1]

 

 

$ExistingPTRRecord = Get-DnsServerResourceRecord -ZoneName $reversezone -RRType PTR -ComputerName $DnsServer -Name $PTRLastOctet

 

if ($ExistingPTRRecord) {
    Write-Warning "PTR record '$RecordName.$ZoneName' already exists."
    Exit
}

else {

    # Create PTR record

    Try {

        Add-DnsServerResourceRecordA -Name $ARecord -ZoneName $Zone -IPv4Address $IP -ErrorAction Stop -ComputerName $DnsServer
        Add-DnsServerResourceRecordPtr -ZoneName $reversezone -Name $PTRLastOctet -PtrDomainName $FQDN -ComputerName $DnsServer
    }
    Catch {
        Write-Error "Failed to create PTR record $FQDN Error: $($_.Exception.Message)"
        Exit
    }
}

tdubb123 · March 31, 2023, 1:22pm

param(

    [Parameter(Mandatory = $true)]
    [string]$ARecord,
    [Parameter(Mandatory = $true)]
    [string]$IP,
    [Parameter(Mandatory = $true)]
    [string]$zone,
    [Parameter(Mandatory = $true)]
    [string]$DnsServer
)


# ping test

$result = Test-NetConnection $IP -InformationLevel Quiet
if ($result) {
    Write-Error "IP is alive. Please check or use different IP"
    exit
}

# Check if A record exist

$ExistingARecord = Get-DnsServerResourceRecord -ZoneName $Zone -Name $ARecord -RRType A -ErrorAction SilentlyContinue -ComputerName $DnsServer
if ($ExistingARecord) {
    Write-Warning "A record '$ARecord.$Zone' already exists."
    Exit
}

else {
    # Create A record
    Try {
        Add-DnsServerResourceRecordA -Name $ARecord -ZoneName $Zone -IPv4Address $IP -ErrorAction Stop -ComputerName $DnsServer
    }
    Catch {
        Write-Error "Failed to create A record '$ARecord.$Zone'. Error: $($_.Exception.Message)"
        Exit
    }
}

 

 

# FQDN 

$FQDN = $ARecord + "." + $zone
 
# Find the reverse DNS zone from IP

$First3_Octets = $IP.Split(".")[0..2] -join "."
$octets = $first3octets.split('.')
[Array]::Reverse($octets)
$reverseoctets = $octets -join '.'
$reversezone = $reverseoctets + ".in-addr.arpa"
$PTRLastOctet = $IP.Split('.')[-1]

 

 

$ExistingPTRRecord = Get-DnsServerResourceRecord -ZoneName $reversezone -RRType PTR -ComputerName $DnsServer -Name $PTRLastOctet

if ($ExistingPTRRecord) {
    Write-Warning "PTR record '$RecordName.$ZoneName' already exists."
    Exit
}

else {

    # Create PTR record
    Try {
        Add-DnsServerResourceRecordA -Name $ARecord -ZoneName $Zone -IPv4Address $IP -ErrorAction Stop -ComputerName $DnsServer
        Add-DnsServerResourceRecordPtr -ZoneName $reversezone -Name $PTRLastOctet -PtrDomainName $FQDN -ComputerName $DnsServer
    }

    Catch {
        Write-Error "Failed to create PTR record $FQDN Error: $($_.Exception.Message)"
        Exit
    }
}```

tdubb123 · March 31, 2023, 1:23pm

param(

    [Parameter(Mandatory = $true)]
    [string]$ARecord,
    [Parameter(Mandatory = $true)]
    [string]$zone,
    [Parameter(Mandatory = $true)]
    [string]$DnsServer
)


$ARecordcheck = Get-DnsServerResourceRecord -ZoneName $zone -RRType A -Name $ARecord -ComputerName $DnsServer -ErrorAction SilentlyContinue

# Check if A Record Exist

if ($ARecordcheck -eq $null) {
    Write-Error "A record $ARecord does not exist in DNS zone."
}


$FQDN = $ARecord + "." + $zone

# Get IP Address from DNS
$IP = Resolve-DnsName -Name $ARecord -Type A | Select-Object -ExpandProperty  IPAddress
$PTRLastOctet = $IP.Split('.')[-1]
 

# Get reverse lookup zone and IP

$reverselookupIP = (Resolve-DnsName -type PTR $IP | select -ExpandProperty Name)
$reversezone = $reverselookupIP.Substring(($reverselookupIP.IndexOf('.') + 1))

$PtrRecord = Get-DnsServerResourceRecord -ZoneName $reversezone -RRType PTR -ComputerName $DnsServer -Name $PTRLastOctet

if ($PtrRecord -eq $null) {

    Write-Error "PTR record $PtrRecord does not exist in DNS zone $reversezone"
    exit 1
}

 

 

# ping test

$result = Test-NetConnection $IP -InformationLevel Quiet

if (-not $result) {
    write-host "Proceeding to delete DNS Record.."
    Remove-DnsServerResourceRecord -ZoneName $zone -name $ARecord -ComputerName $DNSServer -RRType A -Confirm:$false
    Remove-DnsServerResourceRecord -ZoneName $reversezone -ComputerName $DnsServer -RRType PTR -RecordData $FQDN -Name $PTRLastOctet -Confirm:$false
}

else {
    write-host "IP is alive... PLeaase check"
    exit
}

Olaf · March 31, 2023, 4:02pm

I actually asked you to edit your initial post …

When one of your posts get’s on hold for moderation please give us a little time to evaluate. It does not make any sense to post it again and again.

OK. Now that you managed to post your code properly formatted, what is your question?

And again …we do not offer free code reviews or genereal consulting.

tdubb123 · March 31, 2023, 6:23pm

ok here is the one I am having issues with. DNS A record is getting crated but not PTR record.

param(

  [Parameter(Mandatory=$true)]
  [string]$ARecord,
  [Parameter(Mandatory=$true)]
  [string]$IP,
  [Parameter(Mandatory=$true)]
  [string]$zone,
  [Parameter(Mandatory=$true)]
  [string]$DnsServer
)

# ping test
$result = Test-NetConnection $IP -InformationLevel Quiet

if ($result) {
    Write-Error "IP is alive. Please check or use different IP"
    exit
    }

#Check If A Record Exist
 
$ExistingARecord = Get-DnsServerResourceRecord -ZoneName $Zone -Name $ARecord -RRType A -ErrorAction SilentlyContinue -ComputerName $DnsServer
if ($ExistingARecord) {
    Write-Warning "A record '$ARecord.$Zone' already exists."
    Exit
}

else {
    # Create A record
    Try {
        Add-DnsServerResourceRecordA -Name $ARecord -ZoneName $Zone -IPv4Address $IP -ErrorAction Stop -ComputerName $DnsServer
    }

    Catch {
        Write-Error "Failed to create A record '$ARecord.$Zone'. Error: $($_.Exception.Message)"
        Exit
    }
}


# FQDN 

$FQDN = $ARecord + "." + $zone
 
# Find the reverse DNS zone from IP

$First3_Octets =  $IP.Split(".")[0..2] -join "."
$octets = $first3octets.split('.')
[Array]::Reverse($octets)
$reverseoctets = $octets -join '.'
$reversezone = $reverseoctets + ".in-addr.arpa"
$PTRLastOctet = $IP.Split('.')[-1]

 
$ExistingPTRRecord = Get-DnsServerResourceRecord -ZoneName $reversezone -RRType PTR -ComputerName $DnsServer -Name $PTRLastOctet

if ($ExistingPTRRecord) {
    Write-Warning "PTR record '$RecordName.$ZoneName' already exists."
    Exit
}
else {
    # Create PTR record
    Try {
        Add-DnsServerResourceRecordA -Name $ARecord -ZoneName $Zone -IPv4Address $IP -ErrorAction Stop -ComputerName $DnsServer
        Add-DnsServerResourceRecordPtr -ZoneName $reversezone -Name $PTRLastOctet -PtrDomainName $FQDN -ComputerName $DnsServer
    }

    Catch {
        Write-Error "Failed to create PTR record $FQDN Error: $($_.Exception.Message)"
        Exit
    }
}

Olaf · April 1, 2023, 11:06am

Since this is a pretty specific topic/issue and the least of us will have a test environment to check on that you will have to help us.

For a try catch block to work properly the error happening inside of the try block has to be a termintaing error in order for the catch block to … catch it. So if the cmdlet you’re using inside of the try block does not raise a terminating error by default you have to force it to with the parameter -ErrorAction Stop or with setting the preference variable $ErrorActionPreference to Stop beforehand for the whole script or at least for the try catch block.
Could you set the PTR record manually outside of your script by providing the desired values for the given parameters? Do you get any errors then?

Topic		Replies	Views
Updating DNS records PowerShell Help	1	136	May 3, 2018
Updating DNS records via PowerShell PowerShell Help	4	670	December 18, 2020
Cannot find A Record in DNS PowerShell Help	1	156	April 30, 2018
Create DNS records in "subdomain" PowerShell Help	5	181	January 13, 2017
DNS Question PowerShell Help	3	151	May 1, 2018

Add/delete A/PTR records in windows DNS

Check if A Record Exist

Get IP Address from DNS

Get reverse lookup zone and IP

ping test

ping test

Check if A record exist

FQDN

Find the reverse DNS zone from IP

ping test

FQDN

Find the reverse DNS zone from IP

Related Topics