• Home
 · 
• Windows System Services
 · 
• gives the username of your system

gives the username of your system

gives the username of your system

API Declarations







Rate gives the username of your system

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Private Sub Command1_Click()
   Call User_Name
End Sub

Private Function User_Name() As String
   Dim nName As String 'name of the logged user
   Dim nBuffer As String
   Dim nSize As Long
   nBuffer = Space$(250)
   nSize = Len(nBuffer)
   If GetUserName(nBuffer, nSize) = 1 Then
      nName = Trim(nBuffer)
      MsgBox nName
      Exit Function
   End If
End Function