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

    Set WshShell = CreateObject("WScript.Shell")    

    work_path = RemotePath&"/build"

    cmd_codesign = "security unlock-keychain -p "+Passwd+" /Users/"+User+"/Library/Keychains/login.keychain"

    cmd_build = "python3 ./proc_build_ios_log.py "+UNITY_PATH+" "+PIPE_NAME+" "+PIPE_TYPE+" framw-unity "

    cmd = ssh + " -i "+key_pri+" -l "+User+" "+Ip+ " "
    cmd = cmd + "cd "+work_path+";"
    cmd = cmd + cmd_codesign + ";"

    ' cmd = cmd + "cd build-ios-remote;"
    ' cmd = cmd + "bash build_clean.sh "+RemoteWork+" ;"
    ' cmd = cmd + "cd -;"

    ' TODO: 临时性的,需要解决为什么用sh执行会引发65535
    ' cmd = cmd + "pkill Unity;"

    cmd = cmd + "rm -f "+RemoteIPAPath+";"
    cmd = cmd + cmd_build

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

End Function


ret = BuildIos()

WScript.Echo(ret)