Wie kann ich einen Font mit Powershell deinstallieren bzw. den entsprechenden Registry-Eintrag löschen ?

<#
.Synopsis
   Uninstalls Fonts
.DESCRIPTION
   Uninstalls System- and User-Fonts from the current system
.EXAMPLE
   Remove single font
   -> Uninstall-Font -Fontname "Font1"  
.EXAMPLE
   Remove multiple fonts
   -> Uninstall-Font -Fontname "Font1","Font2"  
   or with pipeline support
   -> "Font1","Font2" | Uninstall-Font  
.INPUTS
   [string] or [string[]] for the font names when using pipeline
.OUTPUTS
   None
#>
function Uninstall-Font {
    [CmdletBinding()]
    param(
        [parameter(mandatory=$true,ValueFromPipeline=$true)][ValidateNotNullOrEmpty()][string[]]$fontname
    )
    Begin {
        # Add functions and assemblies
        if (!("gdi.font" -as [type])){  
            Add-Type -AssemblyName System.Drawing
            Add-Type -MemberDefinition '  
                [DllImport("user32.dll")] public static extern int SendMessage(IntPtr hWnd, int uMsg, int wParam, String lParam);  
                [DllImport("gdi32.dll")] public static extern int RemoveFontResource(string lpszFilename);  
            ' -Namespace gdi -Name font -EA Stop  
        }
        # Get installed font collection
        $installedfonts = (New-Object System.Drawing.Text.InstalledFontCollection).Families

        $myWindowsID = [System.Security.Principal.WindowsIdentity]::GetCurrent()
        $myWindowsPrincipal=new-object System.Security.Principal.WindowsPrincipal($myWindowsID)
        $adminRole=[System.Security.Principal.WindowsBuiltInRole]::Administrator
        $UserisAdmin = $myWindowsPrincipal.IsInRole($adminRole)
        $keyuser = get-item 'HKCU:\Software\Microsoft\Windows NT\CurrentVersion\Fonts' -EA SilentlyContinue  
        $keymachine = get-item 'HKLM:\Software\Microsoft\Windows NT\CurrentVersion\Fonts' -EA SilentlyContinue  
    }   
    Process{
        foreach ($font in $fontname){
            if ($font -notin $installedfonts.Name){
                write-Error "Font '$font' is not installed." -Category InvalidArgument  
                continue
            }
            
            if ($keyuser){
                $keyuser.Property | ?{$_ -like "$font*"} | %{  
                    $file = $keyuser.GetValue($_)
                    # remove open font resources
                    write-verbose "Removing open resources for Font '$_'"  
                    [gdi.font]::RemoveFontResource($file) | out-null
                    # remove registry value
                    write-verbose "Removing font registry entry with name '$_'."  
                    Remove-ItemProperty $keyuser.PSPath -Name $_
                    # Remove font file
                    write-verbose "Removing font file '$file'."  
                    remove-item $file -Force
                }
            }
            if ($keymachine){
                $keymachine.Property | ?{$_ -like "$font*"} | %{  
                    if (!$UserisAdmin){
                        write-error "Function needs to run elevated to uninstall the font '$_' from the system!" -Category PermissionDenied  
                        continue
                    }
                    $file = $keymachine.GetValue($_)
                    # remove open font resources
                    write-verbose "Removing open resources for Font '$_'."  
                    [gdi.font]::RemoveFontResource($file) | out-null
                    # remove registry value
                    write-verbose "Removing font registry entry with name '$_'."  
                    Remove-ItemProperty $keymachine.PSPath -Name $_
                    # Remove font file
                    write-verbose "Removing font file '$file'."  
                    remove-item "$([System.Environment]::GetFolderPath(20))\$file" -Force  
                }
            }
        }
    }
    
    End {
        # inform all top level windows of font-change
        write-verbose "Notify all top level windows of font-change with broadcast message."  
        [gdi.font]::SendMessage(0xffff,0x001D,[IntPtr]::Zero,[IntPtr]::Zero) | out-null
    }
}

Uninstall-Font -FontName "Name des Fonts" -Verbose  

function Get-FontNameFromFile([string]$file){
    Add-Type -A System.Drawing
    $fc = New-Object System.Drawing.Text.PrivateFontCollection
    $fc.AddFontFile($file)
    return $fc.Families.Name
}