none
Copiar pasta do Servidor para MáquinaS locais RRS feed

  • Pergunta

  • Boa Tarde,

    Meu cenário é o seguinte, Preciso copiar uma pasta do Servidor para os desktops.

    O servidor é \\192.168.0.98\datasul\Imagem  tudo que está nesta pasta precisa ser copiado para C:\DATASUL\IMAGEM.

    OBS Muito importante; nenhuma máquina tem essa pasta criada ainda C:\DATASUL\IMAGEM, então acho que seriam 2 scripts, um para criar a pasta e o outro para copiar do servidor para a pasta.

    Obrigado desde já.
    segunda-feira, 8 de fevereiro de 2010 18:40

Respostas

  • Olá,

    Verifique o script abaixo:




    Const OverWriteFiles = TRUE

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    strOrigem = "\\192.168.0.98\datasul\Imagem"
    strDestino = "C:\DATASUL\IMAGEM"


    arrDestino = Split(strDestino,"\")
    strPasta = ""
    For x = 0 to UBOUND(arrDestino)
       strPasta = strPasta & arrDestino(x) & "\"
       if not objFSO.FolderExists(strPasta) Then
        objFSO.createFOlder(strPasta)
       End if
    Next


    objFSO.CopyFolder strOrigem , strDestino , OverWriteFiles



    Até mais,

    Jesiel

    Obs.: Se útil, classifique

    segunda-feira, 8 de fevereiro de 2010 19:14

Todas as Respostas

  • Olá,

    Verifique o script abaixo:




    Const OverWriteFiles = TRUE

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    strOrigem = "\\192.168.0.98\datasul\Imagem"
    strDestino = "C:\DATASUL\IMAGEM"


    arrDestino = Split(strDestino,"\")
    strPasta = ""
    For x = 0 to UBOUND(arrDestino)
       strPasta = strPasta & arrDestino(x) & "\"
       if not objFSO.FolderExists(strPasta) Then
        objFSO.createFOlder(strPasta)
       End if
    Next


    objFSO.CopyFolder strOrigem , strDestino , OverWriteFiles



    Até mais,

    Jesiel

    Obs.: Se útil, classifique

    segunda-feira, 8 de fevereiro de 2010 19:14
  • Olá Jesial,

    Desde já obrigado pelo apoio.

    Está aparecendo a seguinte mensagem

    Line: 19
    Char: 1
    Error: Invalid procedure call or argument
    Code: 800A0005
    Source: Microsoft VBScript runtime error

    Esse script cria a pasta e ao mesmo tempo já copia os arquivos ?


    • Marcado como Resposta Rafael S. AMARAL segunda-feira, 8 de fevereiro de 2010 20:11
    • Não Marcado como Resposta Jesiel S. Pereira terça-feira, 9 de fevereiro de 2010 01:03
    segunda-feira, 8 de fevereiro de 2010 19:33
  • Olá,

    Isso... já copia a pasta com o conteúdo.

    Ele criou as pastas?

    Dá uma olhada e nos retorne.

    Qual o S.O. que você está testando?


    Até mais,

    Jesiel

    Obs.: Se útil, classifique

    segunda-feira, 8 de fevereiro de 2010 20:00
  • Sim criou a pasta, mas nao copiou.

    Estações XP,

    AD: 2003 
    segunda-feira, 8 de fevereiro de 2010 20:02
  • Jesiel funcionou PERFEITAMENTE, eu que estava errando.

    Deixa eu tirar outra dúvida, o caso é parecido mas não preciso criar a pasta, é copiar uma pasta para outro servidor em horários diferentes.


    De: \\10.8.1.68\d$\teste\Application\dados

    Para: \\10.8.1.70\teste\GKOFRETE\ArqEntrada



    Horários:

    00:00, 06:00, 12:00 e 18:00.

    Obrigado desde ja.

    segunda-feira, 8 de fevereiro de 2010 20:10
  • Jesiel,

    O script se eu executo da minha maquina ele está funcionando normalmente. (Cria e copia), mas pela GPO ele só está criando a pasta.

    Pode me ajudar?
    terça-feira, 9 de fevereiro de 2010 11:16
  • Olá,

    Verifique se os usuários tem permissão para acessar esta pasta no servidor.


    Até mais,

    Jesiel

    Obs.: Se útil, classifique

    terça-feira, 9 de fevereiro de 2010 11:34
  • Users - Everyone
    terça-feira, 9 de fevereiro de 2010 11:36
  • Olá,

    Dá alguma mensagem de erro?

    Executa o script manualmente no usuário e verifique se ele copia.


    Até mais,

    Jesiel

    Obs.: Se útil, classifique

    terça-feira, 9 de fevereiro de 2010 12:16
  • Aparentemente o script está correto, fiz esse teste e mapeou normalmente.

    Na GPO estou apontando para as máquinas.

    Computer configuration > Windows settings > Scripts (Startup/Shutdown > Startup ( Dentro do startup Properties o nome está o caminho do script que está em \\pointer\SysVol\pointer\Policies\{E429B073-88EA-40B6-A813-E540A5E7AE55}\Machine\Scripts\Startup\datasul_imagem.vbs ) em parametro está vazia.

    Será que estou errando nessa configuração?
    terça-feira, 9 de fevereiro de 2010 12:30
  • Jesiel,

    Conforme tinha dito seu script está perfeito.

    Agora está 100%, o erro foi minha culpa, coloquei para Users configuration e agora finalizou.


    Referente a script que copia conteudos de um server para outro mas sem copiar pasta e em horários alternados é possível?
    terça-feira, 9 de fevereiro de 2010 13:08
  • Ola Rafael, o meu deu o mesmo erro, oque foi feito para corrigir o erro?

    Obrigado!


    ****(Quero Aprender)****
    segunda-feira, 14 de março de 2011 18:01