Suchen und ersetzen AD-Lokale-Sicherheitsgruppen?

Ich habe die tolle Aufgabe, knapp 2k Sicherheitsgruppen umzubenennen.
Warum? Tja, die Namen sind zu lang und werden immer länger (Maximale Pfadlänge 64 Zeichen) °°

Bsp. (Gewachsene Struktur)
P_SRV100_Daten_Abteilungen_Global_Personal_Urlaubsschein_LE
SEV100\Daten\Abteilungen\Global\Personal\Urlaubsschein "Lesezugriff"

Jetzt kommt es immer öfters vor, dass neue Unterordner erstellt werden, mit extra Berechtigung.
Meine Idee ist es jetzt, den Anfang zu ändern, auch bei bestehenden, damit es ordentlicher wird.

Bsp.
aus.
P_SRV100_Daten_Abteilungen_Global_Personal_Urlaubsschein_LE
wird
P_SRV100_D_A_G_Personal_Urlaubsschein_LE
dann habe ich erst mal wieder Platz?
Aber bei fast 1972 Namen wird man ja irre.

Gibt es eine SW oder ein Skript, wie ich den Anfang ersetzen kann, aber der Rest bleibt?


Nur zur Belustigung °°
Tagesgeschäft von heute:
Ja, die GF sagt, ich muss das machen.

Hallo EDV:
Ich muss morgen eine Arbeit abgeben. Hier das Dokument.
Ich benötige Seitenränder, die und die Schriftart und oben sollen die Überschriften zum Anklicken sein °°

Hallo EDV:
Mein Schreibtisch muss höher!
Macht die Technik
nein, da ist ein PC drauf, das müssen Sie machen, sonst kann ich nicht arbeiten, da Sie Ihren Job nicht machen.

Hallo EDV:
Ich halte Montag früh ein Referat, hier ein paar Bilder und Text, eine PowerPoint bis 16:30 machen.
Da ich sie noch einstudieren muss.

Get-ADGroup -Filter "Name -like '*_*_*_*_*_*'" | %{  
    $newname = $_.Name -replace '(?<=^.+?_.+?_)(.).*?_(.).*?_(.).*?_','$1_$2_$3_'  
    $_ | rename-adobject -Newname $newname -verbose -PassThru | set-adgroup -SamAccountName $newname
}

Get-ADGroup -Filter "Name -like '*_*_*_*_*_*'" | %{  
    $newname = $_.Name -replace '(?<=^.+?_.+?_)(.).*?_(.).*?_(.).*?_','$1_$2_$3_'  
    $_ | rename-adobject -Newname $newname -verbose -PassThru | set-adgroup -SamAccountName $newname
}

# Überprüfen, ob das Modul bereits geladen ist
if (-not (Get-Module -ListAvailable -Name ActiveDirectory)) {
    # Modul installieren auf Windows 10/11
    Add-WindowsCapability -Online -Name "Rsat.ActiveDirectory.DS-LDS.Tools~~~~0.0.1.0"  
}

# Importieren des Active Directory Moduls
Import-Module ActiveDirectory

# Suchen und Umbenennen von Gruppen
Get-ADGroup -Filter "Name -like '*_*_*_*_*_*'" | %{  
    $newname = $_.Name -replace '(?<=^.+?_.+?_)(.).*?_(.).*?_(.).*?_','$1_$2_$3_'  
    $_ | Rename-ADObject -NewName $newname -Verbose -PassThru | Set-ADGroup -SamAccountName $newname
}