angemeldeten netuser abfragen

[d6lpz]

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