I am having problems installing fonts on Windows 7 and I found your post for scripting fonts but need a little help. The end goal is to add this to my sccm TS. Const FONTS = &H14 dim, oFSO,oShell, oFolder1, oFolder2, sRoot sRoot= ' server share 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)= '. Remove Logo Now 1.5. ttf' then if not ofso.fileexists(oFolder1.self.path & ' ' & sName) then oFolder1.copyhere sRoot & sName end if end if next Thiyagu MCTS/MCITP - Exchange 2007 MCSE 2003[Messaging] This posting is provided 'AS IS' with no warranties, and confers no rights. Const FONTS = &H14 dim, oFSO,oShell, oFolder1, oFolder2, sRoot sRoot= ' server share 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 Thiyagu MCTS/MCITP - Exchange 2007 MCSE 2003[Messaging] This posting is provided 'AS IS' with no warranties, and confers no rights.

Hi, Can u please explain me where the installation needs to be inserted. I followed this code and made my changes but not sure whats wrong.

More Installing Fonts Windows 7 Script videos. Installing fonts via command line/script. Windows 7 has apparently changed the way fonts are installed. I have a web page that I use that when visiting the page it looks to see if a file called barcode.exe is installed in a particular folder and if it is not present it downloads the file and executes it.