GetUserNameEx

[Luckie]

Warum bekomme ich hier...

Delphi-Quellcode:

const
  NameUnknown = 0; // Unknown name type.
  NameFullyQualifiedDN = 1;  // Fully qualified distinguished name
  NameSamCompatible = 2; // Windows NT® 4.0 account name
  NameDisplay = 3;  // A "friendly" display name
  NameUniqueId = 6; // GUID string that the IIDFromString function returns
  NameCanonical = 7;  // Complete canonical name
  NameUserPrincipal = 8; // User principal name
  NameCanonicalEx = 9;
  NameServicePrincipal = 10;  // Generalized service principal name
  DNSDomainName = 11;  // DNS domain name, plus the user name

function GetUserNameEx(NameFormat: DWORD;
  lpNameBuffer: LPSTR; var nSize: DWORD):Boolean; stdcall;
  external 'secur32.dll' Name 'GetUserNameExA';

function GetLoggedOnUserNameEx(fFormat: DWORD; var Username: String): DWORD;
var
  Size              : DWORD;
  Buffer: array [0..1024] of Char;
begin
  Size := MAX_COMPUTERNAME_LENGTH + 1;
  if GetUserNameEx(fFormat, Buffer, Size) then
    SetString(Username, Buffer, Size);
  Result := GetLastError;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Username: String;
  err: DWORD;
begin
  err := GetLoggedOnUserNameEx(3, Username);
  if err = 0 then
    ShowMessage(Username)
  else
    ShowMessage(SysErrorMessage(err));
end;

...immer die Fehlermeldung:

Zitat:

Die angegebene Domäne ist nicht vorhanden oder es konnte keine Verbindung hergestellt werden

obwohl ich mich in einer Domain befinde und auch mit ihr verbunden bin? Es dauert auch ewig bis die Funktion zurückkehrt. Funktioniert es eventuell bei euch?