Migrate Active Directory DNS records from subdomain

migrate.ps

Get-DnsServerResourceRecord -ZoneName $zone -RRType A | Where-Object {$_.HostName.EndsWith("." + $sub)} | ForEach {Add-DnsServerResourceRecordA -ZoneName ($sub + "." + $zone) -Name $_.HostName.Remove($_.HostName.Length - 1 - $sub.Length) -IPv4Address $_.RecordData.IPv4Address -TimeToLive $_.TimeToLive -AllowUpdateAny -AgeRecord}

Get-DnsServerResourceRecord -ZoneName $zone -RRType CName | Where-Object {$_.HostName.EndsWith("." + $sub)} | ForEach {Add-DnsServerResourceRecordCName -ZoneName ($sub + "." + $zone) -Name $_.HostName.Remove($_.HostName.Length - 1 - $sub.Length) -HostNameAlias $_.RecordData.HostNameAlias -TimeToLive $_.TimeToLive}

Get-DnsServerResourceRecord -ZoneName $zone -RRType SRV | Where-Object {$_.HostName.EndsWith("." + $sub)} | ForEach {Add-DnsServerResourceRecord -Srv -ZoneName ($sub + "." + $zone) -Name $_.HostName.Remove($_.HostName.Length - 1 - $sub.Length) -DomainName $_.RecordData.DomainName -Port $_.RecordData.Port -TimeToLive $_.TimeToLive -Weight $_.RecordData.Weight -Priority $_.RecordData.Priority}