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?