‘ ****************************************************************************
‘ Copy Fonts From Network Share To C:\WINDOWS\FONTS Folder Of Workstation
‘ ****************************************************************************
Set WshShell = CreateObject(“WScript.Shell”)
WshShell.Run “xcopy.exe “”\\%SERVERNAME%\%SHARE \FONTS”” “”C:\windows\fonts”” /C /I /S /E /H /Y /Q”, 1,True
‘ ****************************************************************************
‘ Imports The Registry Information For The New Fonts – Add A New Line For Each New Font
‘ Example : WshShell. RegWrite”HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts\%FONT REG KEY%”, “%FONT REG KEY ENTRY%”, “REG_SZ”
‘ ****************************************************************************
Set WshShell = WScript.CreateObject(“WScript.Shell”)
WshShell. RegWrite”HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts\Twiggy-Bold (TrueType)”, “Twiggy-Bold.ttf”, “REG_SZ”
WshShell. RegWrite”HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts\Twiggy-Light (TrueType)”, “Twiggy-Light.ttf”, “REG_SZ”
