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\Alienware Evolution\Fonts")
Set objFolderItem = objFolder.ParseName("autobahn_stencil.ttf")
objFolderItem.InvokeVerb("Install")

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

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(windir & "\Resources\Themes\Alienware Evolution\Fonts")
Set objFolderItem = objFolder.ParseName("Share-TechMono.ttf")
objFolderItem.InvokeVerb("Install")


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

