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

[kate158]

привет! спасайте! у всех пользователей на компах стояла XP, поменяли на 7, исчезли имена пользователей .. а у меня функция заточена на это

function GetNTDomainName: string; 
var
  hReg: TRegistry;
begin
  hReg:= TRegistry.Create;
  hReg.RootKey:= HKEY_LOCAL_MACHINE;
  hReg.OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon', false);
  Result:= hReg.ReadString('DefaultUserName');
  hReg.CloseKey;
  hReg.Destroy;
end;

что делать чтобы вернуть имена пользователей в домене?

[FaTaL]

Что значит исчезли имена пользователей в домене? Версия Windows на Active Directory никак не влияет и при чём тут вообще 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;

CompName - тут имя домена пиши. Получишь в строку имена пользунков через запятую.

[kate158]

как получить только имя залогиненного, текущего пользователя?

[rpy3uH]

GetUserName