Необходимо выполнить изменение атрибутов "Description" и "sn" (описание, фамилия) пользователей Active Directory из VFP.
Поначалу казалось дело плевое. Но что-то закопался.
Короче есть ли возможность сделать это не прибегая к вызову dsquery.exe и dsmod.exe из VFP?
Если нет короткого кода (а я почему то уверен, что он короткий), то ссылки не давайте, реализую старым дедовским способом (dsquery.exe & dsmod.exe).
Нет времени разбираться. Спасибо.



Исправлено 1 раз(а). Последнее : FoxShip, 25.03.21 15:33

Попробуйте посмотреть в эту сторону (пример на VB, но под VFP легко адаптируется):

Спасибо за отклик.
Это я уже видел. Здесь создание нового пользователя.
У меня задача другая. Пользователи уже есть. Но у них нужно изменить атрибуты.
Понимаю, что вместо:
нужно написать что-то другое.



Исправлено 1 раз(а). Последнее : FoxShip, 25.03.21 18:38

Я понял. Нужна модификация. может как-то так (OpenDSObject):






Исправлено 1 раз(а). Последнее : sphinx, 25.03.21 19:00

sphinx
Я понял. Нужна модификация. может как-то так (OpenDSObject):

Модификация атрибутов объекта:

# -*- coding: cp1251 -*-
import win32com.client
dso = win32com.client.GetObject("LDAP:")
obj = dso.OpenDSObject("LDAP://DC=ru/DC=домен/OU=подразделение/CN=Фамилия Имя",
                       "домен\\пользователь", "пароль", 0)
obj.Put("sn", "НовоеИмя")
obj.SetInfo()

Хорошо. Спасибо еще раз. Попробую.
О результатах напишу.

Не очень понятно что такоеи как это использовать в VFP
win32com.client это Python?

В первом примере на создание замените функцию Create на OpenDSOObject, я на всякий случай весь пример кинул, вдруг что-то еще при модификации надо указать в параметрах для метода Put().

Считываю объект user. Здесь все замечательно.
А вот изменить значение не удается. Invalid number of parameter.



Исправлено 3 раз(а). Последнее : FoxShip, 26.03.21 09:09

Сработало!
Спасибо.

oLDAP = getobect("LDAP:")
objUser = oLDAP. OpenDsoObject("LDAP://.....")
objUser. Put("sn"). Value = ...
objUser. SetInfo()

В моем понимании...

А, уже победили!
Ура!

sphinx
А, уже победили!
Ура!

Да, с вашей помощью.

sphinx
oLDAP = getobect("LDAP:")
objUser = oLDAP. OpenDsoObject("LDAP://.....")
objUser. Put("sn"). Value = ...
objUser. SetInfo()

В моем понимании...

Чужеродное тело, не подчиняется законам объектного программирования.



Исправлено 1 раз(а). Последнее : FoxShip, 26.03.21 10:38

Друг, я просто пытался тебе помочь. Стеб прекрасно понял. Все норм, друг.
Для меня важно, как участнику нескольких Девконов, и принимающей стороне - что вопрос РЕШИЛСЯ. Ну, я чем мог. Пеме. росто сам знаю, когда горит, а ночью/утром далеко не все в теме. Как мог, порыл и пообсуждал проблему. А решение теперь знают все! Кто столкнется - на страницах нашего форума сохранится. И Вашу (твою) проблему решили, и многим пригодится. При случае.

Моя роль была минимальна, если честно. Просто откликнулся на проблему. Да у нас все отзывчивые.

Удачи! ФоксШип! Знаю, что силен и давно на форуме.

Кстати, Игорь Королев, предполагаю, что помог бы Вам (тебе) намного быстрее. Я только идеи накидал, не дал ГОТОВОГО решения. Хотя и было такое не редко. Я не гуру, просто берусь за любую проблему - и чаще всего закрываю. Ну, не без помощи коллег с форума, чего скрывать. А производственные вещи никто за нас не сделает.

У нас Фокс ПЫТАЮТСЯ похоронить, ан неть, умишка по управлению ИТ немного не хватает. Вывез бы я? Вывез. Но не сразу. Но точно получше.

sphinx
Друг, я просто пытался тебе помочь. Стеб прекрасно понял. Все норм, друг.
Для меня важно, как участнику нескольких Девконов, и принимающей стороне - что вопрос РЕШИЛСЯ. Ну, я чем мог. Пеме. росто сам знаю, когда горит, а ночью/утром далеко не все в теме. Как мог, порыл и пообсуждал проблему. А решение теперь знают все! Кто столкнется - на страницах нашего форума сохранится. И Вашу (твою) проблему решили, и многим пригодится. При случае.

Моя роль была минимальна, если честно. Просто откликнулся на проблему. Да у нас все отзывчивые.

Удачи! ФоксШип! Знаю, что силен и давно на форуме.

Привет.
Насчет силен это БОЛЬШОЙ вопрос. Я ведь никогда не был чистыми программером. Это не моя вина, а беда. Тут скорее виновата провинциальное нахождение нашего довольно большого завода в городе, которая находится в 50 км от Казани (к нам не идут, зп и дальность). И, сами понимаете, спецов очень и очень мало по всем направлениям. Приходится заниматься всем и в силу должности (IT assistant) и, что скрывать, в силу любознательности.
Стеба по отношению лично к вам (если вы это имели ввиду) не было.
Мне интересно другое! Я изначально предполагал, исходя из тривиальности поставленной задачи, и зная об отзывчивости лисоводов, кину проблему и ребята (девчата, извините за сексизм) вывалят гигабайты с решением проблемы. Насколько же было мое удивление, что этого кода на форуме нет (искал). Как то не по себе даже стало, что стану очередным изобретателем велосипеда. Но вы мне помогли здорово. Пинок в правильном направлении - не это ли главная помощь? А код писал (подбирал скорее, не пытайтесь повторять простым испытанным (в силу нехватки времени) способом. Методом проб и ошибок и интуиции (или опыта, кому как нравится) и подчиняясь законам симметрии. Помогло быстро, что не всегда бывает, приходится и доку читать иногда.

Теперь что касается собственно фокса. Он, конечно, умирает потихоньку. Медленно, но верно. По мере замены старого кода, и ухода на печку старых лисов. Но еще живы и приносят пользу гигабайты fox - кода. Года два назад, в магазине в Доминиканах видел программу. А в позапрошлом году на Тенерифе вообще DOS программу в магазине. Да что там говорить? У меня у самого в санатории - профилактории до сих пор трудится бухгалтерская FoxProp 2.5 программа (плюс планирование и производство для столовой), написанная в начале 90-х. Конечно она адаптировалась многократно к современной среде обитания, но ядро остается прежним. Предлагал переписать или заменить на 1C, не хотят пока.



Исправлено 3 раз(а). Последнее : FoxShip, 27.03.21 12:34

Да, я знаю. Да пишут на фоксе, хотя его 100500 раз похоронили. Вон, Равиль вообще профессионально много лет пишет на фоксе, Симпла успешно на FPD 2.6. И у нас крутятся проги - от досовских до VFP9. Я уже формулировал - да перепишем, если будет команда. И постановки, КАК правильно хранить/брабатывать данные. Это и СТП предприятия надо вносить изменения, если системные аналитики нарусуют КАК НАДО. У нас их нет, девочки ходят на работу просто за деньгами и потрепаться. Солидное предприятие, а там и из совка вышли и в реалии не попали. Детсад. И я его участник, увы.

Пытаюсь на 1С сесть, может пока и не сильно полезен, но взял нехилый проект, где надо еще и самому просто увязать словесные атрибуты с реальными полями в таблицах. Мне интересно. Что получится - не знаю. Но результат в Курилке напишу.

Я Вас прекрасно понимаю, это не слова (а выше я что писал?). Но ребята, как Игорь Королев почему-то считает всех, кто ниже его зарабатывает неудачниками, мол ленятся и бухают. Ему ответили все, кто посчитал нужным. Это большое заблуждение и выходит за рамки темы, от которой мы немного отвлеклись.

Мне правда приятно на душе, помог Вам. Хотя не знал ГОТОВОГО решения. Дорогу осилит идущий. И Вы молодцом - писали, что получилось, что нет. У нас ведь нет Вашего монитора, поэтому без обратной связи тяжко, телепаты кто разбежался, кто просто СВОИМИ задачами занят. Главное, есть результат.

Удачи, дружище во всем! Ад аспера ад астра! ;)

sphinx
Удачи, дружище во всем! Ад аспера ад астра! ;)

Удачи и вам!
29000 сообщений!Это круто. Я за всю свою долгую (еще на EC ЭВМ писал) жизнь наверное столько предложений не произнес, не то чтобы написать .