var objStream = новый ActiveXObject ("ADODB.Stream");
objStream.Type = 2; // 1 = двоичные данные, 2 = текстовые данные (по умолчанию)
objStream.Open ();
objStream.charset = "UTF-8";
objStream.WriteText (Data);
objStream.SaveToFile (System.Gadget.path + "\ PhonebookContacts.xml", 2);
// 1 = Создает новый файл, если файл еще не существует (по умолчанию)
// 2 = Перезаписывает файл данными из текущего открытого объекта Stream, если файл уже существует