---

# K2I-129862 | iverbitskii
$ErrorActionPreference = "Stop"

$Server = "ru-dc-p01.sys.clz.ru"
$Zone = "clz.ru"

$Records = @(Get-DnsServerResourceRecord `
    -ComputerName $Server `
    -ZoneName $Zone `
    -Name "delivery" `
    -RRType A)

if ($Records.Count -ne 1) {
    throw "Ожидалась одна A-запись. Найдено: $($Records.Count)"
}

$Old = $Records[0]

if ($Old.RecordData.IPv4Address.IPAddressToString -ne "10.191.125.5") {
    throw "Исходный IP отличается. Изменение отменено."
}

# Резервная копия
$Dir = "C:\Temp\K2I-129862"
New-Item -ItemType Directory -Path $Dir -Force | Out-Null
$Old | Export-Clixml "$Dir\delivery-before.xml"

# Новая запись
$New = [ciminstance]::new($Old)
$New.RecordData.IPv4Address = [ipaddress]"10.191.126.7"

# Изменение DNS
Set-DnsServerResourceRecord `
    -ComputerName $Server `
    -ZoneName $Zone `
    -OldInputObject $Old `
    -NewInputObject $New `
    -Confirm:$true

Write-Host "===== DNS AFTER =====" -ForegroundColor Green

foreach ($DNS in @("10.191.11.4", "10.191.11.5")) {
    Resolve-DnsName delivery.clz.ru `
        -Server $DNS -Type A |
        Where-Object Type -eq "A" |
        Select-Object Name, IPAddress, TTL
}