TurboPascal Windows Benutzernamen anzeigen

[TUX_der_Pinguin]

Hallo,

es geht um Turbo Pascal 7, ich habe hier Beispiel Code mit dem ich den Computernamen eines Rechners ermitteln kann,
egal ob Win9x oder WinXP, jedoch würde ich gerne den Benutzernamen angezeigt bekommen und nicht den Computernamen.

Hat jemand eine idee wie man das hinbekommt !?

Code:

Function Netz_Name : String;
  Var
    Register : Registers;
    Puffer   : Array[1..15] Of Char;
    Temp     : String[15];
    Index    : Byte;
  Begin
    Temp := '';
    With Register Do Begin
      AH:= $5e;
      AL:= $0;
      DX := Ofs(Puffer);
      DS := Seg(Puffer);
      Intr($21,Register);
      If CH = 1 Then Begin
        For Index := 1 to 15 Do Temp := Temp + Puffer[Index];
        Temp := FCutBlankVH(Temp);
        Temp := UpString(Temp);
      End;{if}
    End;{with}
    Netz_Name := Temp;
  End;{Function Netz_Name}

mfg

TUX