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 GetIPA() Set WshShell = CreateObject("WScript.Shell") cmd = rsync + " -e '"+ssh+" -i "+key_pri+"' "+User+"@"+Ip+":"+RemoteIPAPath+" "+LocalIPAPath GetIPA = WshShell.Run(cmd,0,true) End Function ret = GetIPA() WScript.Echo(ret)