I am using MS SOAP client provided with SOAP Toolkit 3.0. I have set the
timeout for this application to 20 seconds.
On some occasions, when there are network problems and the call to the
webservice is not able to complete succesfully, the client waits for 50
seconds before returning an error.

I include an example of the code I am using to set this timeout:

dim SOAPClient
dim par_WSDLFile, par_ServiceName, par_Port
dim strParam1, strParam2
dim objResp

par_WSDLFile = "c:\webservice.wsdl"

set SOAPClient = createobject("MSSOAP.SOAPClient30")
par_ServiceName = "pinService"
par_Port = "PinServicePort"

strError = SOAPClient.mssoapinit(par_WSDLFile, par_ServiceName, par_Port)

SOAPClient.connectionproperty("timeOut") = 20000

strParam1 = "param1"
strParam2 = "param2"

set objResp = SOAPClient.pinvirtualtrans(strLote, strBill, strCodTarjeta,
strCodOperacion, strEntidad, strPosition)