Triggering Web Services Using QTP 'Web Service url sWebserviceURL= "http://sample.wsdl" 'Input file InputRequest = "C:\Jay\Input.txt" 'response or output file sOutputXML= "C:\Jay\Output.txt" 'Fso Object Set fso = CreateObject("Scripting.FileSystemObject") 'read the input file Set f = fso.OpenTextFile(InputRequest,1) sInFileContent = f.ReadAll f.close 'xml object Set http = CreateObject("MSXML2.ServerXMLHTTP.3.0") 'open the connection http.open "POST", sWebserviceURL,False http.setRequestHeader "content-type","text/xml" 'Send the input file http.send sInFileContent 'read the response OutputResponse=http.ResponseText 'write into output file Set f = fso.OpenTextFile(sOutputXML , 2, True) f.Write(OutputResponse) f.close set f= nothing set fso=nothing