none
GPO INSTALAR FONTS RRS feed

Respostas

  • Consegui.

    Criei uma GPO de Computador e coloquei na inicialização o script: arquivo fontes.vbs

    GPO\Computer Configuration\Policies\Windows Settings\Scripts\Startup\Nome\Fontes.vbs


    Option Explicit
    ' Installing multiple Fonts

     
    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 = "\\dominio\NETLOGON\FONTES"
     
    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)
    If objFSO.FileExists("C:\WINDOWS\Fonts\" & objFile.Name) = False Then
    objFont.InvokeVerb("Install")
    Set objFont = Nothing
    End If
    End If
    Next
    Else
    Wscript.Echo "Font Source Path does not exists"
    End If

    terça-feira, 13 de junho de 2017 14:37