$OldDNSName="dbb.local"
$NewDNSName="win.dbb"
$OldNetBIOSName="DBB"
$NewNetBIOSName="WIN"

rendom /list

$Domainlist = Get-Content .\Domainlist.xml
$Domainlist | % { $_.Replace($OldDNSName,$NewDNSName) } | Set-Content .\Domainlist.xml -Encoding Unicode
$Domainlist = Get-Content .\Domainlist.xml
$Domainlist | % { $_.Replace("<NetBiosName>$OldNetBIOSName</NetBiosName>","<NetBiosName>$NewNetBIOSName</NetBiosName>") } | Set-Content .\Domainlist.xml -Encoding Unicode

rendom /showforest