Powershell Schriften installieren und überschreiben

# Variables ---------
$folder = 'C:\Schriften'  
$include = '*.pfm'  
# --------------------------------

if ($PSVersionTable.PSVersion.Major -lt 3){write-host "ERROR: Minimum Powershell Version 3.0 is required!" -F Yellow; return}    

# check if admin rights and restart script elevated (uac)
$myWindowsID=[System.Security.Principal.WindowsIdentity]::GetCurrent()
$myWindowsPrincipal=new-object System.Security.Principal.WindowsPrincipal($myWindowsID)
$adminRole=[System.Security.Principal.WindowsBuiltInRole]::Administrator
if (!$myWindowsPrincipal.IsInRole($adminRole)){
    start-process "powershell" -Verb "runas" -ArgumentList "-File",$MyInvocation.MyCommand.Definition  
    exit
}
# admin from here

# Add functions and assemblies
Add-Type -AssemblyName System.Drawing
Add-Type @"  
using System;
using System.Text;
using System.IO;
using System.Runtime.InteropServices;
namespace tools {
    public class font {
        [DllImport("user32.dll")] public static extern int SendMessage(IntPtr hWnd, int uMsg, int wParam, String lParam);  
        [DllImport("atmlib.dll")] public static extern int ATMAddFont(string Fontname, int Style, string PFM_PATH, string PFB_PATH);  
        [DllImport("gdi32.dll")] public static extern int AddFontResource(string lpszFilename);  
        [DllImport("gdi32.dll")] public static extern int RemoveFontResource(string lpszFilename);  
        
        public static string GetType1FontName(string filename)
        {
            StringBuilder postscriptName = new StringBuilder();

            FileInfo fontFile = new FileInfo(filename);
            using (FileStream fs = fontFile.OpenRead())
            {
                using (StreamReader sr = new StreamReader(fs))
                {
                    using (BinaryReader inStream = new BinaryReader(fs))
                    {
                        // PFM Header is 117 bytes
                        inStream.ReadBytes(117); // skip 117
                        short size = inStream.ReadInt16();
                        int extMetricsOffset = inStream.ReadInt32();
                        int extentTableOffset = inStream.ReadInt32();

                        inStream.ReadBytes(4); // skip 4
                        int kernPairOffset = inStream.ReadInt32();
                        int kernTrackOffset = inStream.ReadInt32();
                        int driverInfoOffset = inStream.ReadInt32();

                        fs.Position = driverInfoOffset;
                        while (inStream.PeekChar() != 0)
                        {
                            postscriptName.Append(inStream.ReadChar());
                        }
                    }
                }
            }

            return postscriptName.ToString();
        }
    }
}

"@ | out-null  
# Get fonts folder
$fontsfolder = [System.Environment]::GetFolderPath(20)


foreach($file in (gci "$folder\*" -Include $include)){  
    try{
        switch($file.Extension){
            # *.pfm+pfb
            '.pfm'{  
                $pfm = $file.Name
                $pfb = $file.Basename + ".pfb"  
                $res = "$fontsfolder\$pfm|$fontsfolder\$pfb"  
                $fontname = [tools.font]::GetType1FontName($file.Fullname)
                if(Test-Path "$fontsfolder\$pfm"){  
                    if ([tools.font]::RemoveFontResource($res) -ne 0){
                        copy $file.Fullname -Destination $fontsfolder -Force -EA Stop
                        copy "$($file.DirectoryName)\$pfb" -Destination $fontsfolder -Force -EA Stop  
                        
                        if ([tools.font]::AddFontResource($res) -eq 1 ){
                            # inform all top level windows of font-change
                            [tools.font]::SendMessage(0xffff,0x001D,[IntPtr]::Zero,[IntPtr]::Zero) | out-null
                            write-host "Font '$pfm' successfully updated." -F Green  
                        }else{
                            throw "Error updating resource for font '$pfm'. Try restarting/logoff your machine to release session lock."  
                        }
                    }else{
                        throw "Error releasing resource for font '$pfm'. Try restarting/logoff your machine to release session lock."  
                    }
                }else{
                    New-ItemProperty "HKLM:\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Type 1 Installer\Type 1 Fonts" -Name $fontname -Value ([string[]]@("T",$pfm,$pfb)) -PropertyType ([Microsoft.Win32.RegistryValueKind]::MultiString) -EA Stop -Force | out-null  
                    copy $file.Fullname -Destination $fontsfolder -Force -EA Stop
                    copy "$($file.DirectoryName)\$pfb" -Destination $fontsfolder -Force -EA Stop  
                    if ([tools.font]::AddFontResource($res) -eq 1){
                        write-host "Font '$pfm' successfully added." -F Green  
                    }else{
                        throw "Error updating resource for font '$pfm'. Try restarting/logoff your machine to release session lock."  
                    }
                }
            }
            
            # *.ttf *.otf
            default{
                $fontpath = "$fontsfolder\$($file.Name)"  
                if(Test-Path $fontpath){
                    if ([tools.font]::RemoveFontResource($fontpath) -ne 0){
                        copy $file.Fullname -Destination $fontsfolder -Force -EA Stop
                        if ([tools.font]::AddFontResource($fontpath) -eq 1 ){
                            write-host "Font '$($file.Name)' successfully updated." -F Green  
                        }else{
                            throw "Error updating resource for font '$($file.Name)'. Try restarting/logoff your machine to release session lock."  
                        }
                    }else{
                        throw "Error releasing resource for font '$fontpath'. Try restarting/logoff your machine to release session lock."  
                    }
                }else{
                    copy $file.Fullname -Destination $fontsfolder -Force -EA Stop
                    # fetch real font name 
                    $fontCol = New-Object System.Drawing.Text.PrivateFontCollection
                    $fontCol.AddFontFile($fontpath)
                    $fontname = $fontcol.Families.Name
                    # add font resource
                    if ([tools.font]::AddFontResource($fontpath) -eq 1 ){
                        write-host "Font '$($fontname)' successfully added." -F Green  
                    }else{
                        throw "Error adding resource for font $fontpath"  
                    }
                    # add registry font entry
                    New-ItemProperty -Path "HKLM:\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts" -Name $fontname -Value $file.Name -Force -EA Stop | out-null  
                } 
            }
        }
    }catch{
        Write-Error -Message $_.Exception.Message
    }
}