Owner von Unterordner + Dateien lässt sich nicht ändern

### Deklaration der zu prüfenden Laufwerkspfade ###
$UserToDelete = Read-Host "Anmeldename des zu löschenden Users"  
$DeleteFolders = @("\\Pfad_zum\users$\$UserToDelete","\\Pfad_zum\usersextern$\$UserToDelete", "\\Pfad_zum\profiles$\$UserToDelete.V6", "\\Pfad_zum\wsprofiles$\$UserToDelete.V6", "\\Pfad_zum\shprofiles$\$UserToDelete.V6")  
$CheckFolders=@("\\Pfad_zum\users$","\\Pfad_zum\usersextern$","\\Pfad_zum\profiles$","\\Pfad_zum\shprofiles$","\\Pfad_zum\wsprofiles$")  

$username = Get-ADUser -Filter {SamAccountName -eq $UserToDelete} -ErrorAction SilentlyContinue

### Prüfen ob der zu löschende User in der AD vorhanden ist und löschen der entsprechenden Verzeichnisse###
### Wenn nicht in AD vorhanden Prüfung ob dennoch Users / Profiles Ordner noch vorhanden ist ###
if ($username) {
    $result = Get-ChildItem -directory –path $CheckFolders | where {($_ -like "*$UserToDelete*")}  
    if ([string]::IsNullOrEmpty($result)) {
        Write-Warning -Message "Für den Account - $UserToDelete - konnten keine Verzeichnisse gefunden werden.  
        Es existiert daher nur noch der AD-Account. Möchten Sie diesen nun ebenfalls löschen?"  
    } else {

    Write-Host ""  
    Write-Host "Es wurden folgende Verzeichnisse gefunden"  
    Write-Host ""  
    Get-ChildItem -directory –path $CheckFolders | where {($_ -like "*$UserToDelete*")} | Select-Object -ExpandProperty Fullname  
    Write-Host ""  
    }

foreach ($folder in $DeleteFolders) {
        if (Test-Path $folder) {
            Do {
            $delete = Read-Host "Soll der Ordner $Folder gelöscht werden (y/n)?"  
            Write-Host ""  
               }
            while (($delete -eq "") -or ($delete -eq $null))  
            if ($delete -eq "y") {  

                $acl = Get-Acl $folder 
                $ar = New-Object System.Security.Principal.NTAccount("Administrators")  
                $acl.SetOwner($ar)
                Set-Acl $folder $acl

                $acl = Get-Acl $folder
                $ar = New-Object System.Security.AccessControl.FileSystemAccessRule("Administrators","FullControl","ContainerInherit, ObjectInherit","None","Allow")  
                $acl.SetAccessRule($ar)
                Set-Acl $folder $acl 
                
                Write-Host "Ordner $folder wurde gelöscht."  
                Write-Host ""  
            } Else {
                Write-Host "Ordner $folder nicht gelöscht."  
                Write-Host ""  
            }
          }
        }
} else {
    Write-Warning -Message "Der Account - $UserToDelete - ist NICHT in der AD vorhanden.  
            Im nächsten Schritt wird geprüft ob der User / Profile Ordner dennoch existieren"  
            Pause
            Write-Host ""  
            Write-Host "Es wurden folgende Verzeichnisse gefunden"  
            Write-Host ""  
            Get-ChildItem -directory –path $CheckFolders | where {($_ -like "*$UserToDelete*")} | Select-Object -ExpandProperty Fullname  
            Write-Host ""  
foreach ($folder in $DeleteFolders) {
        if (Test-Path $folder) {
            Do {
            $delete = Read-Host "Soll der Ordner $Folder gelöscht werden (y/n)?"  
            Write-Host ""  
               }
            while (($delete -eq "") -or ($delete -eq $null))  
            if ($delete -eq "y") {  
                Get-ChildItem $folder -Recurse | ForEach {
                $acl = Get-Acl $folder
                $ar = New-Object System.Security.Principal.NTAccount("Administrators")  
                $acl.SetOwner($ar)
                Set-Acl $folder $acl

                $acl = Get-Acl $folder
                $ar = New-Object System.Security.AccessControl.FileSystemAccessRule("Administrators","FullControl","ContainerInherit, ObjectInherit","None","Allow")  
                $acl.SetAccessRule($ar)
                Set-Acl $folder $acl
                }
                                
                Write-Host "Ordner $folder wurde gelöscht."  
                Write-Host ""  
            } Else {
                Write-Host "Ordner $folder nicht gelöscht."  
                Write-Host ""  
            }
          }
        }
}