Get the current username from Windows
Original Author: MAGiC MANiAC^mTo
Inputs
Dim sStr1$
sStr1 = CurUserName()
Returns
( The current username from Windows )
sStr1 = “MAGiC MANiAC^mTo”
Code
' 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