RES Automation Manager: Add fonts on Windows Server 2008 R2
1 min read
Today while working on an unattended installation for a Citrix XenApp 6 on Windows Server 2008 R2 installation the customer asked me to add some fonts to the default installation. After some searching I found a VBS script that could do this, I had to change the script a bit because it gave some errors:
on error resume next
Const FONTS = &H14
dim oFSO,oShell, oFolder1, oFolder2, sRoot
sRoot="\\ServerName\ShareName\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
Like always I tested this script by running it manually on a test server. After a succesful run I placed the VBS file in the datastore:
After this I added a command task with this resource ‘linked’ in the command field:
When scheduled on a machine the script ran without problems, only action that’s needed after adding these fonts is to reboot the machine. Because I added this module to my unattended installation of Citrix XenApp this reboot was already build in.
Kees Baggerman
Latest posts by Kees Baggerman (see all)
- Your Cloud Desktop Is Running on Yesterday’s Silicon - May 21, 2026
- When the Orchard Ships Production Software: AI-Augmented Development in the Real World - May 17, 2026
- Nutanix Documentation Script v5.0: Visual Reports, Brand Templates, and Seven Embedded Diagrams - May 15, 2026
- Nutanix AHV and Citrix MCS: Adding a persistent disk via Powershell – v2 - November 19, 2019
- Recovering a Protection Domain snapshot to a VM - September 13, 2019
