none
Como copiar fonts para o C:\Windows\fonts no vista RRS feed

  • Pergunta

  • Estou tentendo copiar um fonts para maquina do usuario onde eles sao copiados de uma pasta no domino mais ao executar o comando os fonts nao sao passados para as maquinas do usuario e tambem nao estou conseguindo apelidar os caminhos de rede para melhorar a manutencao do codigo estou mandando o codigo abaixo se alguem poder me ajudar agradeco

    []'s

    On Error Resume Next


    Set objNetwork = CreateObject("Wscript.Network")
    Set colDrives = objNetwork.EnumNetworkDrives

    '----------------------------------------------------------'
    ' APAGANDO MAPEAMENTO DAS MAQUINAS                         '
    '----------------------------------------------------------'

    For i = 0 to colDrives.Count-1 Step 2
        objNetwork.RemoveNetworkDrive colDrives.Item(i), True, True
    Next


    On Error Resume Next
    '----------------------------------------------------------'
    '        OBJETOS GLOBAIS                                   '
    '----------------------------------------------------------'

    Set Network = CreateObject("Wscript.network")
    Set objShell = CreateObject("WScript.Shell")


    '----------------------------------------------------------'
    '          MAPEANDO REDE                                   '
    '----------------------------------------------------------'
    Servidor0 = Servam-notes
    Servidor1 = Servam-01
    Servidor2 = Servam-02
    Servidor3 = Servam-03
    Servidor4 = servam-04



    Network.MapNetworkDrive "I:", "\\Servidor1\Connect", True
    Network.MapNetworkDrive "L:", "\\Servidor0\People", True
    Network.MapNetworkDrive "U:", "\\Servidor2\Usuarios", True
    Network.MapNetworkDrive "S:", "\\Servidor2\Setor", True
    Network.MapNetworkDrive "P:", "\\Servidor2\Publico", True

    '----------------------------------------------------------'
    '               COPIANDO ARQUIVO FONTE                  '
    '----------------------------------------------------------'

    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.CopyFile "\\servam-01\SYSVOL\dominio\Arquivos\Zurchi.TTF", "C:\Windows\Fonts",TRUE,TRUE
    fso.CopyFile "\\servam-01\SYSVOL\dominio\Arquivos\zurchki.TTF", "C:\Windows\Fonts",TRUE,TRUE
    quarta-feira, 29 de abril de 2009 20:48

Respostas