none
Copiando varios Aquivos do Servidor para varios IPs (PCs na Rede) RRS feed

  • Pergunta

  • Bom dia Pessoal

    Gostaria de uma juda;

    Tenho umsistema burro que não atualiza automaticamente e tenho que atualiza manualmente.<o:p></o:p>

    Esse script da o seguinte problema, quando ele não acha o "IP" ele para de executar; colocar um comando que ignore o erro quando ele não achar o IP para que continue ate o fim.<o:p></o:p>

    E se tem uma forma de resumir esse script.<o:p></o:p>

    Const OverwriteExisting = TRUE

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    'sunstitua aqui o seu diretrio e a origem e destino
    objFSO.CopyFile "E:\AR\Sistema\Aquivo.EXE" , "\\10.10.1.100\AR\" , OverwriteExisting
    objFSO.CopyFile "E:\AR\Sistema\Aquivo.EXE" , "\\10.10.1.101\AR\" , OverwriteExisting
    objFSO.CopyFile "E:\AR\Sistema\Aquivo.EXE" , "\\10.10.1.102\AR\" , OverwriteExisting
    objFSO.CopyFile "E:\AR\Sistema\Aquivo_2.EXE" , "\\10.10.1.100\AR\" , OverwriteExisting
    objFSO.CopyFile "E:\AR\Sistema\Aquivo_2.EXE" , "\\10.10.1.101\AR\" , OverwriteExisting
    objFSO.CopyFile "E:\AR\Sistema\Aquivo_2.EXE" , "\\10.10.1.102\AR\" , OverwriteExisting
    objFSO.CopyFile "E:\AR\Sistema\Aquivo-3.EXE" , "\\10.10.1.100\AR\" , OverwriteExisting
    objFSO.CopyFile "E:\AR\Sistema\Aquivo-3.EXE" , "\\10.10.1.101\AR\" , OverwriteExisting
    objFSO.CopyFile "E:\AR\Sistema\Aquivo-3.EXE" , "\\10.10.1.102\AR\" , OverwriteExisting
    objFSO.CopyFile "E:\AR\Sistema\BANCO.INI" , "\\10.10.1.100\AR\" , OverwriteExisting
    objFSO.CopyFile "E:\AR\Sistema\BANCO.INI" , "\\10.10.1.101\AR\" , OverwriteExisting
    objFSO.CopyFile "E:\AR\Sistema\BANCO.INI" , "\\10.10.1.102\AR\" , OverwriteExisting

    segunda-feira, 18 de março de 2013 12:25

Respostas

  • Bom dia,

    Não tenho o conhecimentos dos amigos destes tópico (SCRIPT), me corrigem se estiver errado,  mas creio que se adicionar: 

    On Error Resume Next

    Vai funcionar como deseja.


    Douglas Urbano

    segunda-feira, 18 de março de 2013 12:35