VPF::Все user и их SiD - Форум программистов

SlaUr

Дата 25.10.2007, 16:49 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 408
Регистрация: 18.9.2003

Репутация: 3
Всего: 5

Как узнать всех пользователей Windows и их SIDы

(мне нужно для каждого пользователя знать HKEY_CURRENT_USER,они находятся в HKEY_USER\SID)

Точнее мне нужно знать для каждого пользователя HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run

Заранее спасибо.

Это сообщение отредактировал(а) SlaUr - 25.10.2007, 16:49

Rennigth

Дата 25.10.2007, 17:04 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76

SlaUr, поиск по LookupAccountSid

--------------------

(* Honesta mors turpi vita potior *)

SlaUr

Дата 25.10.2007, 21:19 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 408
Регистрация: 18.9.2003

Репутация: 3
Всего: 5

Rennigth
Search
И что 1 тема эта,2z тема - я задавал вопрос по текущему sid , 3 тема одна тема с 0 ответами ???

p.s.Если не кто не ответит буду копать сам , но в желаемое для себя время (т.е. проблема не особо нужная просто в свободное время буду разбираться с топиком) хотелось бы чтоб кто-нибудь подсказал решение (не хочется в 2000 раз изобретать велосипед) .

Это сообщение отредактировал(а) SlaUr - 25.10.2007, 21:24

Alix

Дата 25.10.2007, 21:25 (ссылка)

(нет голосов)

Загрузка ...

L45

Профиль
Группа: Участник
Сообщений: 581
Регистрация: 4.5.2005
Где: Pskov/Spb

Репутация: 7
Всего: 23

я думаю имелся в виду поиск в другом месте:
http://msdn2.microsoft.com/en-us/library/aa379166.aspx

--------------------

Знание только тогда знание, когда оно приобретено усилиями своей мысли, а не памятью (с) Л. Толстой
High tech. Low live. (с) Gardner Dozois

SlaUr

Дата 25.10.2007, 22:05 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 408
Регистрация: 18.9.2003

Репутация: 3
Всего: 5

Понял , задал Яндексу - куча ссылок,буду разбираться

p.s. Жалко нет готового решения?будет время - буду разбираться,проблема не важная

Это сообщение отредактировал(а) SlaUr - 25.10.2007, 22:06

Alix

Дата 25.10.2007, 22:24 (ссылка)

(нет голосов)

Загрузка ...

L45

Профиль
Группа: Участник
Сообщений: 581
Регистрация: 4.5.2005
Где: Pskov/Spb

Репутация: 7
Всего: 23

можно, конечно, и там искать, но лучше, имхо, тут:
http://search.msdn.microsoft.com/search/De...&lang=en-us

--------------------

SlaUr

Дата 29.10.2007, 15:42 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 408
Регистрация: 18.9.2003

Репутация: 3
Всего: 5

Цитата

LookupAccountSid

насколько понял ищет по SID имя USERа ,а мне надо наоборот.
пробовал получать SID через LookupAccountName , но он выдает неправильный SID
Для текущего пользователя выдает правильный SID для остальных неправильный/

Вот исходный код (или посмотрите прикрепленный файл):

Код


unit Unit2;

interface

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


type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
type USER_INFO_1 = record usri1_name: LPWSTR;

usri1_password: LPWSTR; usri1_password_age: DWORD;

usri1_priv: DWORD; usri1_home_dir: LPWSTR;

 usri1_comment: LPWSTR; usri1_flags: DWORD;

 usri1_script_path: LPWSTR; end;
lpUSER_INFO_1 = ^USER_INFO_1;

function NetUserEnum(ServerName: PWideChar; Level, Filter: DWORD;

var Buffer: Pointer; PrefMaxLen: DWORD;

var EntriesRead, TotalEntries, ResumeHandle: DWORD): Longword; stdcall;
external 'netapi32.dll';
function NetApiBufferFree(pBuffer: PByte): Longint; stdcall;
external 'netapi32.dll'
Function Sid2Text(Sid: PSID; var StringSid:STRING {Pchar}):boolean;


var
  Form1: TForm1;

implementation

{$R *.dfm}




function GetUserSid(const UserName: string): string;
var
  P: PSID;
  PRef, PName: PChar;
  RefSz, Sz: Cardinal;
  peUse: Cardinal;
  St1:string;
begin
  Sz:= 0; RefSz:= 0;
  PName:= PChar(UserName);
  PeUse:=SidTypeUser;
  LookupAccountName(nil, PName, nil, Sz, nil, RefSz, peUse);
  if GetLastError <> ERROR_INSUFFICIENT_BUFFER then RaiseLastOSError;
  GetMem(P, Sz + RefSz);
  try
    Cardinal(PRef):= Cardinal(P) + Sz;
    if not LookupAccountName(nil, PName, P, Sz, PRef, RefSz, peUse)
        then RaiseLastOSError;
    Sid2Text(p,St1);
    Result:= St1;
  finally
    FreeMem(P);
  end;
end;





Function Sid2Text(Sid: PSID; var StringSid:STRING {Pchar}):boolean;
var
 ida : Windows.PSIDIdentifierAuthority;
 l, subs : cardinal;
 s : string;
begin
 ida := GetSidIdentifierAuthority(sid);
 subs := GetSidSubAuthorityCount(sid)^;

 s := 'S-' + IntToStr(PByte(sid)^)  + '-';
 if (ida.Value[0] <> 0) or (ida.Value[1] <> 0) then
 begin
   s := s + '0x';
   for l := 0 to 5 do
     s := s + IntToHex(ida.value[l], 2);
 end
 else
 begin
   s := s + IntToStr( ida.value[5] +
                      (ida.value[4] shl 8) +
                      (ida.value[3] shl 16) +
                      (ida.value[2] shl 24));
 end;

 for l := 0 to subs-1 do
   s := s + '-' + IntToStr(GetSidSubAuthority(sid, l)^);
   StringSid:=s;
end;
{---------------------}



procedure TForm1.Button1Click(Sender: TObject);
var EntiesRead: DWORD; TotalEntries: DWORD; UserInfo: lpUSER_INFO_1;
 lpBuffer: Pointer; ResumeHandle: DWORD; Counter: Integer; NetApiStatus: LongWord;
 i1:integer;St2:string;
begin
ResumeHandle := 0;
repeat // NetApiStatus :=
// NetUserEnum(PChar('\\NT-Domain'), 1, 0, lpBuffer, 0,EntiesRead, TotalEntries, ResumeHandle);

NetApiStatus := NetUserEnum(nil, 1, 0, lpBuffer, 0, EntiesRead, TotalEntries, ResumeHandle);
UserInfo := lpBuffer;
 for Counter := 0 to EntiesRead - 1 do
begin
listbox1.Items.Add(WideCharToString(UserInfo^.usri1_name){ + '|' + WideCharToString(UserInfo^.usri1_comment)});
Inc(UserInfo);
end;
NetApiBufferFree(lpBuffer);
until (NetApiStatus <> ERROR_MORE_DATA);
//в ListBox1 все имена
for i1:=0 to ListBox1.Count-1 do
begin
St2:=GetUserSid(ListBox1.Items[i1]);
ListBox1.Items[i1]:=ListBox1.Items[i1]+'|'+St2;
end;

end;

end.

Это сообщение отредактировал(а) SlaUr - 29.10.2007, 17:35

Присоединённый файл ( Кол-во скачиваний: 5 )

2.rar 22,12 Kb

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »