Спасибо. Нужно на VB или VBScript
Вот такой, примерно код, наверное?
mcm = "
https://<myCloud>.perfectomobile.com/"
securityToken = "<mySecurityToken>"
repositoryType = "media/"
repositoryItemKey = "PRIVATE:apps/Sample.ipa"
url = mcm & "services/repositories/" & repositoryType & repositoryItemKey & "?operation=upload"
url = url & "&securityToken=" & securityToken
file = "<path\to>\Sample.ipa"
Set Stream = CreateObject("ADODB.Stream")
Stream.Mode = 3
Stream.Type = 1
Stream.Open
Stream.LoadFromFile file
request = Stream.Read
Stream.Close
Set http = CreateObject("Msxml2.ServerXMLHTTP.6.0")
http.setOption 2, 13056
http.Open "POST", url, False
http.setRequestHeader "Content-Type", "application/octet-stream"
http.send request
Response = http.responseText
wscript.echo Response
Set http = Nothing
Set Stream = Nothing
wscript.quit
