Windows ID & Username

[yaaara]

Hi Guys !!

Is there any way we can extract the Windows ID & Username associated with it using VBA?

For example, if my Windows ID is "kumar1" and I have a Username "yaaara" associated with it, what is the way to extract both? I am able to extract the ID but not the username..

Any Ideas please?

Thanks !

[puppydogbuddy]

If you can get the Windows ID, then see this thread about getting the username:

http://bytes.com/forum/thread191309.html

The code below credited to [e-mail], explains how to use a UDF in an ms access module to obtain the username from Windows 2000:

If not already done so, create a new module in the Modules section.

Paste this statement into the General Declarations section of the module:

Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
    "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Paste this code:

Function fWin2KUserName() As String
    Dim lngLength As Long, lngX As Long
    Dim strUserName As String
    strUserName = String$(254, 0)
    lngLength = 255
    lngX = apiGetUserName(strUserName, lngLength)
    If lngX <> 0 Then
        fWin2KUserName = Left$(strUserName, lngLength - 1)
    Else
        fWin2KUserName = "unknown"
    End If
End Function

You can run this function (fWin2KUserName) from anywhere within your application. The best way is to set some variable to be equal to the function:

    Dim strUser as String
    strUser = fWin2KUserName

[puppydogbuddy]

I just found out that there is an even easier way to get the username....use the Environ() function.


MsgBox "Network Name = " & Environ("username")
MsgBox "Computer Name = " & Environ("computername")

See this link for further details:

http://office.microsoft.com/en-us/ac...288311033.aspx

[risk32]

With this concept, is there a way to extract the email address from Outlook associated with the username?

[puppydogbuddy]

With this concept, is there a way to extract the email address from Outlook associated with the username?

I am not aware of any publically available code to extract the email address for a given username. There is code on the MSDN public forum to extract email addresses from an email folder at this link:
http://forums.microsoft.com/msdn/Sho...70080&SiteID=1

I am sure there are third party add-ins that extract email addresses based on the username.

[yaaara]

Thanks for your replies guys.. However, using both the methods as advised returns the same result i.e. the windows ID and not the Name associated with that ID.

Let me try to explain the problem again.

In a domain based environment (Office Network), one gets a user ID and their names are associated with the IDs

If I press Ctrl+Alt+Del after logging in, I get a screen that tells me <yaaara> is logged in as <Domain Name>\kumar1
Also I get the logon date and options to logoff etc.

Using the above mentioned methods, I get "kumar1" but I am looking to extract "yaaara"

I hope I was able to explain properly.

Thanks.

[puppydogbuddy]

You described everything clearly, but did not identify the enviromental variable name that you are looking for. Is it one of the environmental variables listed below? I have already tried with username and computername....and you said neither of them give you what you want.

List of common environment variables.

ALLUSERSPROFILE
APPDATA
AVENGINE
CLIENTNAME
CommonProgramFiles
COMPUTERNAME
ComSpec
FP_NO_HOST_CHECK
HOMEDRIVE
HOMEPATH
INCLUDE
INOCULAN
LIB
LOGONSERVER
NUMBER_OF_PROCESSORS
OS
Path
PATHEXT
PROCESSOR_ARCHITECTURE
PROCESSOR_IDENTIFIER
PROCESSOR_LEVEL
PROCESSOR_REVISION
ProgramFiles
SESSIONNAME
SystemDrive
SystemRoot
TEMP
TMP
USERDOMAIN
USERNAME
USERPROFILE
VS71COMNTOOLS
WecVersionForRosebud.FF0
windir

Courtesy of Rob Cooper, MS
Custom environment variables could also be created and vary by system. You can write a loop to enumerate them as shown below:
Code:
--------------------------------------------------------------------------------

Sub test()    
Dim i As Integer    
Dim stEnviron As String    
For i = 1 To 50        ' get the environment variable        
    stEnviron = Environ(i)        ' see if there is a variable set        
    If Len(stEnviron) > 0 Then            
          Debug.Print i, Environ(i)        
   Else            
          Exit For        
   End If    
Next
End Sub

[yaaara]

Unfortunately, none of these environment variables gives me the desired output.. several of these point towards the lan ID but none of these point to the associated name..

Not sure how else to describe the problem in more clarity :(

[puppydogbuddy]

Unfortunately, none of these environment variables gives me the desired output.. several of these point towards the lan ID but none of these point to the associated name..

Not sure how else to describe the problem in more clarity :(

I understand what you want, but I don't know what the variable name is called. In your first post you stated that the variable you were looking for was the username, but you say Environs("username") doesn't give it to you. So if it isn't username, what is the name of the variable that you are looking for?