Windows 2000 Auto install fonts

I have 20~30 fonts that do come standard with Windows that I want all of users to have. I have tried running a startup script that copies these to the C:\WINNT\FONTS folder, but this doesn't seem to work.

Is there a way to automate the install of these fonts?

Howard
LVL 2
hgj1357Asked:
Who is Participating?
 
robrandonConnect With a Mentor Commented:
Sorry.  I'm just learning how to do vs and don't want to screw anything up for you.  Maybe post a link to this question in the vbscripting area.

0
 
hgj1357Author Commented:
Is there a way I can (ha ha I mean you can) modify this script file to install ALL fonts within a folder?

Sorry about stingy 50 points, I thought this would be easy.

Howard

---------------------------------------------------------
Set WSHShell = CreateObject("WScript.Shell")
set FSO = CreateObject("Scripting.FileSystemObject")

sFontName = "Sample.TTF"
sFontDescription = "Sample Font (TrueType)"

FSO.Copyfile "O:\Fonts\" + sFontName, "c:\winnt\fonts\" + sFontName
WSHShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts\" + sFontDescription, sFontName
-----------------------------------------------------------
0
 
robrandonCommented:
vs=vb
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.