Install Fonts Windows Script

Windows Font Yükleme Script

Yeni bir font'u işletim sistemine yüklemek ve group policy ile deploy etmek için kullanılabilecek script.

----------

Option Explicit

'Windows yeni font install edilmesi

DIM objShell,objFolder,objFSO,objFile,fso

Const FONTS = &H14&

Set objShell = CreateObject("Shell.Application")

Set objFolder = objShell.Namespace(FONTS)

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set fso = CreateObject("Scripting.FileSystemObject")

'c disk inde fonts.txt var ise kurulum yapmadan çık

If (fso.FileExists("C:\fonts.txt")) Then

WScript.Quit()

Else

'c disk inde fonts.txt yok ise kurulum yap sonra fonts.txt yarat

objFolder.CopyHere "\\SharingName\font_name.ttf"

Set objFile = objFSO.CreateTextFile("C:\fonts.txt")

End If

WScript.Quit()

----------