Error con SOAP y propiedad ServerHTTPRequest = True

Saludos,

Ya lo resolvimos. Se había omitido marcar el directorio virtual en IIS como
Application.


"E. Cubillán" wrote in message
news:

Saludos,

Estoy teniendo problemas al instalar una aplicacion web en ambiente de
Calidad que consume Webservices remotos.

La misma funciona correctamente en los ambientes de desarrollo y

producción,

pero cuando la instalamos en un web server de Calidad obtenemos el

siguiente

error de SOAP:

WSDLReader:Loading of the WSDL file failed HRESULT=0x80070057 -
WSDLReader:XML Parser failed at linenumber 0, lineposition 0, reason is:

The

system cannot locate the object specified.

El código en la página ASP consiste, básicamente, en:
<%
Dim ws
Dim salida

Set ws = Server.CreateObject("MSSOAP.SoapClient")
ws.ClientProperty("ServerHTTPRequest") = True
ws.mssoapinit "http://somedomain/servicio.wsdl"
salida = ws.Metodo()
%>

A pesar de usar la propiedad ServerHTTPRequest = True, no funciona la
aplicación.

Alguien conoce la solución?

Gracias.
Atte.
Javier Cubillán

Este trozo de codigo funciona en ASP desde windows o linux
contra web services hechos con Jdeveloper perfectamente.
Mira si te sirve.
<%
Dim soapclient,fa,WSDL_URL,serverport
'poner el puerto del servidor
serverport= "8988"
WSDL_URL = "http://www.server.com:" & serverport
& "/AppXWebService-context-root/JavaClass1WS?WSDL"
'Create SoapClient
set soapclient = Server.CreateObject("MSSOAP.SoapClient30")
soapclient.ClientProperty("ServerHTTPRequest") = True
soapclient.mssoapinit WSDL_URL
'?operation=getDate
soapclient.ConnectorProperty("EndPointURL")
= "http://192.100.100.125:" & serverport
& "/AppXWebService-context-root/MyJavaClass1WS"

Dim a, b, c, res, op
op = Request.Form("SubmitX")
a=Request.Form("A")
b=Request.Form("B")
c=Request.Form("C")
' ejecutar algunas funciones del web service remoto
select case op
case "Funcion1"
res = soapclient.getdate
case "Funcion2"
redim arg(3)
arg(1)=a
arg(2)=b
arg(3)=c
res = soapclient.Ejecutar(arg)
case "Funcion3"
redim arg(3)
arg(1)=a
arg(2)=b
arg(3)=c
res = soapclient.ProbarParametros(arg)
case "Funcion4"
redim arg(3)
arg(1)=a
arg(2)=b
arg(3)=c
res = soapclient.ComunicarTcp(arg)

case else

res="no disponible"
end select
%>