Albus
4/3/2016 - 3:36 AM

1C77 ADSI Object

1C77 ADSI Object
content_copyfile_download
Функция Получить_COMОбъект(Путь="")
    Скрипт=СоздатьОбъект("MSScriptControl.ScriptControl");
    Скрипт.language="javascript";
    Возврат Скрипт.Eval("GetObject('"+Путь+"')");
КонецФункции
//*******************************************
Процедура Сформировать()
    Пользователь="*************";
    Пароль="*************";
    ДСО=Получить_COMОбъект("LDAP:");
    ОУ=ДСО.OpenDSObject("LDAP:// ************* / <GUID=*************>", Пользователь, Пароль,512+1);
	Сообщить(ОУ.ADsPath);
	Сообщить(ОУ.GUID);
КонецПроцедуры

// ADSI Objects of WinNT = https://msdn.microsoft.com/en-us/library/windows/desktop/aa772211(v=vs.85).aspx