none
Script para instalar novas Fontes por GPO .. RRS feed

  • Pergunta

  •  

     

    Senhores e experts em Scripts !!

    Estou aplicando o script abaixo para instalar algumas fontes por GPO.

    Const FONTS = &H14&
    
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.Namespace(FONTS)
    
    objFolder.CopyHere "\\SERVER\TESTE$\Fontes\FTBC____.PFM"
    objFolder.CopyHere "\\SERVER\TESTE$\Fontes\FTBI____.PFM"
    objFolder.CopyHere "\\SERVER\TESTE$\Fontes\FTBLC___.PFM"

     

    Apliquei em ambiente de homologação, o script está funcionando perfeitamente no startup das estações
    mas quando aplico em uma estação que já possui a fonte, a police é interrompida pedindo confirmação
    se deseja sobrepor as fontes ou nao. 

    Preciso saber como faço para suprimir essa confirmação, por exemplo um " if "  que verifica se a fonte existe,
    se sim ignora o script, se não tiver, aplica o script..

     

     

    Aguem sabe como fazer isso?

     

     

     

    Flavio Ad Souza

    Adm Redes


    quinta-feira, 9 de outubro de 2008 18:34

Respostas

  • (Pouco tempo depois)

    A maneira que encontrei foi testando se o arquivo da fonte existe antes de tentar copia-la.

    Const FONTS = &H14&
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.Namespace(FONTS)
    
    strDirFonts = (objFolder.self).path
    
    if not objFSO.FileExists(strDirFonts & "\FTBC____.PFM") then objFolder.CopyHere "\\SERVER\TESTE$\Fontes\FTBC____.PFM"
    if not objFSO.FileExists(strDirFonts & "\FTBI____.PFM") then objFolder.CopyHere "\\SERVER\TESTE$\Fontes\FTBI____.PFM"
    if not objFSO.FileExists(strDirFonts & "\FTBLC___.PFM") then objFolder.CopyHere "\\SERVER\TESTE$\Fontes\FTBLC___.PFM"

    Coloque o script como script de Inicialização\Start up (necessário pois precisa de privilégio administrativo). Testei com Windows 2003 e Windows 7 e funcionou nos dois.

    Ref.:

    Hey, Scripting Guy! How Can I Install Fonts Using a Script? 

    blogs.technet.com/b/heyscriptingguy/archive/2008/04/25/how-can-i-install-fonts-using-a-script.aspx


    Fábio de Paula Junior


    terça-feira, 16 de outubro de 2012 19:03
    Moderador

Todas as Respostas

  • Flavio,

    Veja este link com diversas opções para o shell.application: http://technet.microsoft.com/en-us/library/ee176633.aspx

    Acho que seu caso é resolvido adicionado o parametro &H10& após cada linha de cópia, assim:

    objFolder.CopyHere "\\SERVER\TESTE$\Fontes\FTBC____.PFM", &H10&
    objFolder.CopyHere "\\SERVER\TESTE$\Fontes\FTBI____.PFM", &H10&
    objFolder.CopyHere "\\SERVER\TESTE$\Fontes\FTBLC___.PFM", &H10&
    

    Fábio de Paula Junior
    quarta-feira, 8 de setembro de 2010 01:32
    Moderador
  • Fabio

     

    Eu fiz esse procedimento e mesmo assim pede a confirmacao voce poderia me ajudar?

     

     

     

    vlws

    terça-feira, 21 de dezembro de 2010 13:10
  • (Pouco tempo depois)

    A maneira que encontrei foi testando se o arquivo da fonte existe antes de tentar copia-la.

    Const FONTS = &H14&
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.Namespace(FONTS)
    
    strDirFonts = (objFolder.self).path
    
    if not objFSO.FileExists(strDirFonts & "\FTBC____.PFM") then objFolder.CopyHere "\\SERVER\TESTE$\Fontes\FTBC____.PFM"
    if not objFSO.FileExists(strDirFonts & "\FTBI____.PFM") then objFolder.CopyHere "\\SERVER\TESTE$\Fontes\FTBI____.PFM"
    if not objFSO.FileExists(strDirFonts & "\FTBLC___.PFM") then objFolder.CopyHere "\\SERVER\TESTE$\Fontes\FTBLC___.PFM"

    Coloque o script como script de Inicialização\Start up (necessário pois precisa de privilégio administrativo). Testei com Windows 2003 e Windows 7 e funcionou nos dois.

    Ref.:

    Hey, Scripting Guy! How Can I Install Fonts Using a Script? 

    blogs.technet.com/b/heyscriptingguy/archive/2008/04/25/how-can-i-install-fonts-using-a-script.aspx


    Fábio de Paula Junior


    terça-feira, 16 de outubro de 2012 19:03
    Moderador