Citrix User identifizieren

[erich.wanker]

Hallo Leute,

meine Anwendung läuft auf einem CitrixServer 2008 ..

ich suche eine Möglichkeit, den User oder die ClientMaschine zu identifizieren

Die Software ermittelt im Moment via Computernamen den PC und sucht dann auf einem Netzlaufwerk die rechnername.ini
Alle Nicht Citrix user haben dadurch eine eigene Ini - nur die Citrix user teilen sich die "Citrix_server_name.ini"

P.S.: Link http://www.codeproject.com/KB/winsdk/citrixIP.aspx



Vielen Dank

Erich

[mkinzler]

Und welchen Benutzer haben die User in Windows?

[dataspider]

Hi,

das sollte über die Umgebungsvariablen herauszubekommen sein:

GetEnvironmentVariable('CLIENTNAME') // bzw. 'COMPUTERNAME'

Frank

[erich.wanker]

Zitat:

Und welchen Benutzer haben die User in Windows?

verschieden: ... Eingeschränkte User hauptsächlich..

Werd mal folgendes probieren:

Delphi-Quellcode:

function GetMyClientName:String; 
begin 
  result := SysUtils.GetEnvironmentVariable('CLIENTNAME'); 
end;

vielen Dank einstweil..

Erich

[mkinzler]

Ich meinte ob dort verschiedenen Benutzer verwendet werden?

[erich.wanker]

Zitat von mkinzler:

Ich meinte ob dort verschiedenen Benutzer verwendet werden?

Ja

ich hab mal auf die schnelle was getestet:

Delphi-Quellcode:

// Mein Computer
function GetMyComputerName: string;
var
  c: array[0..127] of Char;
  i: dword;
begin
  i:= SizeOf(c);
  GetComputerName(c,i);
  result:=c;
end;

// Mein Client
function GetMyClientName:String;
begin
  result := SysUtils.GetEnvironmentVariable('CLIENTNAME');
end;


procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
showmessage('Programm läuft auf: '+GetMyComputerName);
showmessage('Sie befinden sich auf: '+GetMyClientName);
// kann sein "Console" oder empty
end;

wenn ich nun eine Anwendung auf - sagen wir mal Rechnername: Citrix leg:

Kann ich davon ausgehen, daß folgende Aussagen stimmen ?

Delphi-Quellcode:

if (GetMyComputerName = 'Citrix') AND  (GetMyClientName = '') then \\ ich bin auf dem Citrix
if (GetMyComputerName = 'Citrix') AND  (GetMyClientName = 'Console') then \\ ich bin auf dem Citrix
if (GetMyComputerName = 'Citrix') AND  (GetMyClientName <> '') AND  (GetMyClientName <> 'Console' )then \\ ich bin auf dem Citrix in einer Session

Vielen Dank

Erich