none
Scripts para backup !!! RRS feed

  • Pergunta

  • Gente boa tarde 
    To com um problema assim:  no servidor antigo que tem aqui no trab o pessoal estava guardando os arquivos PST´s na rede, queria mudar isso deixando estes arquivos como local, porem de um tempo determinado fazer com que o servidor possa copiar estes arquivos e guarda-los no servidor, isto é possivel ?? recebi uma resposta assim ...


    ...sobre os PST's...se vc usa Windows XP, vc pode criar jobs de backup nas estações para que elas façam backup dos psts dos usuários para um compartilhamento em um servidor...esse job poderia ser implementado no logon via vbs (procure no fórum de scripts administrativos) e ele poderia ser agendado para rodar no horário do almoço por exemplo...

    gente gostaria de saber como fazer este jobs, alguem tem uma passo a passo

    no aguardo
    segunda-feira, 15 de março de 2010 19:33

Respostas

  • Olá,

    Você pode fazer uma copia, conforme o exemplo:

    Const OverwriteExisting = TRUE

    Set objNetwork = CreateObject("Wscript.Network")
    Set objFSO = CreateObject("Scripting.FileSystemObject")


    strUserName = objNetwork.Username
    strPasta = "C:\Documents and Settings\" & strUserName & "\Configurações locais\Dados de aplicativos\Microsoft\Outlook"

    'LOCAL ONDE SERÁ COPIADO OS ARQUIVOS
    strDestino = "\\servidor\compartilhamento"

    'Verifica se existe uma pasta com o nome do usuario no servidor
    If Not objFSO.FolderExists(strDestino & "\" & strUserName) Then
       Set objFolder = objFSO.CreateFolder(strDestino & "\" & strUserName)
    End if

    objFSO.CopyFile strPasta & "\*.pst" , strDestino & "\" & strUserName , OverwriteExisting



    Faça os testes e nos retorne.

    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    terça-feira, 16 de março de 2010 12:01