1C. Работа с реестром Windows

ЧтениеДанныхИзРеестраWindows.1с

	Попытка
		
		//версия программного обеспечения
		Shell = Новый COMОбъект("WScript.Shell");
		Ключ = "HKEY_LOCAL_MACHINE\SOFTWARE\1C-Rarus\SoftPhone\Versions\";
		ВерсияПанели = Shell.RegRead(Ключ + "Client 2.0");
		
		//версия windows
		Shell = Новый COMОбъект("WScript.Shell");
		Ключ  = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\";
		ВерсияWindows = Shell.RegRead(Ключ + "ProductName");
		
		//текущий пользователь
		Shell = Новый COMОбъект("WScript.Shell");
		Ключ = "HKEY_CURRENT_USER\Volatile Environment\";
		ПользовательWindows = Shell.RegRead(Ключ + "USERNAME");
		
    Сообщить(ВерсияПанели);
	  Сообщить(ВерсияWindows);
	  Сообщить(ПользовательWindows);
		
	Исключение
		
	КонецПопытки;