Then make the Appropriate "install Fonts" folder on their desktop. The idea is to run fontview.exe for each font, which makes it available for other Windows applications: for /F "delims= " %%a in ('dir C:\ExtraFonts /B /A-D-H-S /S') do fontview %%aĬreate a script file called InstallFonts.vbs in my case I put it in C:\PortableApps\InstallFonts\ IN the below code replace "SomeUser" with the username of the person you want to be able to install fonts. Yet another alternative is to install fonts "temporary", just for current user session. Set objFolderItem = objFolder.ParseName("Myriad Pro.ttf")
Set objFolder = objShell.Namespace("C:\Windows\Font") Set objFolderItem = objFolder.ParseName("")Įxample: Set objShell = CreateObject("Shell.Application") Set objShell = CreateObject("Shell.Application") Reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts" /v "FontName (TrueType)" /t REG_SZ /d FontName.ttf /fĪlternatively you can the following lines of code to suit your needs save it as a. Copying alone won't install the font: you also need to register the font, e.g. It's possible but you have to write a Windows shell script to do that.