Последние записи

made in programmersforum 1

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

21st
Июн

Как получить имена пользователей в домене?

Posted by Chas under Delphi

Stilet
Когда-то пользовался вот такой функцией:

    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

     Result:='...Сеансов нет';

       //ShowMessage(SysErrorMessage(GetLastError));

   finally

       NetApiBufferFree(Buffer);

       FreeMem(PSrvr);

   end;

    end;