Crie uma pasta chamada Fontes no compartilhamento Netlogon de seu AD. Copie os arquivos TTF de fonte que você deseja que sejam instalados.
Parar criar o script, abra o notepad e insira o conteúdo abaixo:
‘************************************************************************************‘ SCRIPT PARA INSTALAR TODAS AS FONTES QUE ESTÃO EM UMA PASTA NO SERVIDOR
‘
‘ FONTE: www.nvlan.com.br
‘************************************************************************************
Option Explicit
dim WinScriptHost
Dim objShell, objFSO, wshShell
Dim strFontSourcePath, objFolder, objFont, objNameSpace, objFile, CopiarFontesDe
Set objShell = CreateObject(“Shell.Application”)
Set wshShell = CreateObject(“WScript.Shell”)
Set objFSO = createobject(“Scripting.Filesystemobject”)
‘************************************************************************************
‘ VARIAVEIS (ALTERE CONFORME A NECESSIDADE)
‘************************************************************************************
CopiarFontesDe = “\\SEU_DOMINIO.COM.BR\Netlogon\Fontes“
‘************************************************************************************
‘ INICIO DO SCRIPT
‘************************************************************************************
strFontSourcePath = objFSO.GetAbsolutePathName(CopiarFontesDe)
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
Na hora de salvar o arquivo, mude o tipo de extensão para todo o tipo de arquivo e salve localmente em seu computador como fonts.vbs. Agora abra o mmc, insira e abra o gerenciador de políticas de domínio, vá na OU que você deseja criar a política, nesta OU crie e associe uma política chamada Instala Fontes.
Edite esta nova política e navegue até Computer Configuration -> Policies -> Windows Configuration -> Scripts e abra Startup. Clique em Add, na tela seguinte coloque o nome fonts.vbs e clique em OK.
De volta a tela anterior clique em Show Files, na tela do explorer que abrir mova o arquivo fonts.vbs criado para esta pasta.
Edite esta nova política e navegue até Computer Configuration -> Policies -> Windows Configuration -> Scripts e abra Startup. Clique em Add, na tela seguinte coloque o nome fonts.vbs e clique em OK.
De volta a tela anterior clique em Show Files, na tela do explorer que abrir mova o arquivo fonts.vbs criado para esta pasta.
Fonte: http://nvlan.com.br/comunidade/instalar-varias-fontes-via-gpo/
Nenhum comentário:
Postar um comentário