Problem Install Fonts VBS Script Help

Oh man! Ad-blocking software has been detected! :'(

This website is run by the community, for the community... and it needs advertisements in order to keep running. Blocking our ads means your killing our stats!
Please disable your ad-block, or become a premium member to hide all advertisements and this notice.

I've been asked to install fonts on everyone's Windows 7 machine and the script I've got and modified seems to do the trick apart from if the fonts are already installed it will prompt the user to install each one. How can I add to the script to check if the fonts exist and then exit the script. Also a box appears when it's installing the fonts. Is there a way to run this silently?

As you can probably tell scripting isn't my thing. Any help much appreciated.

Code:

 Dim objShell, objFSO, wshShell
 Dim strFontSourcePath, objFolder, objFont, objNameSpace, objFile

 Set objShell = CreateObject("Shell.Application")
 Set wshShell = CreateObject("WScript.Shell")
 Set objFSO = createobject("Scripting.Filesystemobject")

strFontSourcePath = "\\ne1nvirpfil01\install\install\fonts\lato\"

 If objFSO.FolderExists(strFontSourcePath) Then

 Set objNameSpace = objShell.Namespace(strFontSourcePath)
 Set objFolder = objFSO.getFolder(strFontSourcePath)

 For Each objFile In objFolder.files
  If LCase(right(objFile,4)) = ".ttf" OR LCase(right(objFile,4)) = ".otf" Then
    Set objFont = objNameSpace.ParseName(objFile.Name)
    objFont.InvokeVerb("Install")
    Set objFont = Nothing
  End If
 Next
 Else
  Wscript.Echo "Font Source Path does not exists"
 End If