Update Windows DNS Server A record IPs in all Zones

UpdateDnsIpAllZone.ps1

param (
        [Parameter(Mandatory=$true)][string] $oldIp,
        [Parameter(Mandatory=$true)][string] $newIp)

$zones = Get-DnsServerZone
$zoneNames = $zones | Select-Object -Property ZoneName
ForEach ($zoneName in $zoneNames) {
    $records = Get-DnsServerResourceRecord $zoneName.ZoneName -RRType "A"
    ForEach ($record in $records) {
            If ($record.RecordData.IPv4Address -eq $oldIp) {
                    $clone = $record.Clone()
                    $clone.RecordData.IPv4Address = $newIp
                    Set-DnsServerResourceRecord -NewInputObject $clone -OldInputObject $record -ZoneName $zoneName.ZoneName
            }
    }
}