Показать сообщение отдельно
  #4 (permalink)  
Старый 26.04.2012, 14:55
Аватар для lord2kim
Профессор
Отправить личное сообщение для lord2kim Посмотреть профиль Найти все сообщения от lord2kim
 
Регистрация: 03.05.2011
Сообщений: 848

этот объект вроде еще нужно активировать

function activate() {
	var sh = new ActiveXObject('WScript.Shell');
	var CurrentLevel = sh.RegRead("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings\\Zones\\3\\CurrentLevel");
	var Flags = sh.RegRead("HKLM\\SOFTWARE\\Microsoft\\Internet Explorer\\ActiveX Compatibility\\{00000566-0000-0010-8000-00AA006D2EA4}\\Compatibility Flags");
	try {
		sh.RegWrite("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings\\Zones\\3\\CurrentLevel", "73728", "REG_DWORD");
		sh.RegWrite("HKLM\\SOFTWARE\\Microsoft\\Internet Explorer\\ActiveX Compatibility\\{00000566-0000-0010-8000-00AA006D2EA4}\\Compatibility Flags", "0", "REG_DWORD");
	}
	catch (e) {
		alert("Ошибка "+e.number+": "+e.description+"\nВозможно у вас нет прав для редактирования реестра или данной директории не существует!");
	}
}

в качестве manual-a

function GetBinaryFile (PathToFile) {
	try {
		var stream = new ActiveXObject("ADODB.Stream");
		stream.Open();
		stream.Type = 1; // Binary file is encoded
		stream.LoadFromFile(PathToFile);
		
		var XML = new ActiveXObject("Microsoft.XMLDOM");
		var DocElem = XML.createElement("Base64Data");
		DocElem.dataType = "bin.base64";
		DocElem.nodeTypedValue = Stream.Read();
	
		return DocElem.text;
	}
	catch (e) {
		return "Ошибка: "+e.number+" -> "+e.description;
	}
}
Ответить с цитированием