Форум АНТИЧАТ - Delphi, WMI. Как узнать имя пользователя удаленного компьютера в домене??

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)

Delphi, WMI. Как узнать имя пользователя удаленного компьютера в домене??

Нужен примерчик, а лучше грамотная консультация на пальцах по сабжу.

Мне надо узнать имя пользователя который сейчас работает на удаленной машине в домене.

То есть, имеется машина в домене, известно её имя, включенная, за которой работает пользователь. Необходимо подключиться к его WMI и узнать имя пользователя.

На VB/vbs/wsh задача решается намного проще, но хочу именно на Delphi 7. Может кто чем поможет..

доступ к компу есть?

как вариант, если удалённая пробуй Telnet

К компу доступа нет. Гуру, мне бы всё-таки через WMI как-то..

Не знаю на счет WMI, но я пришел к выводу, что иногда вполне проходят "топорные" решения типа запуска nbtstat'а

покрайней мере тут нужно иметь еще права админа на домене или подобные. чтобы можно было подключаться к другим компам с подобной целью. Ты лучше выложи код на VB а там можно будет глянуть и переписать на дельфу

А вообще советую почитать хорошую статейку по использованию WMI в Delphi
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=698

довольно доступно описано. И есть у тебя есть код на VB то именно в WMIшной реализации практически одинаково будет всё

2 Dronga, в дельфине сильно не разбираюсь но вот что интересного нашел по твоей теме
Здесь
и очень интересная
КНИГА

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 смотрел, не понял.

"Получение сетевого имени пользователя

Вы можете попробовать этот код. Я без проблем использовал его под Netware LAN в течение долгого времени. Работа программы зависит от наличия NWCALLS.DLL на машине пользователя, но если он использовал сеть хоть раз, данная библиотека должна присутствовать на его машине."

Код:

unit GetLogin;



{Данный модуль инкапсулирует несколько внешних функций библиотеки NWCALLS.DLL}

{Создан на основе кода Григория Трубецкого}

{Модуль содержит функции, возвращающие Netware User ID}

{и полное имя пользователя.}



interface

uses

SysUtils, Messages, Dialogs;

function GetUserLogin: string;

function GetUserFullName( SomeUser: string): string;



implementation

type

NWTimeStamp = record

Year:      byte;

Month:     byte;

Day:       byte;

Hour:      byte;

Minute:    byte;

Second:    byte;

DayOfWeek: byte;

end;



{Netware API - требуется NWCALLS.DLL}

function NWGetDefaultConnectionID(var Connection: word): word;

far; external 'NWCALLS';



function NWGetConnectionNumber(Connection: word; var ConnectionNumber:

word): word;

far; external 'NWCALLS';



function NWGetConnectionInformation(Connection: word;

ConnectionNumber: word;

ObjectName: pchar;

var ObjectType: word;

var ObjectID: word;

var LoginTime: NWTimeStamp):word;

far; external 'NWCALLS';



function NWReadPropertyValue(Connection:       word;

ObjectName:       pChar;

ObjectType:       word;

PropertyName:     pChar;

DataSetIndex:     byte;

DataBuffer:       pChar;

var More:             byte;

var Flags:            byte): word;

far; external 'NWCALLS';

{ конец секции работы с Netware API }



function GetUserLogin: string;

var

ConnectionID: word;

ConnectionNumber: word;

RC: word;

Name: array[0..50] of Char;

ObjectType: word;

ObjectID: word;

LoginTime: NWTimeStamp;

begin

RC := NWGetDefaultConnectionID(ConnectionID);

RC := NWGetConnectionNumber(ConnectionID, ConnectionNumber);

RC := NWGetConnectionInformation( ConnectionID,

ConnectionNumber,

Name,

ObjectType,

ObjectID,

LoginTime);



Result := StrPas(Name);

end;



function GetUserFullName( SomeUser: string): string;

{Реально имя пользователя является свойством 'IDENTIFICATON'.

Вы должны вызывать NWReadPropertyValue с параметрами (между прочим) вашего ConnectionID,

имени объекта (такое же, как и логин пользователя, сетевое имя которого мы пытаемся узнать)

и свойство name, которое нам необходимо получить, в нашем случае 'IDENTIFICATION'

(это и есть искомая величина - полное имя пользователя).}



var

ConnectionID: word;

RC: word;

Name: array[0..50] of Char;

ObjectType: word;

PropName: array[0..14] of Char;

DataSetIndex: byte;

FullName: array[0..127] of Char;

More: byte;

Flags: byte;

begin

RC := NWGetDefaultConnectionID(ConnectionID);

ObjectType := 256; {пользователь}

StrPCopy(PropName, 'IDENTIFICATION');

DataSetIndex := 1;

StrPCopy(Name, SomeUser);

RC := NWReadPropertyValue( ConnectionID,

Name,

ObjectType,

PropName,

DataSetIndex,

FullName,

More,

Flags);

if RC = 35324 then

MessageDlg('Пользователь ' + SomeUser + ' на этом сервере не обнаружен!',

mtError, [mbOK], 0);

Result := StrPas(FullName);

end;



end.

(c) копирайт