none
Script para copiar executaveis do Servidor para Estações de Trabalho RRS feed

  • Pergunta

  • Prezado(a)s, boa tarde.
    Eu preciso criar um script para copiar .exe de um determinado servidor para estações de trabalho, pois tenho uma ardua tarefa de copiar manualmente devido as constantes atualizações do sistema. 

    Exemplo:
    Origem dos Executaveis                                   Destino dos Executaveis( nas estações de trabalho) 
    \\srv01\Sistema\EAP\eap.exe                            C:\arquivos de progamas\sistema\EAP
    \\srv01\Sistema\Adm\adm.exe                          C:\arquivos de progamas\sistema\Adm
    \\srv01\Sistema\SUP\sup.exe                            C:\arquivos de progamas\sistema\SUP
    \\srv01\Sistema\\CRC\crc.exe                           C:\arquivos de progamas\sistema\CRC

    Ficarei muito Grato pela ajuda.

     


    Cleber Almeida MCP - 2003Server / MCDST
    sábado, 6 de fevereiro de 2010 15:48

Respostas

  • Olá,

    Verifique o script abaixo:

    Set strFolder = CreateObject("Scripting.FileSystemObject")
    Dim aOrigem(3)
    Dim aDestino(3)

    aOrigem(0) = "\\srv01\Sistema\EAP\eap.exe"
    aOrigem(1) = "\\srv01\Sistema\Adm\adm.exe"
    aOrigem(2) = "\\srv01\Sistema\SUP\sup.exe"
    aOrigem(3) = "\\srv01\Sistema\\CRC\crc.exe"

    aDestino(0) = "C:\arquivos de progamas\sistema\EAP\"
    aDestino(1) = "C:\arquivos de progamas\sistema\Adm\"
    aDestino(2) = "C:\arquivos de progamas\sistema\SUP\"
    aDestino(3) = "C:\arquivos de progamas\sistema\CRC\"


    For x = 0 to UBOUND(aOrigem)
       CopiaArquivo aOrigem(x),aDestino(x)
    Next


    Sub CopiaArquivo(origem,Destino)

    strFolder.CopyFile origem , destino , true

    End Sub



    Até mais,

    Jesiel

    Obs.: Se útil, classifique

    domingo, 7 de fevereiro de 2010 13:38

Todas as Respostas

  • Olá,

    Verifique o script abaixo:

    Set strFolder = CreateObject("Scripting.FileSystemObject")
    Dim aOrigem(3)
    Dim aDestino(3)

    aOrigem(0) = "\\srv01\Sistema\EAP\eap.exe"
    aOrigem(1) = "\\srv01\Sistema\Adm\adm.exe"
    aOrigem(2) = "\\srv01\Sistema\SUP\sup.exe"
    aOrigem(3) = "\\srv01\Sistema\\CRC\crc.exe"

    aDestino(0) = "C:\arquivos de progamas\sistema\EAP\"
    aDestino(1) = "C:\arquivos de progamas\sistema\Adm\"
    aDestino(2) = "C:\arquivos de progamas\sistema\SUP\"
    aDestino(3) = "C:\arquivos de progamas\sistema\CRC\"


    For x = 0 to UBOUND(aOrigem)
       CopiaArquivo aOrigem(x),aDestino(x)
    Next


    Sub CopiaArquivo(origem,Destino)

    strFolder.CopyFile origem , destino , true

    End Sub



    Até mais,

    Jesiel

    Obs.: Se útil, classifique

    domingo, 7 de fevereiro de 2010 13:38
  • Olá,

    Verifique o script abaixo:

    Set strFolder = CreateObject("Scripting.FileSystemObject")
    Dim aOrigem(3)
    Dim aDestino(3)

    aOrigem(0) = "\\srv01\Sistema\EAP\eap.exe"
    aOrigem(1) = "\\srv01\Sistema\Adm\adm.exe"
    aOrigem(2) = "\\srv01\Sistema\SUP\sup.exe"
    aOrigem(3) = "\\srv01\Sistema\\CRC\crc.exe"

    aDestino(0) = "C:\arquivos de progamas\sistema\EAP\"
    aDestino(1) = "C:\arquivos de progamas\sistema\Adm\"
    aDestino(2) = "C:\arquivos de progamas\sistema\SUP\"
    aDestino(3) = "C:\arquivos de progamas\sistema\CRC\"


    For x = 0 to UBOUND(aOrigem)
       CopiaArquivo aOrigem(x),aDestino(x)
    Next


    Sub CopiaArquivo(origem,Destino)

    strFolder.CopyFile origem , destino , true

    End Sub



    Até mais,

    Jesiel

    Obs.: Se útil, classifique


    Josiel, muito obrigado pela força, no entanto vai algumas duvidas minhas:
    aOrigem = ao IP do meu servidor ?
    aDestino = ?, pois tenho varios desktop´s e a minha ideia era tipo quando executar o script ele copiar os executaveis da pasta de origem e jogar no destino que no caso e aquele caminho que mencionei: c:\arquivos de programas\sisepc-sup,Com e assim por diante ?

    Cleber Almeida MCP - 2003Server / MCDST
    segunda-feira, 8 de fevereiro de 2010 22:28
  • Olá,

    Da maneira que ele faz, ele copia o aOrigem(0) para o aDestino(0), e assim por diante.

    Faça um teste em uma maquina cliente. Se funcionar, crie uma GPO e coloque para executar o script no logon do usuário por GPO.


    Até mais,

    Jesiel

    Obs.: Se útil, classifique

    terça-feira, 9 de fevereiro de 2010 01:04
  • Jesiel, boa tarde.

    Desculpe minha incoveniencia segue algumas duvidas:

    1º seria possivel que esse script fosse criado em *.bat (batch code)
    2º em um compartilhamento o mesmo está acentuado, como: c:\arquivos de programas\Sistema\Programação, o que acontece quando executo ele cria uma pasta chamada Progama¬c¬o deste mesmo jeito e o objetivo é copiar apenas o executavel para a pasta mencionada.
    3º segue abaixo um script que desenvolvi:

    @echo off

    xcopy \\oecre03w\sistemas$\SISEPC\Update\Prg\*.* "%programfiles%\SisEPC-Programação\*.*" /y
    xcopy \\oecre03w\sistemas$\SISEPC\Update\Sup\*.* "%programfiles%\SisEPC-suprimento\*.*" /y

    @echo Atualizacao Concluida com exito

    pause

    Há algo de errado neste script ?


    Cleber Almeida MCP - 2003Server / MCDST
    quarta-feira, 10 de fevereiro de 2010 18:04
  • Olá,

    Você não precisa do segundo \*.*

    Até mais,

    Jesiel

    Obs.: Se útil, classifique

    quarta-feira, 10 de fevereiro de 2010 19:35
  • Boa tarde,

    Também estou precisando copiar arquivos do servidor para uma estação de trabalho no meu caso com Windows 7, segui os dois scripts que vocês colocaram aqui mas comigo não funcionou.

    Preciso copiar arquivos para a pasta C:\Program Files (x86)\Mozilla Firefox\defaults\pref

    Script em VBS diz permissão negada, script em bat diz parâmetro invalido.

    Ambos foram executados com a conta administrador, realmente não sei mais o que fazer.

    quinta-feira, 3 de janeiro de 2013 18:17
  • Boa Noite Douglas,

    O win7 é um pouco mais chato mesmo, nesse caso faça um teste abra um CMD Elevado, (Mesmo que você seja ADM, em alguns casos ele exige elevação).

    segue alguns post daqui do Forum que abrange esse tema.....

    http://social.technet.microsoft.com/Forums/pt-BR/scriptadminpt/thread/c345b0cd-175b-4618-9962-8746407bb5cc/?prof=required

    http://social.technet.microsoft.com/Forums/pt-BR/scriptadminpt/thread/e26ac927-60f5-43af-82ca-222ea16041c5



    att, Aparecido Deveza

    quinta-feira, 3 de janeiro de 2013 21:41
  • Obrigado pelas indicações mas no meu caso não funcionou.

    Quero montar o script e aplica via GPO fiz varias vezes mas não funcionou, quando executo o script feito em bat localmente ele funciona o problema e quando ele esta no servidor.

    sexta-feira, 4 de janeiro de 2013 13:58
  • Olá, 

    Seu script me ajudou muito, só tenho uma dúvida, no caso precisaria copiar um arquivo que está no servidor para várias estações, sendo que a pasta fica dentro do usuário, resumindo, preciso que o arquivo seja copiada para usuario\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup, em cada usuário que realizar o logon na máquina, neste caso, como posso colocar o código de destino?

    Poderia me ajudar com essa questão?

    Já rodei o google todo... rs

    Agradeço muito.

    Att,

    Arthur Miranda

    segunda-feira, 28 de outubro de 2013 15:11