NICHT INTERAKTIVER Windows Active directory logon

[Alter Mann]

Hi iskywalker,

LoginName, etwa so?

Delphi-Quellcode:

function LoginName : String;
var
  ADSystemInfo  : TADSystemInfo;
  _aUser        : IADsUser;
begin
  Result := 'ohne';
  ADSystemInfo := TADSystemInfo.Create(Self);
  try
    if SUCCEEDED(ADsGetObject('LDAP://' + ADSystemInfo.UserName, IADsUser, _aUser)) then Result := _aUser.Get('sAMAccountName');
  finally
    ADSystemInfo.FreeOnRelease;
  end;
end;

@generic

Warum so aufgebracht, habe ich etwas überlesen?

Gruß