Есть vb скрипт:

Function Main()

Dim oCmd, sSQL, oDom

''' If MSXML 4.0 is not installed this will not work!
Set oDom = CreateObject("Msxml2.DOMDocument")

Set oCmd = CreateObject("ADODB.Command")

oCmd.ActiveConnection = "Provider=SQLOLEDB;Data Source=myserver;Initial Catalog=mydb;UID=me;Password=mypassword"


sSQL = "<ROOT xmlns:sql='urn:schemas-microsoft-com:xml-sql'><sql:query>" &_
"exec spu_condocerts_assoc 'XML' </sql:query></ROOT>"


oCmd.CommandText = sSQL
oCmd.Dialect = "{5D531CB2-E6Ed-11D2-B252-00C04F681B71}"

oCmd.Properties("Output Stream") = oDom
oCmd.Execute , , 1024

oDom.Save "c:\savedfilename.xml"

Main = DTSTaskExecResult_Success

End Function

Нужно в Билдэровском варианте.

я тут попробовал/бую:

oleobject oCmd, oDom
string sSQL
int i_rc

oCmd = CREATE oleobject
oDom = CREATE oleobject


i_rc = oDom.ConnectToNewObject('Msxml2.DOMDocument')
i_rc = oCmd.ConnectToNewObject('ADODB.Command')

oCmd.ActiveConnection = "Provider=SQLOLEDB;Data Source=myserver;Initial Catalog=mydb;UID=me;Password=mypassword"

sSQL = "<ROOT xmlns:sql='urn:schemas-microsoft-com:xml-sql'><sql:query>exec spu_condocerts_export_xml </sql:query></ROOT>"

oCmd.CommandText = sSQL

oCmd.Dialect = '{5D531CB2-E6Ed-11D2-B252-00C04F681B71}'
oDom = oCmd.Properties('Output Stream')
oCmd.Execute()
oDom.Save('C:\testdts.xml')

oCmd.disconnectObject()
oDom.disconnectObject()

DESTROY oCmd
DESTROY oDom

чегой то не фурычит, execute и save захлёбываютса.




Туды её в качель...