Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Delphi angemeldeten netuser abfragen (https://www.delphipraxis.net/116687-angemeldeten-netuser-abfragen.html)

d6lpz 4. Jul 2008 11:12


angemeldeten netuser abfragen
 
Hallo,
ich suche eine Möglichkeit den im Netzwerk angemeldeten Usernamen abzufragen.
Momentan habe ich folgendes:
Delphi-Quellcode:
function GetUsername: String;
var
   Buffer: array[0..255] of Char;
   Size: DWord;

begin
        Size := SizeOf(Buffer);
   if not Windows.GetUserName(Buffer, Size)then
       RaiseLastOSError;


       SetString(Result, Buffer, Size - 1);
        pub_user:=result;
end;
Damit erhalte ich aber den am Betriebssystem angemeldeten User. Da das aber ein anderer als der im Netzwerk angemeldeter ist, nützt das mir nichts.
Kennt jemand noch eine andere Variante?
Mit GetNetUserName habe ich schon rumexperimentiert- bin aber zu keinem Ergebnis gekommen.
Bei Google habe ich auch gesucht, finde aber nur Hinweise auf diese WindowsUser Version.
Danke für alle Hinweise

hoika 4. Jul 2008 11:16

Re: angemeldeten netuser abfragen
 
Hallo,

hast du dir diese Unit mal angesehen ?

1

Dort GetNetUserName suchen



Heiko

Luckie 4. Jul 2008 11:43

Re: angemeldeten netuser abfragen
 
Zitat:

Zitat von d6lpz
Damit erhalte ich aber den am Betriebssystem angemeldeten User.

Nein, damit bekommst du den Benutzer unter dessen Kontext die Funktion aufgerufen wird.

Was ist ein netuser? Ich habe den Begriff noch nie gehört.

d6lpz 5. Jul 2008 13:18

Re: angemeldeten netuser abfragen
 
Zitat:

Zitat von hoika
Hallo,

hast du dir diese Unit mal angesehen ?

1

Dort GetNetUserName suchen



Heiko

Danke für Deinen Hinweis - komme heute nicht mehr dazu, werde aber berichten wenn ich mit diesem Tip mein Problem lösen konnte.

Danke nochmal
Dirk


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:40 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