Как получить GUID без v7plus.dll в Предприятии 7.7
Часто в терминальных сессиях у пользователю Windows не хватает прав на регистрацию v7plus.dll. Соответственно нельзя воспользоваться, например методом СоздатьGUID() класса V7SysInfo.
- Описание
- Подробнее
Описание
Поэтому предлагаю в таких случаях использовать альтернативу в виде функции:
Функция СоздатьGUID() Экспорт
Перем Результат, ScrptCtrl;
Попытка
ScrptCtrl = СоздатьОбъект("MSScriptControl.ScriptControl");
ScrptCtrl.Language = "VBScript";
ScrptCtrl.AddCode(
"Function CreateGUID()
| Set TypeLib = CreateObject(""Scriptlet.TypeLib"")
| CreateGUID = TypeLib.Guid
|End Function
|"
);
Результат = ScrptCtrl.Modules("Global").CodeObject.CreateGUID();
Результат = СтрЗаменить(СтрЗаменить(Результат, "{", ""), "}", "");
Исключение
КонецПопытки;
Возврат Результат;
КонецФункции
Данную функцию можно вставить в любой модуль. Вставив в глобальный модуль данную функцию можно вызывать везде, где Вам может понадобиться GUID.
