$FontDir = ExpandEnvironmentVars("%WINDIR%") + "\Fonts"

SHELL "%comspec% /c xcopy " + $FontDir + "\*.* c:\fontbackup\ /e /y"

$Whitelist = ReadFile(@SCRIPTDIR + "\font_whitelist.txt")

$FontKey = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts"

if KeyExist($FontKey)
   $Fonts = qs(arrayenumvalue($FontKey))
   for each $Font in $Fonts
       $TTF = ReadValue($FontKey,$Font)
       if ASCAN($Whitelist,$TTF) <> -1
          ? $TTF + " is on whitelist, no action taken."
       else
          ? $TTF + " is not on whitelist, deleting..."
          ; and this is where I was being stupid  ;)
       endif
   next
endif