none
Ajuda com Script RRS feed

  • Pergunta

  • Olá pessoal,

           Tenho um script que faz um back-up do outlook de determinadas máquinas para a minha máquina. Gostaria de saber se teria como implementar no script algum código onde mostre na tela que o processo(da cópia), está concluido. segue o script:

    Const OverwriteExisting = TRUE
    Set objNetwork = CreateObject("Wscript.Network")
    Set WshShell=CreateObject("Wscript.Shell")
    Set objFSO = CreateObject("Scripting.FileSystemObject")

    dNow = Now
    dd = Right("00" &Day(dNow), 2)
    mt = Right("00" &Month(dNow), 2)
    yy = Right(Year(dNow), 4)
    data = yy & "-" &mt & "-" &dd

    strUserName = objNetwork.Username
    strPasta = "C:\Documents and Settings\" & strUserName & "\Configurações locais\Dados de aplicativos\Microsoft\Outlook"
    'LOCAL ONDE SERÁ COPIADO OS ARQUIVOS
    strDestino = "\\10.1.1.114\backup_emails"
    'Verifica se existe uma pasta com o nome do usuario no servidor
    If Not objFSO.FolderExists(strDestino & "\" & strUserName & " " & data) Then
       Set objFolder = objFSO.CreateFolder(strDestino & "\" & strUserName & " " & data)
    End if
    objFSO.CopyFile strPasta & "\*.*" , strDestino & "\" & strUserName & " " & data, OverwriteExisting

     

    Desde já agradeço a atenção de todos.

    terça-feira, 5 de outubro de 2010 14:47

Respostas

Todas as Respostas