none
backup de estações cliente do dominio RRS feed

  • Pergunta

  • prezados, boa tarde

    estou precisando de um script que copie todos os arquivos (tirando os arquivos de sistema) para dentro de um servidor de backup meu, e gostaria de gerenciar todas as tarefas via este servidor (scripts e tarefas agendadas dentro do servidor), sendo assim, comecei por uma maquina aqui e criei o seguinte script:



    Dim objFolderCopy
    Dim PastaOrigem1
    Dim PastaDestino1
    Dim PastaOrigem5
    Dim PastaDestino5

    PastaOrigem1 = "\\contabilidade02\c$\Antigo_Sicalcp_08-08-08"
    PastaDestino1 = "F:\Temp\Antigo_Sicalcp_08-08-08"
    Set objFolderCopy = CreateObject("Scripting.FileSystemObject")
    if (objFolderCopy.FolderExists(PastaDestino1) = False) then     
        objFolderCopy.CreateFolder(PastaDestino1)  
        objFolderCopy.CopyFolder PastaOrigem1, PastaDestino1, True
    end if

    PastaOrigem5 = "\\contabilidade02\c$\Documents and Settings"
    PastaDestino5 = "F:\Temp\Documents and Settings"
    Set objFolderCopy = CreateObject("Scripting.FileSystemObject")
    if (objFolderCopy.FolderExists(PastaDestino5) = False) then     
        objFolderCopy.CreateFolder(PastaDestino5)  
        objFolderCopy.CopyFolder PastaOrigem5, PastaDestino5, True
    end if



    a pasta 1 ele copia numa boa, e qualquer outra pasta que eu coloque, tirando a documents and settings, acredito ser pelo arquivo NTUSER.dat, dai ele trava o script e da o seguinte erro:

    copia_contabilidade02.vbs(57,5) Erro de tempo de execução do Microsoft BLOCKED SCRIPT Permissão Negada


    sera que tem algum parametro pra eu colocar nesse script pra ele conseguir copiar a pasta toda? ou alguem tem alguma outra sugestao?
    segunda-feira, 10 de novembro de 2008 17:00