SET NOCOUNT ON 
DECLARE @mycom int, @msxml int
DECLARE @hr int, @retValue int
DECLARE @src varchar( 8000 ), @desc varchar( 8000 )

 /*создание MyCOM*/ 
EXEC @hr = sp_OACreate 'MyCOM', @mycom OUT
IF @hr <>  0 
BEGIN
	EXEC sp_OAGetErrorInfo @mycom, @src OUT, @desc OUT 
	RETURN
END

 /*создание MSXML*/ 
EXEC @hr = sp_OACreate 'MSXML2.DOMDocument.4.0', @msxml OUT
IF @hr <>  0 
BEGIN
	EXEC sp_OAGetErrorInfo @msxml
	RETURN
END

 /*установка свойства*/ 
EXEC @hr = sp_OASetProperty @msxml, 'async',  0 
IF @hr <>  0 
BEGIN
	EXEC sp_OAGetErrorInfo @msxml
	RETURN
END

 /*загрузка XML*/ 
EXEC @hr = sp_OAMethod @msxml, 'Load', @desc OUT, @url
IF @hr <>  0 
BEGIN
	EXEC sp_OAGetErrorInfo @msxml
	RETURN
END

 /*проверка XML*/ 
EXEC @hr = sp_OAGetProperty @msxml, 'xml', @desc OUT
IF @hr <>  0 
BEGIN
	EXEC sp_OAGetErrorInfo @msxml
	RETURN
END

PRINT 'XML'
SELECT @desc
PRINT ''

 /*проверка XML*/ 
EXEC @hr = sp_OAGetProperty @msxml, 'parseError', @retValue OUT
IF @hr <>  0 
BEGIN
	EXEC sp_OAGetErrorInfo @msxml
	RETURN
END

SELECT 'Parsing: ', @retValue

PRINT 'Starting xCompute'
 /*запуск калькулятора*/ 
EXEC @hr = sp_OAMethod @mycom, 'xCompute', @vRetValue OUT, @msxml
IF @hr <>  0 
BEGIN
	EXEC sp_OAGetErrorInfo @mycom
	RETURN
END