Не работает "разобрать по копиям" 1С 8.2 + win 2008

Функция ИмяТекущейИБ() 
	
    попытка
        // Создаем объект Microsoft Script Control.
        олеСкрипт = создатьобъект("MSScriptControl.ScriptControl");
        // Устанавливаем в качестве языка для выполнения сценариев Visual Basic
        олеСкрипт.Language = "VBScript";
        // Формируем код на VB.
        // В принципе он все делает. Создает объект
        // Windows Management Instrumentation и уже через него
        // получает значение ключи реестра преобразовывая данные
        // в строку.
        стрКод =
        "function strGetListBase()
        |  const RootKey = &H80000001
        |  set Reg = GetObject(""winmgmts:{impersonationLevel=impersonate}!\\."" &_
        |                      ""\root\default:StdRegProv"")
        |  PathKey = ""Software\1C\1Cv7\7.7\Titles""
        |  Reg.EnumValues RootKey, PathKey, Arr
        |  Answer = ""{""""СписокЗначений"""",{""
        |  for x = LBound(Arr) to UBound(Arr)
        |    call Reg.GetStringValue(RootKey, PathKey, Arr(x), Value)
        |    Answer = Answer & ""{{""""Строка"""","""""" &_
        |             Arr(x) & """"""},"""""" & replace(Value, """""""", """""""""""") &_
        |             """""",""""0""""}""
        |    if x <> UBound(Arr) then Answer = Answer & "",""
        |  next
        |  Answer = Answer & ""}}""
        |  strGetListBase = Answer
        |end function";
        // Добавляем наш код.
        олеСкрипт.AddCode(стрКод);
        // Вызываем его на выполнение, и пытаемся из полученного результата
        // сформировать список значений.
        сз = значениеизстроки(олеСкрипт.Run("strGetListBase"));
        // Отсортируем список по Представлению баз
        сз.СортироватьПоПредставлению();
    исключение
        // Если произошла ошибка. Значит вернем "Error".
        Возврат "Error";
    конецпопытки;
    //возврат Ответ;
	
	предст = "";
	
	для к=1 по сз.РазмерСписка() цикл
		
		зн=сз.ПолучитьЗначение(к, предст);
		
		Если зн = КаталогИБ() Тогда
			Возврат предст;
		КонецЕсли;
		
	конецЦикла;
	
	Возврат "Error";

КонецФункции //ИмяТекущейИБ


////////////////////////////////////////////////////////////­////////////////////
// ПРЕДОПРЕДЕЛЕННЫЕ ПРОЦЕДУРЫ
// 
//******************************************************************************
// Предопределенная процедура
//
Процедура ПриОткрытии()
	
	Если ПустоеЗначение(Форма.Параметр) = 0 Тогда
		
		Докум      = Форма.Параметр.Получить("Контекст");
		Устройство = Форма.Параметр.Получить("Устройство");
		КолвоКопий = Форма.Параметр.Получить("КоличествоКопий");
	
		Если Докум.Выбран() = 0 Тогда
		    Предупреждение("Не записан документ!", 60);
			Статусвозврата(0);
			Возврат;
		Иначе
			Докум = Докум.ТекущийДокумент(); 
		КонецЕсли;
        		                                    
		Таб=0;
		
		ПечатьУПД(Докум, Устройство, КолвоКопий, Таб);
		Статусвозврата(0);
		//Возврат;
	КонецЕсли;
	
	КолвоКопий1 = 2;

	Если ВвестиЗначение(КолвоКопий1, "Отправить на печать? Копий:", "Число", 2, 0) = 1 Тогда
		
		Если ЗагрузитьВнешнююКомпоненту ("SpreadSheet.dll")=0 Тогда
			Сообщить("SpreadSheet.dll не загружена.");
			Возврат;
		КонецЕсли;
		
		Попытка
			WSHShell = CreateObject("WScript.Shell");
			ИмяПринтера = WSHShell.RegRead("HKCU\SOFTWARE\1C\1Cv7\7.7\" + ИмяТекущейИБ() +  "\V7\"+ ИмяПользователя() +"\Moxel\ОпцииПечатиУПД\DefaultPrinter");
		Исключение
			ИмяПринтера = "";
		КонецПопытки;		
		
		ТабДок = СоздатьОбъект ("ТабличныйДокумент");
		ТабДок.ЗагрузитьИзТаблицы(Таб);
	
		ПараметрыПечати=ТабДок.ПараметрыПечати;
		ПараметрыПечати.АвтоМасштаб	= 1;
		ПараметрыПечати.Ориентация	= 2;
		ПараметрыПечати.ПолеСверху	= 100;
		ПараметрыПечати.ПолеСнизу	= 100;
		ПараметрыПечати.ПолеСлева	= 100;
		ПараметрыПечати.ПолеСправа	= 100;
		ПараметрыПечати.КоличествоКопий = КолвоКопий1;
		ПараметрыПечати.ИмяПринтера = ИмяПринтера;
	
		ПараметрыПечати.РежимПечатиКопий=1;
		ПараметрыПечати.Дуплекс = 1;
	
		ТабДок.Напечатать("ТестовыйДокумент");
		
	КонецЕсли;
	
КонецПроцедуры // ПриОткрытии()