Username fra windows VB5

Hej.

I et modul  (som samtidig kan godt bruges til andre ting):

Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Public Function bruger() As String
  Dim lpBuff As String * 25
  Dim lret As Long
  lret = GetUserName(lpBuff, 25)
  bruger = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
End Function

Så har du username i variablen:  bruger - plads til 25 tegn.

Jeg har ikke opfundet metoden, og jeg mener der nu er en nemmere, jeg kan bare ikke huske den.  Denne er helt tilbage fra win98-tiden.

M.v.h. Jørn

Tak.. dette kører også i WinXP?