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  TailLog()

    Set WshShell = CreateObject("WScript.Shell")
    
    cmd = ssh + " -i "+key_pri+" -l "+User+" "+Ip + " "
    cmd = cmd + "cd "+RemotePath+"/build/build-ios-output;"
    cmd = cmd + "tail -f archive_log.txt"


    WshShell.Run cmd,9,true

End Function 


TailLog()