Re: Automate window fonts installation
- From: Ian <ian@xxxxxxxxxxxxxxxxxxxxxxxxxx>
- Date: Thu, 02 Jun 2005 19:22:58 +0100
I use the following
' Start of script
Option Explicit
Dim strAddedFonts, updated, sComputer, fso, oReg, strRegValue, sFontName, sFontFile, strIFN
Const HKLM = &H80000002
sComputer = InputBox("What is the computername ","Register Fonts","COMPUTERNAME",1,1)
updated= "Following fonts have been"&vbCr &"registed on "&sComputer &vbCr &vbcr
Set Fso = CreateObject("Scripting.FileSystemObject")
Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & sComputer & "\root\default:StdRegProv")
strRegvalue = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts"
sFontName = "Kartika (TrueType)"
sFontFile ="Kartika.ttf"
FontUpdate ()
sFontName = "Elephant (TrueType)"
sFontFile ="ELEPHNT.TTF"
FontUpdate ()
msgbox updated
Function FontUpdate ()
' in here place routine to copy fonts from a central repository
' to the target PC
strIFN = "\\"&sComputer &"\C$\Windows\Fonts\"&sFontFile
If Fso.FileExists(strIFN) Then
updated = updated & sFontFile &VbCr
oReg.SetStringValue HKLM, strRegvalue, sFontName, sFontFile
end if
End function
' end of script
Ian
On 24 May 2005 11:31:12 -0700, "citizen" <diportnoy@xxxxxxxxx> wrote:
>I need to install new font on all the 200+ PC's in the Windows 2000
>domain. All stations are Windows XP SP1/SP2.
>
>I there any way to install new fonts either with login script or
>policies, using vbscript or freeware app?
>
>Thank you
.
- Prev by Date: Re: Listing Users that are Part of the Local Administrator Group
- Next by Date: Re: Listing Users that are Part of the Local Administrator Group
- Previous by thread: Re: make active x control - permission denied
- Next by thread: Re: How to write Binary data using VBScript?
- Index(es):
Relevant Pages
|
