set nocount on
declare @obj int, @ret  int, @text varchar(max), @url varchar(max), @responseText varchar(8000)
select @url = 'https://WWWWWWW.net/soap/ordagent.php?wsdl' -- для примера, хотя бы wsdl получить

exec @ret = sp_OACreate 'MSXML2.ServerXMLHTTP.3.0', @obj out
IF @ret <> 0 begin exec sp_OAGetErrorInfo @obj print -1 end
print 1

exec @ret = sp_OAMethod @obj, 'Open', null, 'GET', @url, 'False', 'Login', 'Password'
if @ret <> 0 begin exec sp_OAGetErrorInfo @obj print -2 end
print 2

--exec @ret = sp_OAMethod @obj, 'setRequestHeader', null, 'Authorization', 'Basic YXN0cmFwYWdlOlZnN3NPNEFVcnU='
--if @ret <> 0 begin exec sp_OAGetErrorInfo @obj print -3 end
--print 3

--EXEC @ret = sp_OAMethod @obj, 'SetCredentials', null, 'Login', 'Password', '0'
--if @ret <> 0 exec sp_OAGetErrorInfo @obj
--print 4

exec @ret = sp_OAMethod @obj, 'setRequestHeader', null, 'Content-Type', 'text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8' -- так браузер отсылает, если смотреть его обмен

if @ret <> 0 begin exec sp_OAGetErrorInfo @obj print -5 end
print 5
exec @ret = sp_OAMethod @obj, 'setRequestHeader', null, 'Accept-Encoding', 'gzip, deflate, sdch'
if @ret <> 0 begin exec sp_OAGetErrorInfo @obj print -51 end
print 51
exec @ret = sp_OAMethod @obj, 'setRequestHeader', null, 'Accept-Language', 'ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4'
if @ret <> 0 begin exec sp_OAGetErrorInfo @obj print -52 end
print 52

exec @ret = sp_OAMethod @obj, 'setOption', null, 2 ,13056  -- игнорировать сертификат. Просрочен у них
if @ret <> 0 begin exec sp_OAGetErrorInfo @obj print -6 end
print 6

EXEC @ret = sp_OAMethod @obj, 'SEND'
if @ret <> 0 begin exec sp_OAGetErrorInfo @obj print -7 end
print 7

declare @i int =0, @n int = 0;
while @i < 9
begin
 EXEC @ret = sp_OAMethod @obj, 'readyState', @n out
 print ' while @i  :' +  cast( @n as varchar(99))
 set @i = @i + 1
 waitfor delay '00:00:01'
 if  @n = 4
   set @i = 99
end

exec droptt '#Test'
CREATE TABLE #Test(strBStrValue nTEXT)
exec droptt '#Test2'
CREATE TABLE #Test2(strValue varchar(8000))

INSERT #Test
EXEC @ret = sp_OAGetProperty @obj, 'responsetext'--,@responseText out
if @ret <> 0 begin exec sp_OAGetErrorInfo @obj print -8 end
print 8

insert into #Test2 select strBStrValue from #Test

select @n = count(*) from #Test
select @i = count(*) from #Test2

print 'строк в таблах ' +cast( @n as varchar(99)) + ' ' + cast( @i as varchar(99))

1
2
5
51
52
6
7
while @i  :4
-8
8
строк в таблах 0 0

0xC00CE56E msxml6.dll Указанная кодировка не поддерживается.   NULL 0

   win.send(EmptyParam);

   if not win.WaitForResponse(Timeout) then
     raise Exception.Create('Время ожидания ответа истекло.');

   Bytes:= win.ResponseBody;     //вместо win.ResponseText;
   i    := Length(Bytes);        //
   SetLength(result, i);         //
   Move(Bytes[0], result[1], i); //обход "умного" преобразования из юникода, когда его не просят...