Код

тз = СоздатьОбъект("ТаблицаЗначений");
    тз.НоваяКолонка("Имя","Строка");
    тз.НоваяКолонка("Режим","Строка");
    тз.НоваяКолонка("Монопольно","Строка");
    тз.НоваяКолонка("ДатаВремя","Строка");
    тз.НоваяКолонка("Компьютер","Строка");

    ЛинксТМП = КаталогИБ()+"SYSLOG\links.tmp";
    Попытка
	  ScrptCtrl=СоздатьОбъект("MSScriptControl.ScriptControl");
	  ScrptCtrl.Language="vbscript";
	  ScrptCtrl.AddCode("
	  |Function WhoIsWork()
	  |    Dim Match, Matches
	  |    Set regexp = New RegExp
	  |    regexp.Pattern = """"""[^""""]*""""""
	  |    regexp.Global = true
	  |    Set fs = CreateObject(""Scripting.FileSystemObject"")
	  |    Set linkstmp = fs.GetFile("""+ЛинксТМП+""")
	  |    Set Stream = linkstmp.OpenAsTextStream(1)
	  |    str_rez = """"
	  |    While Not Stream.AtEndOfStream
	  |	  str = Stream.ReadLine()
	  |	  Set Matches = regexp.execute(str)
	  |	  For Each Match In Matches
	  |		str_rez = str_rez & Match.Value & VbCrLf
	  |	  Next
	  |    Wend
	  |WhoIsWork = str_rez
	  |End Function
	  |");

	  Рез   = СокрЛП(ScrptCtrl.Run("WhoIsWork"));
	  КолСтр = СтрКоличествоСтрок(Рез);
	  Если КолСтр > 0 Тогда
		Сч = 2;
		Пока Сч <= КолСтр Цикл
		    тз.НоваяСтрока();
		    тз.Имя = СтрПолучитьСтроку(Рез,Сч);
		    Сч = Сч + 2;
		    тз.Режим = СтрПолучитьСтроку(Рез,Сч);
		    Сч = Сч + 2;
		    тз.Монопольно = ?(Найти(СтрПолучитьСтроку(Рез,Сч),"Y")>0,"Да","Нет");
		    Сч = Сч + 2;
		    тз.ДатаВремя = СтрПолучитьСтроку(Рез,Сч);
		    Сч = Сч + 2;
		    тз.Компьютер = СтрПолучитьСтроку(Рез,Сч);
		    Сч = Сч + 2;
		КонецЦикла;
	  КонецЕсли;
    Исключение
	  Сообщить(ОписаниеОшибки());
	  Возврат "";
    КонецПопытки;