Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Delphi novelnet User ermitteln (https://www.delphipraxis.net/117174-novelnet-user-ermitteln.html)

d6lpz 13. Jul 2008 14:50


novelnet User ermitteln
 
Hallo,

wie kann man den in einem Novell Netz angemeldeten Usernamen ermitteln?

PS: Der am PC (Windows) angemeldete User muß ja nicht der gleiche sein. Den Windowsuser abfzuragen ist kein Problem.


Danke für alle Tips
Dirk

mkinzler 13. Jul 2008 14:53

Re: novelnet User ermitteln
 
Habe schon lange nichts mehr mit Novell gemacht. wenn ich mich richtig errinnere wird hierfür eine Umgebungsvarisble erzeugt.

RWarnecke 13. Jul 2008 14:56

Re: novelnet User ermitteln
 
Über die Systemvariable NWUSERNAME oder über die Novell-API.

Der.Kaktus 13. Jul 2008 14:59

Re: novelnet User ermitteln
 
Hallo,

schau mal hier..ist zwar etwas aelter..geht aber bis Netware 6.. nwlib

d6lpz 13. Jul 2008 15:29

Re: novelnet User ermitteln
 
Zitat:

Zitat von RWarnecke
Über die Systemvariable NWUSERNAME oder über die Novell-API.

Danke an alle Anwortenden!

Wie kann ich die Umgebungsvariable abfragen? Davon habe ich keine Ahnung....

Danke für alle weiterführenden Tips.
Dirk

mkinzler 13. Jul 2008 15:31

Re: novelnet User ermitteln
 
Mit GetEnvironmentVariable() aus der Unit Windows

d6lpz 13. Jul 2008 15:32

Re: novelnet User ermitteln
 
Zitat:

Zitat von mkinzler
Mit GetEnvironVariable() aus der Unit Windows

Danke!!

Muß ich morgen gleich mal probieren.

Dirk

Luckie 13. Jul 2008 15:33

Re: novelnet User ermitteln
 
Einfach mal frech und forsch die Suche bemühen: Hier im Forum suchenUmgebungsvariable.

RWarnecke 13. Jul 2008 15:35

Re: novelnet User ermitteln
 
Delphi-Quellcode:
function GetEnvVarValue(const VarName: string): string;
var
  BufSize: Integer; // buffer size required for value
begin
  // Get required buffer size (inc. terminal #0)
  BufSize := GetEnvironmentVariable(PChar(VarName), nil, 0);
  if BufSize > 0 then
  begin
    // Read env var value into result string
    SetLength(Result, BufSize - 1);
    GetEnvironmentVariable(PChar(VarName),
      PChar(Result), BufSize);
  end
  else
    // No such environment variable
    Result := '';
end;


Alle Zeitangaben in WEZ +1. Es ist jetzt 19:10 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz