CurUserName

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


About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 85 times

Categories

Visual Basic 6

Attachments

No attachments for this post

Comments

No comments have been added for this post.

You must be logged in to make a comment.