Include "config.vbs"

Sub Include(sInstFile)
    Dim oFSO, f, s
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    Set f = oFSO.OpenTextFile(sInstFile)
    s = f.ReadAll
    f.Close
    ExecuteGlobal s
End Sub 

Function  CopyDir()

    Set WshShell = CreateObject("WScript.Shell")

    cmd = rsync + " -e '"+ssh+" -i "+key_pri+"' -chavzP --stats -r --delete --exclude={"+ExcludePath+"} --chmod=Du+rwx,Dgo+rwx,Fu+rwx,Fgo+rwx "
    cmd = cmd + LocalPath+" "+User+"@"+Ip+":"+RemotePath

    CopyDir = WshShell.Run(cmd, 9, true)

End Function 


ret = CopyDir()

WScript.Echo(ret)