• Home
 · 
• Windows API Call/Explanation
 · 
• Get the logged on username from Windows 95/98/NT

Get the logged on username from Windows 95/98/NT

Get the logged on username from Windows 95/98 and NT

API Declarations
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal
lpBuffer As String, nSize As Long) As Long
'inl as 1

Rate Get the logged on username from Windows 95/98/NT

• 1
• 2
• 3
• 4
• 5

(38(38 Vote))

gsUserId = ClipNull(GetUser())
Function GetUser() As String
 Dim lpUserID As String
 Dim nBuffer As Long
 Dim Ret As Long
 lpUserID = String(25, 0)
 nBuffer = 25
 Ret = GetUserName(lpUserID, nBuffer)
 If Ret Then
 GetUser$ = lpUserID$
 End If
End Function
Function ClipNull(InString As String) As String
 Dim intpos As Integer
 If Len(InString) Then
 intpos = InStr(InString, vbNullChar)
 If intpos > 0 Then
 ClipNull = Left(InString, intpos - 1)
 Else
 ClipNull = InString
 End If
 End If
End Function