none
скрипт для атоматического копирования файлов с одного сервера на другой RRS feed

  • Общие обсуждения

  • добрый день,

    хочу сделать скрипт для копирования файлов с одного серва на другой, желательно с отправкой о отчете на почту, у меня етсь пример но не работает, возможно гдето ошибка не могу понять:

    Set FSO=CreateObject("Scripting.FileSystemObject")
    strSourcePath = "D:\Backup\opera"
    strDestinationPath = "\\HET\OperaBackups\Week\Hday"

    fso.CopyFile strSourcePath, strDestinationPath


    If fso.FileExists(strDestinationPath & strDestinationPath) Then
        
        Set objEmail = CreateObject("CDO.Message")
        objEmail.From = "report@group.com"
        objEmail.To = "admin@group.com"
        objEmail.Subject = "Opera Files Copied to HET" 
        objEmail.Textbody = "Opera Files Copied to HET at : " & Now
        objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smarthost" 
        objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
        objEmail.Configuration.Fields.Update
        objEmail.Send
    Else
        MsgBox "Copy Failed"
    End If

    MsgBox "Completed"