• 0

[VB] Help copying/installing fonts via command line


Question

I need for users to be able to install fonts to their system without admin privileges at work. We have a system set up that installs software from a defined database that runs as SYSTEM, and that is working well so far.

I had thought that copying font files to the WINDOWS\Fonts directory would be enough to install them, but apparently it is not.

So I found a VB script that copies .ttf files to the Fonts directory using the Windows shell, causing the font to be properly registered. This runs at system startup as SYSTEM, so it has write permission to the directory. All they have to do is copy their new fonts to a directory on the file server and restart their system.

on error resume next
Const FONTS = &H14
dim oFSO, oShell, oFolder1, oFolder2, sRoot
sRoot="\\fileserver\Shared\company\fonts"
Set oShell = CreateObject("Shell.Application")
set oFSO=createobject("scripting.filesystemobject")
Set oFolder1 = oShell.Namespace(FONTS)
set oFolder2 = oFSO.getfolder(sRoot)
for each oFile in oFolder2.files
    sName=lcase(oFile.name)
    if right(sName,4)=".ttf" then
      if not ofso.fileexists(oFolder1.self.path & "\" & sName) then
        oFolder1.copyhere sRoot & "\" & sName
      end if
    end if
next
on error goto 0

The problem is that this only copies files to the local system if they do not already exist there. I had been using robocopy to copy them over, but that wasn't registering them.

So now what I need to do is to figure out how to copy over fonts that are not correctly registered in HKLM\Software\Microsoft\Windows NT\Fonts

Alternatively, I need to be able to automatically delete .ttf files from the local system that are not correctly registered in that same registry key. I definitely don't want to go through the 1,500+ fonts manually.

I also need to be able to copy over .ttf, .otf, .fon and any other font extensions that are possible.

I don't know anything about VB script. Can someone explain how to make that go or write up something that would do that?

6 answers to this question

Recommended Posts

  • 0

Does anyone know of another forum where other experts may be able to assist if nobody here knows? Anyone have a friend who might know the answer? Google's not much help except to teach me VB from scratch, which I'm not really up for just to do this one thing.

  • 0

hi,

the issue here is that putting fonts in the correct folder is not enough to make them work. they need to be registered with the windows registry...

when you double click (or drag) a font into the folder this act registers it with the system..

so, you have two options really..

1. is to execute a registry patch to manually register the font for use

2. reboot the system which i believe will force them to be registered

i think registry patch would be the best way to go... good luck! :)

  • 0

This copies them correctly so that they get registered. This is already doing what needs to be done.

But...

I had copied them wrong in the past using robocopy, so now there are lots of fonts in their Fonts folders that are not correctly registered.

Is there a VB way to view a list from the registry of the fonts that are installed, then skip those when copying fonts over to the computer?

for each regfontname in regkey

if (fontname == regfontname)

continue

else

copy font

or something like that?

(FYI: rebooting doesn't do it. If it did, that would be great, but it doesn't. It has to be copied using the shell, either drag and drop, or using something like this script.)

  • 0

Alternative that we're going to try:

we're going to comment out the 'if not ofso.fileexists' line (and its corresponding end if) and run that. That should hopefully we think maybe copy over all of the fonts whether they need to be copied or not.

Once that has run on each computer, we can uncomment those lines again so that it only installs new fonts when it runs in the future instead of trying to install all 1700 again.

[edit]

Fail.

If the font is already registered, the copy process comes up with an error message. I'm not going to sit and click OK 1,000+ times.

Other thoughts? How can we compare against the registry?

[/edit]

The question remains though:

how can I include more than one file extension? What's the VB command for "or"?

if right(sName,4)=".ttf" or ".otf" or ".fon" then

  • 0
  Quote

how can I include more than one file extension? What's the VB command for "or"?

if right(sName,4)=".ttf" or ".otf" or ".fon" then

 If Right(sName,4) = ".ttf" Or  Right(sName,4) = ".otf"  Or  Right(sName,4) = ".fon" Then
 '-> Your Code Here
 End If

This topic is now closed to further replies.
  • Recently Browsing   0 members

    • No registered users viewing this page.
  • Posts

    • New Outlook for Windows landing in Microsoft 365 Education accounts next January by Paul Hill Microsoft has announced that from January 2026, Microsoft 365 Education users will be able to switch to a “modern, AI-powered” Outlook for Windows. The Redmond giant said that a new toggle will show up for eligible users that will let them decide whether to run classic Outlook or the new Outlook for Windows. The new version, Microsoft said, brings numerous improvements including more streamlined communication, features to boost your productivity, and more ways to personalize your experience. As this update is coming to Microsoft 365 Education accounts, it means it’ll affect both students and teachers. The refreshed interface more deeply integrates with Microsoft 365 Copilot to deliver: smarter email and calendar management with features such as Pinning and Snoozing; personalized themes that match your style and preferences; and Copilot-powered assistance to help you draft, summarize, and organize your emails and appointments. Microsoft is obviously keen for users to switch over to the new interface when it's available to foist AI on you. However, if you are reticent about using these AI tools, you can always revert back to the classic Outlook for Windows, at least for a while after the new version is released. The new toggle will begin rolling out globally next January. Before then, Microsoft 365 Education users will get in-app notifications ahead of the change to prepare them, and educational organizations will have the power to opt out or manage the experience through administrator settings. While most Microsoft 365 Education users will get the toggle, there are some exceptions. These include: organizations that have opted out of automatic migration; users with perpetual licenses; on-premises account holders; and devices where the toggle is hidden via policy. The upcoming changes will not require any administrative action during the rollout. Microsoft says administrators, if they want to, can notify users about the upcoming change; update their internal documentation; and review the documentation for Admin control over migration. The firm said that after the rollout, policy controls will become available through Group Policy Objects (GPO), Cloud Policy, and Intune. In terms of compatibility with other platforms, the new Outlook for Windows will be compatible, including with Mac. Users will still be able to access their accounts normally through the Outlook app available for macOS or via the Outlook web app.
    • Might be a joke to a shortsighted person, but that's the minimum for ANY EV to be as reliable and hassle-free as my '12 Highlander Hybrid. Sure my Hybrid gets even less at 372mi (in the winter) - 455mi (in the summer) on a tank, but at least I can refill it for another 372mi-455mi in merely 10 minutes or less without ANY of the following worries: Without all of that peace of mind, an EV will require 800mi/charge to give similar peace of mind for me. I ain't buying and worrying about separate vehicles just for city commuting and long road trips. That's a total waste of cash IMO. My Highlander Hybrid perfectly suits both use cases, and for any EV to be worth my consideration, they'll have to suit them too. Maybe for you that solely resides in 1 city and never travel by road it makes no sense, but for anyone with experience of traveling across cities here in Canada, it makes total sense given the long distances. I ain't suddenly adding another 1hr to my road trip just for EVs, mere coffee and snacks suffice for my trips (~800km), and those certainly don't take me 1hr.
    • Microsoft will reportedly hit Xbox division with a massive wave of layoffs soon by Pulasthi Ariyasinghe It was only a few days ago that a report came out regarding a mass layoff wave at Microsoft. While that report only mentioned sales staff that were to be affected, now, another report has landed that mentions the company's Xbox gaming division being another layoff target. According to Bloomberg's Jason Schreier, Microsoft has another major round of layoffs planned for the Xbox division as it reorganizes the company ahead of the new fiscal year. This unfortunate news for many staff will be announced as soon as next week, per the report Bloomberg has gained the information from sources that had asked not to be named, who had said that managers inside Xbox are already expecting the job cuts to take effect soon. While no specific developers, divisions, or numbers were mentioned, "substantial cuts" are reportedly incoming as a part of this change. The gaming division of Microsoft has gone through multiple layoff waves in recent years. Late 2024 saw 650 jobs being cut from Xbox corporate and supporting teams. Earlier in the same year, over 1,900 staff from Activision Blizzard, ZeniMax, and Xbox development teams were let go from Microsoft. Microsoft has released a number of high-profile first games as of late, including Doom: The Dark Ages, Avowed, and Indiana Jones and the Great Circle, and is also pursuing a multi-platform strategy that has Xbox games releasing on PlayStation platforms. It has also confirmed next-gen Xbox hardware is now in development and recently unveiled a first-ever official Xbox handheld initiative. If the latest report turns out to be accurate, we should have an official announcement sometime next week. Microsoft's current fiscal year is slated to end on June 30.
    • LibreOffice is fine for individual use, but its collaboration tools are far behind Office 365.
    • First thing I wondered as well. I miss the old color. I always thought it was nice how each app had its own color. Then they go and take 2 of the most commonly used apps and give them the same color.
  • Recent Achievements

    • Week One Done
      Sharon dixon earned a badge
      Week One Done
    • Dedicated
      Parallax Abstraction earned a badge
      Dedicated
    • First Post
      956400 earned a badge
      First Post
    • Week One Done
      davidfegan earned a badge
      Week One Done
    • First Post
      Ainajohn earned a badge
      First Post
  • Popular Contributors

    1. 1
      +primortal
      593
    2. 2
      ATLien_0
      223
    3. 3
      Michael Scrip
      170
    4. 4
      +FloatingFatMan
      152
    5. 5
      Som
      135
  • Tell a friend

    Love Neowin? Tell a friend!