Kdo je logiran v Win (VB)

V form vpiši spodnjo kodo. V spremenljivki UserName dobiš logiranjega uporabnika.

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

Dim lRes As Long
Dim cn As String
Dim ls As Long
Dim UserName As String

Private Sub Form_Load()
cn = String(1024, 0)
ls = 1024
res = GetUserName(cn, ls)
If res <> 0 Then
'očisti nesnago
UserName = Mid(cn, 1, InStr(cn, Chr(0)) - 1)
End If
Me.Caption=UserName 'prikaže ime v naslovu
End Sub


LP, Tone