set winsh = CreateObject("WScript.Shell")
set winenv = winsh.Environment("Process")
windir = winenv("WINDIR")

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(windir & "\Resources\Themes\Blade\Fonts")
Set objFolderItem = objFolder.ParseName("Eurostile.TTF")
objFolderItem.InvokeVerb("Install")

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(windir & "\Resources\Themes\Blade\Fonts")
Set objFolderItem = objFolder.ParseName("Eurostile_Bold.ttf")
objFolderItem.InvokeVerb("Install")

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(windir & "\Resources\Themes\Blade\Fonts")
Set objFolderItem = objFolder.ParseName("Eurostile_Extended.ttf")
objFolderItem.InvokeVerb("Install")

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(windir & "\Resources\Themes\Blade\Fonts")
Set objFolderItem = objFolder.ParseName("DS-DIGI.TTF")
objFolderItem.InvokeVerb("Install")

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(windir & "\Resources\Themes\Blade\Fonts")
Set objFolderItem = objFolder.ParseName("DS-DIGIB.TTF")
objFolderItem.InvokeVerb("Install")

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(windir & "\Resources\Themes\Blade\Fonts")
Set objFolderItem = objFolder.ParseName("DS-DIGII.TTF")
objFolderItem.InvokeVerb("Install")

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(windir & "\Resources\Themes\Blade\Fonts")
Set objFolderItem = objFolder.ParseName("DS-DIGIT.TTF")
objFolderItem.InvokeVerb("Install")