Anmeldenamen abfragen

Hallo,
wie kann man mit VB6.0 abfragen welcher Benutzer gerade am lokalen NT-Rechner angemeldet ist?

Christian

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





Private Function GetUser() as String
 Dim lpBuff As String \* 25
 Dim ret As Long

 ret = GetUserName(lpBuff, 25)
 GetUser = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
End Function

Gruss CO