NetSter, спасибо, но в примере не используется WMI интерфейс. Вообще там uses не вижу.. Есть только external 'netapi32.dll' Name 'NetWkstaUserEnum';
За книгу отдельное спасибо, обязательно прогляжу, но может дашь линк сразу на нужный пример/главу?
slesh, вся проблема в том что это единственный мануал по теме на Delphi ))) Не хотел его здесь выкладывать сразу, думал может кто что ещё подскажет)))
Там используется для возвращаемых данных тип IEnumVariant, при этом сам автор называет это финтом ушами)) В силу весьма ограниченных знаний ищу более простой реализации на понятных типах данных. Поэтому очень желателен примерчик с адаптацией вывода в Edit, там где будет просто String. Стратегически важно проделать фокус на Delphi 7, но если будет проще, то вот пример на VB:
Код:
strComputer = Text1.Text
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colComputer = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")
For Each objComputer in colComputer
Text1.Text = objComputer.UserName
Next
Вешаем на нажатие кнопки, вводим в текстовое поле сетевое имя машины (не IP, а имя), далее программа подсоединяется к WMI интерфейсу удаленной машины, выполняет запрос. В итоге, в наш список возвращается текущий (!) пользователь.
Надо тоже самое на Delphi) Или кто-нибудь, объясните пожалуста, на пальцах что же такое IEnumVariant.. msdn смотрел, не понял.