README.md

December 4, 2022 ยท View on GitHub

CurUserName

Description

Get the current username from Windows

More Info

Dim sStr1$

sStr1 = CurUserName()

( The current username from Windows )

sStr1 = "MAGiC MANiAC^mTo"

Submitted On
ByMAGiC MANiAC^mTo
LevelAdvanced
User Rating4.3 (26 globes from 6 users)
CompatibilityVB 5.0, VB 6.0
CategoryString Manipulation
WorldVisual Basic
Archive File

Source 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