Computer automatisch in Organisationseinheit nach Computername einordnen

Hallo,

ich suche nach einer Möglichkeit, um Computer beim Eintritt ins AD automatisch in die richtige Organisationseinheit einzuordnen.
Unsere Rechnernamen sind so aufgebaut: 1-2 Zeichen zu Beginn für Standort (z.B. B für Berlin FF für Frankfurt), danach kommen mehrere Zeichen für die Abteilung (z.B. verw für Verwaltung, buchh für Buchhaltung,...), danach kommen die letzten 3 Stellen der IP-Adresse. Der Rechner ffverw123 steht also in Frankfurt in Der Abteilung Verwaltung und soll in die Organisationseinheit Hardware\Frankfurt\verw
Was jetzt schon der Fall ist, ist, dass alle Computer nicht nach "Computers" gespielt werden, sondern nach in die OE "Hardware". Ist ja auch keine Hexerei

Vielleicht hat ja schon jemand ein Script, dass er mir geben würde...
Danke!

Import-Module ActiveDirectory
$computers = Get-ADComputer -Filter * -SearchBase "OU=Hardware,dc=domain,dc=local" -SearchScope OneLevel  
$mapping = @{
    'FF' = 'OU=Frankfurt,OU=Hardware,dc=domain,dc=local'  
    'MU' = 'OU=München,OU=Hardware,dc=domain,dc=local'  
}
$computers | group {$_.Name.SubString(0,2)} | %{
    $ou = $mapping[$_.Name]
    if ($ou){
        $_.Group | %{
            $subou = [regex]::Match($_.Name,'^..([^\d]+)(\d+)').Groups[1].Value  
            $newou = "OU=$subou,$ou"  
            write-host "Moving Computer '$($_.Name)' to '$newou'" -ForegroundColor Green  
            $_ | Move-ADObject -TargetPath $newou -Confirm:$false
        }
    }
}