Copy fonts using script for unattended vista install

I had to create a vbscript to copy fonts from a network share for an unattended vista (or windows 7) install


Const FONTS = &H14&
Set objShell = CreateObject("shell.Application")
Set objFolder = objShell.Namespace(FONTS)
strdir = "\\srv001\REMINST\Drivers\Finalize\Fonts"

enumdir(strdir)

Sub EnumDir(strdir)
dim FSO,f,fc
set FSO=Wscript.CreateObject("scripting.FileSystemObject")
If fso.FolderExists(strDir) then
set f=fso.GetFolder(strDir)
set fc=f.files
if fc.Count > 2 then
for each fl in fc
objFolder.CopyHere strdir & "\" & fl.name
next
End If
else
wscript.echo "Folder " & strDir & " NOT found"
end if
End Sub

Comments

olbacafarelli said…
The Stilletto Titanium Hammer - TITNIC ARTS
The stilletto steel plate plates are buy metal online suitable titanium tubing for heavy machinery titanium dive watch and titanium rimless glasses are perfect for all. You titanium ring can open and

Popular posts from this blog

Exchange Server Error -1018: How Microsoft IT Recovers Damaged Exchange Databases

Server and Domain Isolation Using IPsec and Group Policy

[Solved] The Group Policy client-side extension Internet Explorer Zonemapping failed to execute