sp_configure 'show advanced options', 1;

GO

RECONFIGURE;

GO

sp_configure 'Ole Automation Procedures', 1;

GO

RECONFIGURE;

GO

EXEC sp_configure 'Ole Automation Procedures';

GO

ALTER PROCEDURE [dbo].[Proc_System_SendSayHelloHttp]

	@Parametro varchar(10) = NULL

AS

    DECLARE @obj INT

    DECLARE @sUrl varchar(200)

    DECLARE @response INT

    SET @sUrl = 'http://127.0.0.1:8008/api/Shop/SayHello'

    EXEC sp_OACreate 'MSXML2.ServerXMLHTTP', @obj OUT

    EXEC sp_OAMethod @obj,'Open', NULL, 'Get', @sUrl, false

    EXEC sp_OAMethod @obj,'Send'

    EXEC sp_OAGetProperty @obj, 'responseText', @response OUT

    SELECT @response [response]

    EXEC sp_OADestroy @obj

RETURN