Get UserName

[gbargsley]

Hello all.

How can I grab the Login Computer UserName from a Windows 2000 Computer? I need to get this and place it into a variable, so that I can write this to the registry.

Any code that will show me to do this would be great.

Thanks in advance.
Garry B

 

[VeryNewbie2004]

Copy This Bit Into A New Module

    ' Makes sure all variables are dimensioned in each subroutine.
     Option Explicit

     ' Access the GetUserNameA function in advapi32.dll and
     ' call the function GetUserName.
     Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
     (ByVal lpBuffer As String, nSize As Long) As Long

Then copy This Bit Where Ever You Want It:

    Dim lpBuff As String * 25
    Dim ret As Long, UserName As String

    ' Get the user name minus any trailing spaces found in the name.
    ret = GetUserName(lpBuff, 25)
    UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)

 

[Mthales]

I've not tried this code but it might be of use to you

http://www.ilook.fsnet.co.uk/vb/vbuname.htm

A code module that provides three functions for getting the account name of the currently logged on user and the computer network name of the machine your application is running on.

M

 

[Swi]

It has been documented in a FAQ.

faq222-429

Swi