Список компьютеров из AD (Active Directory)
1 ответ
Лучший ответ
Привет. Это делается по аналогии с тем, как из AD загружаются пользователи, а именно:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 |
&НаСервере Функция ПолучитьКомпьютерыAD() Экспорт Компьютеры = новый Массив; АДОКоннектор = Новый COMОбъект("ADODB.Connection"); АДОКоннектор.ConnectionString = "Provider=""ADsDSOObject"""; АДОКоннектор.Open(); КореньDSE =ПолучитьCOMОбъект("LDAP://rootDSE"); ДоменDNS = КореньDSE.Get("defaultNamingContext"); ТекстЗапроса = "select Name, ADsPath from 'LDAP://" + ДоменDNS + "' WHERE objectCategory = 'Computer' AND objectClass='computer' ORDER BY Name"; ВыборкаАДО = АДОКоннектор.Execute(ТекстЗапроса); //Обязательное включение пользователей в группу Пока НЕ ВыборкаАДО.EOF Цикл ADsPath = ВыборкаАДО.Fields("ADsPath").Value; Name = ВыборкаАДО.Fields("Name").Value; Если Найти(ADsPath, "OU=Blocked Computers") = 0 Тогда Компьютеры.Добавить(Name); КонецЕсли; ВыборкаАДО.MoveNext(); КонецЦикла; ВыборкаАДО.Close(); АДОКоннектор.Close(); Возврат Компьютеры; КонецФункции |
Отдельно можешь посмотреть обработку по загрузке пользователей из AD: 1с и Active Directory;