:: Visual Foxpro, Foxpro for DOS
Получить список серверов из AD
Sergio
Автор

Сообщений: 438
Откуда: Донецк
Дата регистрации: 16.06.2005
Добрый день!
Сто лет не заглядывал в этот форум и не занимался программированием.
Подскажите, пожалуйста - хочу получить список серверов из определённой группы в AD, к примеру - из OU-CitrixTermServers, записать их в таблицу.
Далее по каждому серверу получить в другую таблицу список активных пользователей, примерно как в PowerShell командой QUSER.
Подскажите, пожалуйста, какими командами можно подключиться в AD и получить список серверов, а из них - пользователей в среде VFP ?
Ratings: 0 negative/0 positive
Re: Получить список серверов из AD
PaulWist

Сообщений: 14501
Дата регистрации: 01.04.2004
Курить Поиск по LDAP


------------------
Есть многое на свете, друг Горацио...
Что и не снилось нашим мудрецам.
(В.Шекспир Гамлет)
Ratings: 0 negative/0 positive
Re: Получить список серверов из AD
Sergio
Автор

Сообщений: 438
Откуда: Донецк
Дата регистрации: 16.06.2005
По поводу списка серверов команда в PowerShell
Get-ADObject -LdapFilter "(cn=STERMF*)"
отрабатывает так, как мне надо.
Для меня сложность в том как в VFP получить значения в таблицу из это списка.
Не подскажете как это сделать?
Ratings: 0 negative/0 positive
Re: Получить список серверов из AD
ssa

Сообщений: 12951
Откуда: Москва
Дата регистрации: 23.03.2005
Sergio
По поводу списка серверов команда в PowerShell
Get-ADObject -LdapFilter "(cn=STERMF*)"
отрабатывает так, как мне надо.
Отлично!
Цитата:
Для меня сложность в том как в VFP получить значения в таблицу из это списка.
Не подскажете как это сделать?
Результат указанной команды вывести в текстовый файл, который уже парсить фоксом.

------------------
Лень - это неосознанная мудрость.
Ratings: 0 negative/0 positive
Re: Получить список серверов из AD
Sergio
Автор

Сообщений: 438
Откуда: Донецк
Дата регистрации: 16.06.2005
Я бы хотел сделать это из VFP, хотя бы в переменную вставить данный список серверов.
Дальше в таблицу я надеюсь, что я найду способ экспортировать эти значения.
Дело в том, что список и количество серверов может меняться, поэтому я хочу автоматизировать этот процесс.
Есть пример в хелпе фокса, который позволяет получить ФИО пользователя из AD в переменную.
Но я пока не пойму как приспособить эту команду для получения списка серверов.
Пример для получения -

Example
For example, on a network that has implemented Active Directory Services, you can query the network for information on a particular user.

Copy Code
* Replace "DomainName" with the domain name, and "UserLoginID"
* with the login ID of the user you are looking up.
oUser = GetObject("WinNT://DomainName/UserLoginID,user")
? oUser.FullName

У меня по этому примеру получилось вытащить ФИО, команда работает.



Исправлено 2 раз(а). Последнее : Sergio, 28.11.22 17:07
Ratings: 0 negative/0 positive
Re: Получить список серверов из AD
of63

Сообщений: 24629
Откуда: Н.Новгород
Дата регистрации: 13.02.2008
() Для админа В сети все средства хорошИ ) А для юзера - не работает ниче.

Доб. Я говорил - для прикладных прог, которые будут исполняться в неадминском режиме, то только файлы с условным именем (в ProgramData например), или в реестре (несетевое, только для данного компа, не комильфо, тяжеловесно)... В этих средствах можно отлагать следы своего текущего наличия/отсутствия в системе. Можно в UDP обьявляться/выключаться (фантазии мои))



Исправлено 1 раз(а). Последнее : of63, 28.11.22 20:38
Ratings: 0 negative/0 positive
Re: Получить список серверов из AD
akvvohinc

Сообщений: 4001
Откуда: Москва
Дата регистрации: 11.11.2008
Sergio
Я бы хотел сделать это из VFP,
Я думаю, Сергей и предлагал сделать это из Фокса.

Примерно по такой схеме:
STRTOFILE([powershell "get-process -name svchost | where-object {$True}" > test.txt],[test.cmd])
ws = CreateObject('WScript.Shell')
ws.Run('test.cmd',2,.T.)
MODIFY COMMAND test.txt

(заменить команду Powershell на требуемую)
Ratings: 0 negative/0 positive
Re: Получить список серверов из AD
Sergio
Автор

Сообщений: 438
Откуда: Донецк
Дата регистрации: 16.06.2005
Спасибо! Так работает:

STRTOFILE([powershell "Get-ADObject -LdapFilter '(cn=STERMF*)'" > test.txt],[test.cmd])
ws = CreateObject('WScript.Shell')
ws.Run('test.cmd',2,.T.)
MODIFY COMMAND test.txt

Но команда
ws.Run('test.cmd',2,.T.)
отрабатывает минуту
А в PowerShell команда Get-ADObject -LdapFilter '(cn=STERMF*)' отрабатывает мгновенно.

Может есть способ быстрее выполнить это действие?
Ratings: 0 negative/0 positive
Re: Получить список серверов из AD
Sergio
Автор

Сообщений: 438
Откуда: Донецк
Дата регистрации: 16.06.2005
Уже несколько секунд отрабатывает эта команда, не минуту.
Ratings: 0 negative/0 positive


Извините, только зарегистрированные пользователи могут оставлять сообщения в этом форуме.

On-line: 25 (Гостей: 25)

© 2000-2023 Fox Club 
Яндекс.Метрика