• Home
 · 
• String Manipulation
 · 
• CurUserName

CurUserName

Get the current username from Windows

Inputs
Dim sStr1$ sStr1 = CurUserName()

Returns
( The current username from Windows ) sStr1 = "MAGiC MANiAC^mTo"

Rate CurUserName

• 1
• 2
• 3
• 4
• 5

(7(7 Vote))

' Get the current username from Windows
' Coded By MAGiC MANiAC^mTo
' More Examples At: http://home.kabelfoon.nl/~mto/
'
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _ (ByVal lpBuffer As String, nSize As Long) As Long
Function CurUserName$()
 Dim sTmp1$
 sTmp1 = Space$(512)
 GetUserName sTmp1, Len(sTmp1)
 CurUserName = Trim$(sTmp1)
End Function