Изменить атрибут пользователя в Active Directory

@sst.djager · Регистрация: 17.08.2012

Студворк — интернет-сервис помощи студентам

Добрый день! Можете у кого был пример по работе с атрибутами AD.

Необходимо найти пользователя в AD и изменить его атрибут на заранее записанный в переменной info.

Использую код для поиска пользователя в AD и вывод его ФИО (only_user - переменная, в которой заранее записан логин пользователя

VB.NET
1
2
3
4
5
6
Dim strDomain As String = Environment.UserDomainName
                strDomain = "KLIMOV"
                Dim sDir As String = "WinNT://" & strDomain & "/" & only_user
                Dim ADEntry As New System.DirectoryServices.DirectoryEntry(sDir)
                Dim strFullName As String = ADEntry.Properties("FullName").Value
                Label6.Invoke(Sub() Label6.Text = strFullName)

Дальше мне нужно только записать в его атрибут другие данные.

Пример PS

PowerShell
1
set-aduser ivan1 -office "Инженер"

Или может передать просто powershell из VB скрипт с переменными? типа:

PowerShell
1
set-aduser &name& -office &data&

@sst.djager · 06.04.2021, 12:39 **[ТС]**

Сообщение от Orlangur

VB.NET
1
2
3
4
Dim pr As New Process
        pr.StartInfo.FileName = "powershell.exe"
        pr.StartInfo.Arguments = "аргументы "
        pr.Start()

Теперь хотя бы видно ошибку

@Orlangur · 06.04.2021, 21:07

sst.djager, ну так тот вариант с функцией не работает?

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@Orlangur Лень — мое второе и 3231 / 2418 / 688 Регистрация: 28.11.2014 Сообщений: 3,603 Записей в блоге: 3
	06.04.2021, 21:07
	sst.djager, ну так тот вариант с функцией не работает? 0