ComputerNameList |
forEach-object { Get-ADComputer $_ } |
Select-Object -ExpandProperty 'DistinguishedName' |
ForEach-Object { return [psCustomObject]@{Source=$_; Target=$_.Replace(',OU=Domen,', ',OU=Disconnected,'') -replace '^CN=[^,]+,', '' }} |
ForEach-Object {Move-ADObject -identity $_.Source -NewPath $_.Target}