Как определить имя компьютера и IP адрес подключенного через RDP ?
Нашел такой пример
Код:
WTS = Новый COMОбъект("WTSManager.Shell")
Сообщить "My computer name: " + WTS.MyClientName + " " + "My IP address: " + WTS.MyIPAddress
Сессия = "Total sessions: " & WTS.ClientCount
Для каждого i = 1 из WTS.ClientCount Цикл
S = S + Chr(13) + WTS.Clients(i).WinStationName + " User: " + WTS.Clients(i).UserName + " IP: " + WTS.Clients(i).IPAddress
КонецЦикла
Как это реализовать в Delphi?
Последний раз редактировалось infopol, 12.10.2023 в 10:01.
|
12.10.2023, 09:57
Древовидный вид