Batch oder VBS - Doppelte Dateinamen in einem Verzeichnis finden und löschen oder verschieben

$folder = "C:\test"  
$files = dir $folder -Recurse |  ?{!$PSIsContainer -and $_.BaseName.Length -ge 16}
$dupes = @()
foreach($file in $files){
    $check = dir "$($file.Directory)\$($file.BaseName.Substring(0,16))*" -ErrorAction SilentlyContinue | sort -Property LastWriteTime  
    if ($check.Count -gt 1){
        foreach($f in $check[1..($check.Length)]){
            if ($dupes -notcontains $f.FullName){
                $dupes += $f.FullName
            }
        }
    }
}
$dupes | %{write-host "Lösche Dublette: '$_'" -ForegroundColor Green; remove-item $_ -Force}