Hvem er logget på windows

Hej Brinch.

Jeg har engang spurgt om det samme, hvis det altså er netværk vi taler om: 
http://www.eksperten.dk/spm.asp?id=7522

M.v.h.  Jørn

Jeps. Og dengang svarede jeg, under et andet alias, det her:

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

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

Og så på formen:

Variabelnavn = NetworkUserName