Dim soapclient, result
Set soapclient = CreateObject("MSSOAP.SoapClient30")
soapclient.mssoapinit "MyTestWebService.wsdl"
result = soapclient.Add( 1 , 2 )
MsgBox result
|
Dim soapclient, result Set soapclient = CreateObject("MSSOAP.SoapClient30") soapclient.mssoapinit "MyTestWebService.wsdl" result = soapclient.Add( 1 , 2 ) MsgBox result 
|