Список компьютеров из AD (Active Directory)

Вопросы / ответы › Рубрика: Программирование › Список компьютеров из AD (Active Directory)

1 +1 -1

Admin Админ. спросил 2 месяца назад

Привет Админ. Подскажи как можно получить список компьютеров из Active Directory. Спасибо!

Теги вопроса:Список компьютеров из AD (Active Directory)

1 ответ

1 +1 -1

Лучший ответ

Admin Админ. ответил 2 месяца назад

Привет. Это делается по аналогии с тем, как из AD загружаются пользователи, а именно:

&НаСервере
Функция ПолучитьКомпьютеры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() Экспорт

Компьютеры = новый Массив;

АДОКоннектор = Новый 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;