PC User Name
PC User Name
(OP)
Is there a command which access the PC user name in Visual Basic?. I want to use it for the file name when generating reports created in VB
Thanks for your help.
Thanks for your help.
INTELLIGENT WORK FORUMS
FOR ENGINEERING PROFESSIONALS Contact USThanks. We have received your request and will respond promptly. Come Join Us!Are you an
Engineering professional? Join Eng-Tips Forums!
*Eng-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail. Posting Guidelines |
|
Join your peers on the Internet's largest technical engineering professional community.
It's easy to join and it's free.
Here's Why Members Love Eng-Tips Forums:
Register now while it's still free!
Already a member? Close this window and log in.
RE: PC User Name
Via Windows API (preferred and most reliable method)
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Sub Main()
Dim sUser As String
Dim lpBuff As String * 1024
'Get the Login User Name
GetUserName lpBuff, Len(lpBuff)
sUser = Left$(lpBuff, (InStr(1, lpBuff, vbNullChar)) - 1)
MsgBox "Login User: " & sUser
End Sub
Via Environment Variables:
Sub Main()
Dim sUser As String
sUser = VBA.Environ("USERNAME")
MsgBox "Login User: " & sUser
End Sub
DimensionalSolutions@Core.com
While I welcome e-mail messages, please post all thread activity in these forums for the benefit of all members.
RE: PC User Name
thanks
RE: PC User Name
Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
'----------------------------------------------------------------------------------------------------
' Get user name
'----------------------------------------------------------------------------------------------------
Public Function GetAccount() As String
Dim cName As String
Dim cSize As Long
cName = Space(255)
cSize = 255
If GetUserName(cName, cSize) <> 0 Then
GetAccount = Left(cName, cSize - 1)
Else
GetAccount = ""
End If
End Function
dongxiao PEng
http://www.cadtool.net