declare @File varchar(255) = 'C:\Nvaision\ra215\Test\answ_'+replace(replace(right(convert(varchar(16),getdate(),120),11),' ','_'),':','')+'.xml'
declare @OLE int, @FileID int
declare @xmlF xml
 
set @xmlF = (select [name] Name, getdate() t from sys.databases a for xml raw, root('Bases'))
 
exec sp_OACreate 'Scripting.FileSystemObject', @OLE OUT
exec sp_OAMethod @OLE, 'OpenTextFile', @FileID OUT, @File, 2, 1
exec sp_OAMethod @FileID, 'WriteLine', Null, '<?xml version="1.0" encoding="windows-1251" standalone="yes"?>
'
exec sp_OAMethod @FileID, 'WriteLine', Null, @xmlF
exec sp_OADestroy @FileID
exec sp_OADestroy @OLE