code:

---

$KeyFonts = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Fonts"
$Fontdir = "i:\arr.alg\sysbeh\install\fonts\"   ; Systeembeheerder kan dit aanpassen aan zijn netwerkomgeving
$Font1 = $Fontdir + "beatrix.*"
$Font2 = $Fontdir + "bert*.*"
$Font3 = $Fontdir + "uto*.*"


;########## FONTS ####################################################################################################

; Variablen vaststellen
; Fonts voor de huisstijl uit de registry van Windows verwijderen
$RC = DelValue($KeyFonts, "Beatrix (TrueType)")
$RC = DelValue($KeyFonts, "Berthold Imago Light (TrueType)")
$RC = DelValue($KeyFonts, "Berthold Imago Light Italic (TrueType)")
$RC = DelValue($KeyFonts, "Berthold Imago Medium (TrueType)")
$RC = DelValue($KeyFonts, "Utopia (TrueType)")
$RC = DelValue($KeyFonts, "Utopia Bold (TrueType)")
$RC = DelValue($KeyFonts, "Utopia Italic (TrueType)")
$RC = DelValue($KeyFonts, "Utopia SB Semi Bold (TrueType)")

$RC = SetFileAttr("c:\windows\fonts\beatrix.ttf",32)
$RC = SetFileAttr("c:\windows\fonts\bertli.ttf",32)
$RC = SetFileAttr("c:\windows\fonts\bertliit.ttf",32)
$RC = SetFileAttr("c:\windows\fonts\bertme.ttf",32)
$RC = SetFileAttr("c:\windows\fonts\utopbo.ttf",32)
$RC = SetFileAttr("c:\windows\fonts\utopit.ttf",32)
$RC = SetFileAttr("c:\windows\fonts\utopme.ttf",32)
$RC = SetFileAttr("c:\windows\fonts\utopsbo.ttf",32)
Del "%windir%\fonts\beatrix.*"
Del "%windir%\fonts\bert*.*"
Del "%windir%\fonts\uto*.*"

Copy $Font1 "%windir%\fonts\" /h
Copy $Font2 "%windir%\fonts\" /h
Copy $Font3 "%windir%\fonts\" /h

$RC = WriteValue($KeyFonts, "Beatrix (TrueType)", "beatrix.ttf", "Reg_SZ")
$RC = WriteValue($KeyFonts, "Berthold Imago Light (TrueType)", "bertli.ttf", "Reg_SZ")
$RC = WriteValue($KeyFonts, "Berthold Imago Light Italic (TrueType)", "bertme.ttf", "Reg_SZ")
$RC = WriteValue($KeyFonts, "Berthold Imago Medium (TrueType)", "bertliit.ttf", "Reg_SZ")
$RC = WriteValue($KeyFonts, "Utopia (TrueType)", "utopme_E.ttf", "Reg_SZ")
$RC = WriteValue($KeyFonts, "Utopia Bold (TrueType)", "utopbo_E.ttf", "Reg_SZ")
$RC = WriteValue($KeyFonts, "Utopia Italic (TrueType)", "utopit_E.ttf", "Reg_SZ")
$RC = WriteValue($KeyFonts, "Utopia SB Semi Bold (TrueType)", "utopsboE.ttf", "Reg_SZ")
$RC = WriteValue($KeyFonts, "Utopia Expert (TrueType)", "Utoexp_E.ttf", "Reg_SZ")

---