url='http://www.cbr.ru/secinfo/secinfo.asmx?WSDL'
_myxml=CREATEOBJECT('MSXML2.DOMDocument')
_myxml.async=.f.
IF !_myxml.load(_url)
	=MESSAGEBOX('Error',48,'Error')
	Retu
ENDIF 

_WSDLReader=CREATEOBJECTEX("MSSOAP.WSDLReader30","","")
_WSDLReader.load(_url,'')
_WSDLReader.GetSoapServices(@_ServList)