Управление сетевым сеансом пользователя от Delphi

Question

Привет всем У меня есть вопрос по управлению сессией пользователей в сети с Delphi. У меня есть сервер, на котором есть много сеансов RDP, и часто они становятся непригодными для использования, и мне нужно подключиться к серверам и отключить сеанс пользователя через диспетчер тапов. Поэтому я подумал создать простое приложение, которое отображает все активные сеансы и может использоваться для отключения любого из них. Я пробовал способ увидеть процессы, которые активны на сервере, используя WMIService.ExecQuery ('SELECT * FROM Win32_Process ...), но я не могу найти. способ получения пользователей, которые могут быть видны в диспетчере задач (как вы можете видеть из прикрепленного изображения

Я также нашел Команда Query User, которую можно выполнить из командной строки, но у меня такой вопрос: есть ли способ получить этот список внутри Delphi в приказе отключить пользователей?

Answer 1

У меня нет delphi для тестирования, но в бесплатном pascal это должно делать то, что вы хотите, и delphi совместимо. Единственная зависимость - это библиотека jedi windows, которая поставляется в комплекте с fp c. для delphi (если он не включен) вы можете найти код здесь, https://sourceforge.net/projects/jedi-apilib/

По сути, ниже мы запрашиваем сессии, распечатываем их (включая имя пользователя) и показать код, который может завершить сеанс (XXX - это идентификатор сеанса, который вы хотите завершить)