├── action.vbscript
└── README


/action.vbscript:
--------------------------------------------------------------------------------
 1 |   Dim xml, sURL, sRequest, result, userID, userKey
 2 |    
 3 |     ' put your real userID and userKey below
 4 |     userID = "0"
 5 |     userKey = "your_key"
 6 |             
 7 |     xml = "<?xml version=""1.0""?>" & VbCrLf
 8 |     xml = xml & "<query>" & VbCrLf
 9 |     xml = xml & "<userid>" & userID & "</userid>" & VbCrLf
10 |     xml = xml & "<userkey>" & userKey & "</userkey>" & VbCrLf
11 |     xml = xml & "<action>" & "GetMediaList" & "</action>" & VbCrLf
12 |     xml = xml & "</query>" & VbCrLf
13 |    
14 |     sUrl = "http://manage.encoding.com"
15 |     sRequest = "xml=" & xml
16 |     result = HTTPPost(sUrl, sRequest)
17 |    
18 |     Function HTTPPost(sUrl, sRequest)
19 |       Set oHTTP = CreateObject("Microsoft.XMLHTTP")
20 |       oHTTP.open "POST", sUrl,false
21 |       oHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
22 |       oHTTP.setRequestHeader "Content-Length", Len(sRequest)
23 |       oHTTP.send sRequest
24 |       HTTPPost = oHTTP.responseText
25 |     End Function


--------------------------------------------------------------------------------
/README:
--------------------------------------------------------------------------------
 1 | Encoding.com XML API Wrappers
 2 | ==============
 3 |  
 4 | This plugin connects to the Encoding.com API for pay as you go cloud based video transcoding services.
 5 |  
 6 | Requires a API Key and User ID from Encoding.com.  30day adn 1GB free trial available at www.encoding.com/signup
 7 |  
 8 | Examples:
 9 | 	Dim xml, sURL, sRequest, result, userID, userKey
10 |    
11 |     userID = "777"
12 |     userKey = "277e0d0sdfaaa9140a27c03419f5era"
13 |         
14 |     xml = "<?xml version=""1.0""?>" & VbCrLf
15 |     xml = xml & "<query>" & VbCrLf
16 |     xml = xml & "<userid>" & userID & "</userid>" & VbCrLf
17 |     xml = xml & "<userkey>" & userKey & "</userkey>" & VbCrLf
18 |     xml = xml & "<action>" & "GetMediaList" & "</action>" & VbCrLf
19 |     xml = xml & "</query>" & VbCrLf
20 |    
21 |     sUrl = "http://manage.encoding.com"
22 |     sRequest = "xml=" & xml
23 |     result = HTTPPost(sUrl, sRequest)
24 |    
25 |     Function HTTPPost(sUrl, sRequest)
26 |       Set oHTTP = CreateObject("Microsoft.XMLHTTP")
27 |       oHTTP.open "POST", sUrl,false
28 |       oHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
29 |       oHTTP.setRequestHeader "Content-Length", Len(sRequest)
30 |       oHTTP.send sRequest
31 |       HTTPPost = oHTTP.responseText
32 |     End Function
33 |     
34 | Copyright (c) 2009 Encoding.com Inc.
35 | 


--------------------------------------------------------------------------------