Выгрузка данных из Dataset в формате XML

var Dataset = Services.GetNewItemByUSI('ds_Contact');
Dataset.Open();

var Stream = new ActiveXObject('ADODB.Stream');
Stream.Type = 1;
Stream.Mode = 3;
Stream.Open();

Dataset.SaveToXML(Stream);
Dataset.Close();

Stream.SaveToFile('D:\\Data.xml');
Stream.Close();