функция СписокГрупПользовтаеля(стрЗначение=0)
   Ответ = "";
   попытка
       олеСкрипт = СоздатьОбъект("MSScriptControl.ScriptControl");
       олеСкрипт.Language = "VBScript";
       олеСкрипт.AddCode("
       |Function SpisGroup
       |Set objGroup = GetObject (""LDAP://cn=Нехорошков Константин Анатольевич, OU=StaffChe,OU=Users,OU=MyBusiness,DC=interpolis,DC=local"")
         |objGroup.GetInfo
       |arrMemberOf = objGroup.GetEx(""memberOf"")
       |For Each strMember in arrMemberOf
       |Set objUser = GetObject(""LDAP://"" & strMember)
       |WScript.echo objUser.samaccountname  
       |str=str &  "" @ "" & objUser.samaccountname
       |Next  
       |
       |SpisGroup=str  
       |SpisGroup=""123""
       |End Function
       |");
       Ответ = олеСкрипт.Run("SpisGroup", стрЗначение);
   исключение
       Сообщить(ОписаниеОшибки());
   конецпопытки;
   Сообщить(Ответ);
   
   возврат Ответ;
конецфункции



в блокноте скрипт работает а в 1С не хочет, подскажите что не так делаю

ошибка вот такая Ответ = олеСкрипт.Run("SpisGroup", стрЗначение);
{C:\V77_V8\ПУБ2009\EXTFORMS\ОБМЕНLDAP.ERT(24)}: :

.. ошибку исправил, теперь ругается что строка слишком длинная

Сообщить(Лев(Ответ,100)); - решилось это строкой

данная функция получает в AD список групп в которых стоит пользователь