PowerShell: Massenbearbeitung von SOA-Einstellungen im DNS

$ttl = New-TimeSpan -Hours 5
$zones = Get-WMIObject -Namespace "root\MicrosoftDNS" -Class "MicrosoftDNS_Zone" | where {($_.Reverse -eq $false) -and ($_.ZoneType -eq 1)} | Select-Object -ExpandProperty Name
foreach ($zone in $zones) {
    $soa = Get-WMIObject -Namespace "root\MicrosoftDNS" -Class "MicrosoftDNS_SOAType" -Filter "ContainerName='$zone'"
    if ($soa.MinimumTTL -ne $ttl.TotalSeconds) {
        $soa.Modify($soa.TTL, $soa.SerialNumber + 1,$soa.PrimaryServer, $soa.ResponsibleParty,$soa.RefreshInterval,$soa.RetryDelay,$soa.ExpireLimit,$ttl.TotalSeconds)
    }
}

 
Import-Module DNSServer 
$ttl = New-TimeSpan -Hours 5 
$zones = Get-DnsServerZone | Where-Object {($_.IsReverseLookupZone -eq $false) -and ($_.ZoneType -eq 'Primary')} 
foreach ($zone in $zones) { 
    $soa = Get-DNSServerResourceRecord -RRType SOA -ZoneName $zone.ZoneName 
    if ($soa.RecordData.MinimumTimeToLive -ne $ttl) { 
        $newsoa = $soa.Clone() 
        $newsoa.RecordData.MinimumTimeToLive = $ttl
        Set-DnsServerResourceRecord -NewInputObject $newsoa -OldInputObject $soa -ZoneName $zone.ZoneName 
    }
}