home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / Server_Dat731404182002.psc / Module1.bas < prev    next >
Encoding:
BASIC Source File  |  2001-08-01  |  566 b   |  22 lines
  1. Attribute VB_Name = "Module1"
  2. Option Explicit
  3.  
  4. Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
  5.  
  6. Public Function GetUserLogin() As String
  7.  
  8.     Dim cBuffer As String
  9.     Dim nSize As Long
  10.     Dim nReturnVal As Long
  11.  
  12.     cBuffer = "                              "
  13.     nSize = 30
  14.     nReturnVal = GetUserName(cBuffer, nSize)
  15.     If nReturnVal > 0 Then
  16.         GetUserLogin = Trim(Left(cBuffer, nSize - 1))
  17.     Else
  18.         GetUserLogin = "Unknown User"
  19.     End If
  20.  
  21. End Function
  22.