VBScripting‎ > ‎

Querying a web service with vbscript (form post)

This is an example of calling a "web service" or "api" using VBScript.   There are lots of different ways that people configure web services and integration apis.

This example is an example where essentially you are doing a remote "form post" to a web page using a complicate URL that has a bunch of URL query strings.


'Declare variables

Dim xml
Dim url
Dim response
Dim ourorderid
Dim theirorderid
Dim shipdate
Dim tracking
url = "http://integrationwebsite.com/store/lab//"
url =url & "?lab=myid&status=received&orderid=" & theirorderid & "&laborderid=" & ourorderid & "&access_token=xfdfd7738383833334443"

set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")
xmlhttp.open "POST", url, FALSE
xmlhttp.setRequestHeader "Content-type", "application/x-www-form-urlencoded"
'Now handle the response
response = xmlhttp.responseText

'then do something with response

'msgbox "Done"