залогиненный пользователь на удаленной машине

[KEV]

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

[Stilet]

Загляни сюда
http://www.programmersforum.ru/showt...tWkstaUserEnum

[KEV]

так ведь это пользователь&&список пользователей локальной машины, меня больше интересует именнно удалённые. или я чего-то не понимаю ?

[Stilet]

WkstaUserEnum как раз получает пользователей залогиненых на удаленной машине:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
   _WKSTA_USER_INFO_1 = record
     wkui1_username: LPWSTR;
     wkui1_logon_domain: LPWSTR;
     wkui1_oth_domains: LPWSTR;
      wkui1_logon_server: LPWSTR;
  end;
   WKSTA_USER_INFO_1 = _WKSTA_USER_INFO_1;
   PWKSTA_USER_INFO_1 = ^_WKSTA_USER_INFO_1;
   LPWKSTA_USER_INFO_1 = ^_WKSTA_USER_INFO_1;

  TForm1 = class(TForm)
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
   function NetApiBufferFree(pBuffer: pointer): Longint; stdcall; external
 'netapi32.dll';

          function NetWkstaUserEnum(ServerName: LPCWSTR;Level: DWORD;
     BufPtr: Pointer;PrefMaxLen: DWORD;EntriesRead: LPDWORD;
     TotalEntries: LPDWORD;ResumeHandle: LPDWORD): LongInt; stdcall; external 'netapi32.dll';

var
  Form1: TForm1;

implementation

{$R *.dfm}
    function  GetUsers(CompName: String): String;

   var
   Buffer, tmpBuffer: Pointer;
    PrefMaxLen       : DWORD;
  Resume_Handle    : DWORD;
  EntriesRead      : DWORD;
   TotalEntries     : DWORD;
 I, Size          : Integer;
 PSrvr            : PWideChar;
 begin
PSrvr := nil;
 try
    // Переводим имя компьютера типа PWideChar
   Size := Length(CompName);
    GetMem(PSrvr, Size * SizeOf(WideChar) + 1);
    StringToWideChar(CompName, PSrvr, Size + 1);
   PrefMaxLen := DWORD(-1);
     EntriesRead := 0;
    TotalEntries := 0;
    Resume_Handle := 0;
    Buffer := nil;
  // Получаем список пользователей на компьютере из PSrvr
           if NetWkstaUserEnum( PSrvr, 1, @Buffer, PrefMaxLen, @EntriesRead,
             @TotalEntries, @Resume_Handle) = S_OK then
           begin
             tmpBuffer := Pointer(DWORD(Buffer) + SizeOf(WKSTA_USER_INFO_1));
             for I := 1 to TotalEntries - 1 do
             begin
               Result := Result + WKSTA_USER_INFO_1(tmpBuffer^).wkui1_username + ', ';
               tmpBuffer := Pointer(DWORD(tmpBuffer) + SizeOf(WKSTA_USER_INFO_1));
            end;
            Result := Copy(Result, 1, Length(Result) - 2);
    end
    else
       ShowMessage(SysErrorMessage(GetLastError));
   finally
       NetApiBufferFree(Buffer);
       FreeMem(PSrvr);
   end;
    end;
procedure TForm1.FormCreate(Sender: TObject);
begin
ListBox1.Items.Text:=GetUsers('Имя машины');
end;

end.

Ферштеен?

[KEV]

Ya-YA , натюрлих
град мерси ...