VBScript

Add Parameters to Multipart Form-Data POSTs

Parameters (name=value) can be added to multipart/form-data POSTs (such as for file uploads) by using the AddParam method. This example sends the following HTTP POST

POST /something HTTP/1.1
Content-Type: multipart/form-data; boundary=------------010201080703010401070605
Host: domain
Content-Length: 560

--------------010201080703010401070605
Content-Disposition: form-data; name="name"

Joe
--------------010201080703010401070605
Content-Disposition: form-data; name="age"

25
--------------010201080703010401070605
Content-Disposition: form-data; name="fileA"; filename="fileA.txt"
Content-Type: text/plain

This is the contents of file A
--------------010201080703010401070605
Content-Disposition: form-data; name="fileB"; filename="fileB.txt"
Content-Type: text/plain

This is the contents of file B
--------------010201080703010401070605--

VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

set req = CreateObject("Chilkat.HttpRequest")

req.HttpVerb = "POST"
req.Path = "/something"
req.ContentType = "multipart/form-data"

req.AddParam "name","Joe"
req.AddParam "age","25"

success = req.AddStringForUpload("fileA","fileA.txt","This is the contents of file A","utf-8")
success = req.AddStringForUpload("fileB","fileB.txt","This is the contents of file B","utf-8")

outFile.WriteLine(req.GenerateRequestText())

outFile.Close