Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _ (ByVal lpBuffer As String, nSize As Long) As Long
Public Function UserName() As String Dim cn As String Dim ls As Long Dim res As Long
cn = String(1024, 0) ls = 1024 res = GetUserName(cn, ls) If res <> 0 Then UserName = Mid(cn, 1, InStr(cn, Chr(0)) - 1) Else UserName = "" End If End Function
