////////////////////////////////////////////////////////////////////////////////
//
// ****************************************************************************
// * Project : DomainInfo
// * Unit Name : uMain
// * Purpose : Демо получения информации о пользователях и группах домена
// * Author : Александр (Rouse_) Багель
// * Version : 1.00
// ****************************************************************************
//
// Спасибо милой девушке Ане и группе "Машина Времени" за моральную поддержку...
//
unit uMain;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, ExtCtrls, ComCtrls
 {$IFDEF VER150}
  , XPMan
 {$ENDIF};
const
 netapi32lib = 'netapi32.dll';
 NERR_Success = NO_ERROR;
type
 // Структура для получения информации о рабочей станции
 PWkstaInfo100 = ^TWkstaInfo100;
 TWkstaInfo100 = record
  wki100_platform_id : DWORD;
  wki100_computername : PWideChar;
  wki100_langroup : PWideChar;
  wki100_ver_major : DWORD;
  wki100_ver_minor : DWORD;
 end;
 // Итруктура для определения DNS имени контролера домена
 TDomainControllerInfoA = record
  DomainControllerName: LPSTR;
  DomainControllerAddress: LPSTR;
  DomainControllerAddressType: ULONG;
  DomainGuid: TGUID;
  DomainName: LPSTR;
  DnsForestName: LPSTR;
  Flags: ULONG;
  DcSiteName: LPSTR;
  ClientSiteName: LPSTR;
 end;
 PDomainControllerInfoA = ^TDomainControllerInfoA;
 // Структура для отображения пользователей
 PNetDisplayUser = ^TNetDisplayUser;
 TNetDisplayUser = record
  usri1_name: LPWSTR;
  usri1_comment: LPWSTR;
  usri1_flags: DWORD;
  usri1_full_name: LPWSTR;
  usri1_user_id: DWORD;
  usri1_next_index: DWORD;
 end;
 // Структура для отображения рабочих станций
 PNetDisplayMachine = ^TNetDisplayMachine;
 TNetDisplayMachine = record
  usri2_name: LPWSTR;
  usri2_comment: LPWSTR;
  usri2_flags: DWORD;
  usri2_user_id: DWORD;
  usri2_next_index: DWORD;
 end;
 // Структура для отображения групп
 PNetDisplayGroup = ^TNetDisplayGroup;
 TNetDisplayGroup = record
  grpi3_name: LPWSTR;
  grpi3_comment: LPWSTR;
  grpi3_group_id: DWORD;
  grpi3_attributes: DWORD;
  grpi3_next_index: DWORD;
 end;
 // Структура для отображения пользователей принадлежащих группе
 // или групп в которые входит пользователь
 PGroupUsersInfo0 = ^TGroupUsersInfo0;
 TGroupUsersInfo0 = record
  grui0_name: LPWSTR;
 end;
 TfrmDomainInfo = class(TForm)
  Button1: TButton;
  gbCurrent: TGroupBox;
  gbDomainResList: TGroupBox;
  ledCompName: TLabeledEdit;
  ledUserName: TLabeledEdit;
  ledDomainName: TLabeledEdit;
  ledControllerName: TLabeledEdit;
  lvUsers: TListView;
  gbInfo: TGroupBox;
  lbInfo: TListBox;
  VSplitter: TSplitter;
  pcRes: TPageControl;
  TabSheet1: TTabSheet;
  TabSheet2: TTabSheet;
  TabSheet3: TTabSheet;
  lvWorkStation: TListView;
  lvGroups: TListView;
  Label1: TLabel;
  memTrustedDomains: TMemo;
  ledDNSName: TLabeledEdit;
  procedure FormCreate(Sender: TObject);
  procedure lvGroupsClick(Sender: TObject);
 private
  CurrentDomainName: String;
  function GetCurrentUserName: String;
  function GetCurrentComputerName: String;
  function GetDomainController(const DomainName: String): String;
  function GetDNSDomainName(const DomainName: String): String;
  function EnumAllTrustedDomains: Boolean;
  function EnumAllUsers: Boolean;
  function EnumAllGroups: Boolean;
  function EnumAllWorkStation: Boolean;
  function GetSID(const SecureObject: String): String;
  function GetAllGroupUsers(const GroupName: String): Boolean;
  function GetAllUserGroups(const UserName: String): Boolean;
 end;
 // Функции которые предоставят нам возможность получения информации
 function NetApiBufferFree(Buffer: Pointer): DWORD; stdcall;
  external netapi32lib;
 function NetWkstaGetInfo(ServerName: PWideChar; Level: DWORD;
  Bufptr: Pointer): DWORD; stdcall; external netapi32lib;
 function NetGetDCName(ServerName: PWideChar; DomainName: PWideChar;
  var Bufptr: PWideChar): DWORD; stdcall; external netapi32lib;
 function DsGetDcName(ComputerName, DomainName: PChar; DomainGuid: PGUID;
  SiteName: PChar; Flags: ULONG;
  var DomainControllerInfo: PDomainControllerInfoA): DWORD; stdcall;
  external netapi32lib name 'DsGetDcNameA';
 function NetQueryDisplayInformation(ServerName: PWideChar; Level: DWORD;
  Index: DWORD; EntriesRequested: DWORD; PreferredMaximumLength: DWORD;
  var ReturnedEntryCount: DWORD; SortedBuffer: Pointer): DWORD; stdcall;
  external netapi32lib;
 function NetGroupGetUsers(ServerName: PWideChar; GroupName: PWideChar; Level: DWORD;
  var Bufptr: Pointer; PrefMaxLen: DWORD; var EntriesRead: DWORD;
  var TotalEntries: DWORD; ResumeHandle: PDWORD): DWORD; stdcall;
  external netapi32lib;
 function NetUserGetGroups(ServerName: PWideChar; UserName: PWideChar; Level: DWORD;
  var Bufptr: Pointer; PrefMaxLen: DWORD; var EntriesRead: DWORD;
  var TotalEntries: DWORD): DWORD; stdcall; external netapi32lib;
 function NetEnumerateTrustedDomains(ServerName: PWideChar;
  DomainNames: PWideChar): DWORD; stdcall; external netapi32lib;
 procedure ConvertSidToStringSid(SID: PSID; var StringSid: LPSTR); stdcall;
  external advapi32 name 'ConvertSidToStringSidA';
var
 frmDomainInfo: TfrmDomainInfo;
implementation
{$R *.dfm}
// Данная функция получает информацию о всех группах присутствующих в домене
// =============================================================================
function TfrmDomainInfo.EnumAllGroups: Boolean;
var
 Tmp, Info: PNetDisplayGroup;
 I, CurrIndex, EntriesRequest,
 PreferredMaximumLength,
 ReturnedEntryCount: Cardinal;
 Error: DWORD;
begin
 CurrIndex := 0;
 repeat
  Info := nil;
  // NetQueryDisplayInformation возвращает информацию только о 100-а записях
  // для того чтобы получить всю информацию используется третий параметр,
  // передаваемый функции, который определяет с какой записи продолжать
  // вывод информации
  EntriesRequest := 100;
  PreferredMaximumLength := EntriesRequest * SizeOf(TNetDisplayGroup);
  ReturnedEntryCount := 0;
  // Для выполнения функции, в нее нужно передать DNS имя контролера домена
  // (или его IP адрес), с которого мы хочем получить информацию
  // Для получения информации о группах используется структура NetDisplayGroup
  // и ее идентификатор 3 (тройка) во втором параметре
  Error := NetQueryDisplayInformation(StringToOleStr(ledControllerName.Text), 3, CurrIndex,
  EntriesRequest, PreferredMaximumLength, ReturnedEntryCount, @Info);
  // При безошибочном выполнении фунции будет результат либо
  // 1. NERR_Success - все записи возвращены
  // 2. ERROR_MORE_DATA - записи возвращены, но остались еще и нужно вызывать функцию повторно
  if Error in [NERR_Success, ERROR_MORE_DATA] then
  try
  Tmp := Info;
  // Выводим информацию которую вернула функция в структуру
  for I := 0 to ReturnedEntryCount - 1 do
  begin
  with lvGroups.Items.Add do
  begin
  Caption := Tmp^.grpi3_name; // Имя группы
  SubItems.Add(Tmp^.grpi3_comment); // Комментарий
  SubItems.Add(GetSID(Caption)); // SID группы
  // Запоминаем индекс с которым будем вызывать повторно функцию (если нужно)
  CurrIndex := Tmp^.grpi3_next_index;
  end;
  Inc(Tmp);
  end;
  finally
  // Чтобы небыло утечки ресурсов, освобождаем память занятую функцией под структуру
  NetApiBufferFree(Info);
  end;
 // Если результат выполнения функции ERROR_MORE_DATA - вызываем функцию повторно
 until Error in [NERR_Success, ERROR_ACCESS_DENIED];
 // Ну и возвращаем результат всего что мы тут накодили
 Result := Error = NERR_Success;
end;
// Данная функция получает информацию о всех доверенных доменах
// =============================================================================
function TfrmDomainInfo.EnumAllTrustedDomains: Boolean;
var
 Tmp, DomainList: PWideChar;
begin
 // Используем недокументированную функцию NetEnumerateTrustedDomains
 // (только не пойму, с какого перепуга она не документирована?)
 // Тут все очень просто, на вход имя контролера домена, ны выход - список доверенных доменов
 Result := NetEnumerateTrustedDomains(StringToOleStr(ledControllerName.Text),
  @DomainList) = NERR_Success;
 // Если вызов функции успешен, то...
 if Result then
 try
  Tmp := DomainList;
  while Length(Tmp) > 0 do
  begin
  memTrustedDomains.Lines.Add(Tmp); // Банально выводим список на экран
  Tmp := Tmp + Length(Tmp) + 1;
  end;
 finally
  // Не забываем про память
  NetApiBufferFree(DomainList);
 end;
end;
// Данная функция получает информацию о всех пользователях присутствующих в домене
// =============================================================================
function TfrmDomainInfo.EnumAllUsers: Boolean;
var
 Tmp, Info: PNetDisplayUser;
 I, CurrIndex, EntriesRequest,
 PreferredMaximumLength,
 ReturnedEntryCount: Cardinal;
 Error: DWORD;
begin
 CurrIndex := 0;
 repeat
  Info := nil;
  // NetQueryDisplayInformation возвращает информацию только о 100-а записях
  // для того чтобы получить всю информацию используется третий параметр,
  // передаваемый функции, который определяет с какой записи продолжать
  // вывод информации
  EntriesRequest := 100;
  PreferredMaximumLength := EntriesRequest * SizeOf(TNetDisplayUser);
  ReturnedEntryCount := 0;
  // Для выполнения функции, в нее нужно передать DNS имя контролера домена
  // (или его IP адрес), с которого мы хочем получить информацию
  // Для получения информации о пользователях используется структура NetDisplayUser
  // и ее идентификатор 1 (единица) во втором параметре
  Error := NetQueryDisplayInformation(StringToOleStr(ledControllerName.Text), 1, CurrIndex,
  EntriesRequest, PreferredMaximumLength, ReturnedEntryCount, @Info);
  // При безошибочном выполнении фунции будет результат либо
  // 1. NERR_Success - все записи возвращены
  // 2. ERROR_MORE_DATA - записи возвращены, но остались еще и нужно вызывать функцию повторно
  if Error in [NERR_Success, ERROR_MORE_DATA] then
  try
  Tmp := Info;
  // Выводим информацию которую вернула функция в структуру
  for I := 0 to ReturnedEntryCount - 1 do
  begin
  with lvUsers.Items.Add do
  begin
  Caption := Tmp^.usri1_name; // Имя пользователя
  SubItems.Add(Tmp^.usri1_comment); // Комментарий
  SubItems.Add(GetSID(Caption)); // Его SID
  // Запоминаем индекс с которым будем вызывать повторно функцию (если нужно)
  CurrIndex := Tmp^.usri1_next_index;
  end;
  Inc(Tmp);
  end;
  finally
  // Грохаем выделенную при вызове NetQueryDisplayInformation память
  NetApiBufferFree(Info);
  end;
 // Если результат выполнения функции ERROR_MORE_DATA
 // (т.е. есть еще данные) - вызываем функцию повторно
 until Error in [NERR_Success, ERROR_ACCESS_DENIED];
 // Ну и возвращаем результат всего что мы тут накодили
 Result := Error = NERR_Success;
end;
// Данная функция получает информацию о всех рабочих станциях присутствующих в домене
// Вообщето так делать немного не верно, дело в том что рабочие станции могут
// присутствовать в списке не только те, которые завел сисадмин (но для демки сойдет и так)
// =============================================================================
function TfrmDomainInfo.EnumAllWorkStation: Boolean;
var
 Tmp, Info: PNetDisplayMachine;
 I, CurrIndex, EntriesRequest,
 PreferredMaximumLength,
 ReturnedEntryCount: Cardinal;
 Error: DWORD;
begin
 CurrIndex := 0;
 repeat
  Info := nil;
  // NetQueryDisplayInformation возвращает информацию только о 100-а записях
  // для того чтобы получить всю информацию используется третий параметр,
  // передаваемый функции, который определяет с какой записи продолжать
  // вывод информации
  EntriesRequest := 100;
  PreferredMaximumLength := EntriesRequest * SizeOf(TNetDisplayMachine);
  ReturnedEntryCount := 0;
  // Для выполнения функции, в нее нужно передать DNS имя контролера домена
  // (или его IP адрес), с которого мы хочем получить информацию
  // Для получения информации о рабочих станциях используется структура NetDisplayMachine
  // и ее идентификатор 2 (двойка) во втором параметре
  Error := NetQueryDisplayInformation(StringToOleStr(ledControllerName.Text), 2, CurrIndex,
  EntriesRequest, PreferredMaximumLength, ReturnedEntryCount, @Info);
  // При безошибочном выполнении фунции будет результат либо
  // 1. NERR_Success - все записи возвращены
  // 2. ERROR_MORE_DATA - записи возвращены, но остались еще и нужно вызывать функцию повторно
  if Error in [NERR_Success, ERROR_MORE_DATA] then
  try
  Tmp := Info;
  // Выводим информацию которую вернула функция в структуру
  for I := 0 to ReturnedEntryCount - 1 do
  begin
  with lvWorkStation.Items.Add do
  begin
  Caption := Tmp^.usri2_name; // Имя рабочей станции
  SubItems.Add(Tmp^.usri2_comment); // Комментарий
  SubItems.Add(GetSID(Caption)); // Её SID
  // Запоминаем индекс с которым будем вызывать повторно функцию (если нужно)
  CurrIndex := Tmp^.usri2_next_index;
  end;
  Inc(Tmp);
  end;
  finally
  // Дабы небыло утечек
  NetApiBufferFree(Info);
  end;
 // Если результат выполнения функции ERROR_MORE_DATA
 // (т.е. есть еще данные) - вызываем функцию повторно
 until Error in [NERR_Success, ERROR_ACCESS_DENIED];
 // Ну и возвращаем результат всего что мы тут накодили
 Result := Error = NERR_Success;
end;
procedure TfrmDomainInfo.FormCreate(Sender: TObject);
begin
 // Просто вызываем все функции подряд (не делал проверок на результат функций)
 ledUserName.Text := GetCurrentUserName;
 ledCompName.Text := GetCurrentComputerName;
 ledDomainName.Text := CurrentDomainName;
 ledControllerName.Text := GetDomainController(CurrentDomainName);
 // Единственно, если нет контролера домена, то дальше определять бесполезно
 if ledControllerName.Text = '' then Exit;
 ledDNSName.Text := GetDNSDomainName(CurrentDomainName);
 EnumAllTrustedDomains;
 EnumAllUsers;
 EnumAllWorkStation;
 EnumAllGroups;
end;
// Довольно простая функция, возвращает только имена пользователей принадлезжащих группе
// =============================================================================
function TfrmDomainInfo.GetAllGroupUsers(const GroupName: String): Boolean;
var
 Tmp, Info: PGroupUsersInfo0;
 PrefMaxLen, EntriesRead,
 TotalEntries, ResumeHandle: DWORD;
 I: Integer;
begin
 // На вход подается список который мы будем заполнять
 lbInfo.Items.Clear;
 // Обязательная инициализация
 ResumeHandle := 0;
 PrefMaxLen := DWORD(-1);
 // Выполняем
 Result := NetGroupGetUsers(StringToOleStr(ledControllerName.Text),
  StringToOleStr(GroupName), 0, Pointer(Info), PrefMaxLen,
  EntriesRead, TotalEntries, @ResumeHandle) = NERR_Success;
 // Смотрим результат...
 if Result then
 try
  Tmp := Info;
  for I := 0 to EntriesRead - 1 do
  begin
  lbInfo.Items.Add(Tmp^.grui0_name); // Банально выводим результат из структуры
  Inc(Tmp);
  end;
 finally
  // Не забываем, ибо может быть склероз :)
  NetApiBufferFree(Info);
 end;
end;
// Аналогично предыдущей функции (заметьте - структура таже)
// =============================================================================
function TfrmDomainInfo.GetAllUserGroups(const UserName: String): Boolean;
var
 Tmp, Info: PGroupUsersInfo0;
 PrefMaxLen, EntriesRead,
 TotalEntries: DWORD;
 I: Integer;
begin
 lbInfo.Items.Clear;
 PrefMaxLen := DWORD(-1);
 Result := NetUserGetGroups(StringToOleStr(ledControllerName.Text),
  StringToOleStr(UserName), 0, Pointer(Info), PrefMaxLen,
  EntriesRead, TotalEntries) = NERR_Success;
 if Result then
 try
  Tmp := Info;
  for I := 0 to EntriesRead - 1 do
  begin
  lbInfo.Items.Add(Tmp^.grui0_name);
  Inc(Tmp);
  end;
 finally
  NetApiBufferFree(Info);
 end;
end;
// Получаем имя компьютера и имя домена
// =============================================================================
function TfrmDomainInfo.GetCurrentComputerName: String;
var
 Info: PWkstaInfo100;
 Error: DWORD;
begin
 // А для этого мы воспользуемся следующей функцией
 Error := NetWkstaGetInfo(nil, 100, @Info);
 if Error <> 0 then
  raise Exception.Create(SysErrorMessage(Error));
 // Как видно, вызов который возвращает обычную структуру, из которой и прочитаем, все что нужно :)
 // А именно имя компьютера в сети
 Result := Info^.wki100_computername;
 // И где он находиться
 CurrentDomainName := info^.wki100_langroup;
end;
// Без комментариев
// =============================================================================
function TfrmDomainInfo.GetCurrentUserName: String;
var
 Size: Cardinal;
begin
 Size := MAXCHAR;
 SetLength(Result, Size);
 GetUserName(PChar(Result), Size);
 SetLength(Result, Size);
end;
// Получаем DNS имя контроллера домена
// =============================================================================
function TfrmDomainInfo.GetDNSDomainName(const DomainName: String): String;
const
 DS_IS_FLAT_NAME = $00010000;
 DS_RETURN_DNS_NAME = $40000000;
var
 GUID: PGUID;
 DomainControllerInfo: PDomainControllerInfoA;
begin
 GUID := nil;
 // Для большинства операций нам потребуется IP адрес контроллера домена
 // или его DNS имя, которое мы получим вот так:
 if DsGetDcName(nil, PChar(CurrentDomainName), GUID, nil,
  DS_IS_FLAT_NAME or DS_RETURN_DNS_NAME, DomainControllerInfo) = NERR_Success then
 // Параметры которые мы передаем означают:
 // DS_IS_FLAT_NAME - передаем просто имя домена
 // DS_RETURN_DNS_NAME - ждем получения DNS имени
 try
  Result := DomainControllerInfo^.DomainControllerName; // Результат собсно тут...
 finally
  // Склероз это болезнь, ее нужно лечить...
  NetApiBufferFree(DomainControllerInfo);
 end;
end;
// Ну тут без комментариев - просто получаем имя контроллера домена
// =============================================================================
function TfrmDomainInfo.GetDomainController(const DomainName: String): String;
var
 Domain: WideString;
 Server: PWideChar;
begin
 Domain := StringToOleStr(DomainName);
 if NetGetDCName(nil, @Domain[1], Server) = NERR_Success then
 try
  Result := Server;
 finally
  NetApiBufferFree(Server);
 end;
end;
// Не знаю зачем добавил это, ну раз добавил - получение SID объекта
// Без комментариев...
// =============================================================================
function TfrmDomainInfo.GetSID(const SecureObject: String): String;
var
 SID: PSID;
 StringSid: PChar;
 ReferencedDomain: String;
 cbSid, cbReferencedDomain:DWORD;
 peUse: SID_NAME_USE;
begin
 cbSID := 128;
 cbReferencedDomain := 16;
 GetMem(SID, cbSid);
 try
  SetLength(ReferencedDomain, cbReferencedDomain);
  if LookupAccountName(PChar(ledDNSName.Text),
  PChar(SecureObject), SID, cbSid,
  @ReferencedDomain[1], cbReferencedDomain, peUse) then
  begin
  ConvertSidToStringSid(SID, StringSid);
  Result := StringSid;
  end;
 finally
  FreeMem(SID);
 end;
end;
procedure TfrmDomainInfo.lvGroupsClick(Sender: TObject);
var
 Value: String;
begin
 if (Sender as TListView).Selected = nil then Exit;
 Value := (Sender as TListView).Selected.Caption;
 case (Sender as TListView).Tag of
  0:
  begin
  gbInfo.Caption := Format('Группы в которые входит пользователь "%s"', [Value]);
  GetAllUserGroups(Value);
  end;
  1:
  begin
  gbInfo.Caption := Format('Группы в которые входит рабочая станция "%s"', [Value]);
  GetAllUserGroups(Value);
  end;
  2:
  begin
  gbInfo.Caption := Format('Объекты входящие в группу "%s"', [Value]);
  GetAllGroupUsers(Value);
  end;
 end;
end;
end.