Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long ' The name of the interactive user Function UserName() As String Dim buffer As String * 512, length As Long length = Len(buffer) If GetUserName(buffer, length) Then ' returns non-zero if successful, and modifies the length argument UserName = Left$(buffer, length - 1) End If End Function |