VBScript to invoke the web service

[Neha0207]

Hi

I am creating VB script for the first time and don't know anything about it.

I have to create a vb script to call a web service(Web service is hosted in Tibco BW) . We have two input parameters for web service.

I have got the following code from internet, but it is giving me error:
Object Required string: "application/x-www-fo"(Line No 11)

VB Script:
option Explicit

'Declare Variables
Dim objCreated, objDate
Dim objFileToWrite
Dim fso 'As Scripting.FileSystemObject
Dim oWinHttp,sContentType , sWebServiceURL, sSOAPAction, sSOAPRequest,sResponse,servicename

Set oWinHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
'Set sContentType="application/soap+xml;charset=UTF-8"
Set sContentType="application/x-www-form-urlencoded"
sSoapAction = "/SharedResources/WebService/Service.serviceagent/PortTypeEndpoint1/ApplicationStatus"
sWebServiceURL = "http://localhost:7858/SharedResources/WebService/Service.serviceagent/PortTypeEndpoint1"


oWinHttp.Open "POST", sWebServiceURL, False
oWinHttp.setRequestHeader "Content-Type", sContentType
oWinHttp.setRequestHeader "SOAPAction", sSOAPAction
oWinHttp.Send sSOAPRequest
sResponse = oWinHttp.ResponseText
Set oWinHttp = Nothing


I am even not sure if this VB script is correct one for me.


Can anybody help me in this regard.

[Neha0207]

Does anyone has any idea on this ?