• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 848
  • Last Modified:

Is there an alternative method to using Environ("UserName") with Microsoft access

I have been using the  Environ("UserName") funcion and it works great.  It retuns the username of the current user logged into the system and I can use that name to perform different tasks.

Problem:  I built an application for an organization that categorizes its users into different security classes.  Power Users, laptop users, and desktop users.  

The application works fine for the Power users and laptop users, but falls into error when desktop users are using the application.

What I found is that the deskstop users are restricted from accessing their C: drive and desktop and can only access the shared folders on the network and applications installed on the PC.

Is there another funciton or method I can use to capture the user name of a user with desktop privilages?
0
RDLFC
Asked:
RDLFC
  • 6
  • 4
  • 2
1 Solution
 
RemRemRemCommented:
This might do the trick:

Public Function funWinUser() As String
    ' Comments  : Retrieves the name of the user logged into Windows
    
    On Error GoTo gtErr
    '
    Dim lngLen As Long
    Dim strBuf As String
    
    Const MaxUserName As Integer = 255
    
    strBuf = Space$(MaxUserName)
    
    lngLen = MaxUserName
    
    If CBool(TSB_API_GetUserName(strBuf, lngLen)) Then
        funWinUser = Left(strBuf, lngLen - 1)
    Else
        funWinUser = ""
    End If
    
gtExit:
    Exit Function
    
gtErr:
    MsgBox Err
    GoTo gtExit
    
End Function

Open in new window


-Rachel
0
 
RemRemRemCommented:
Whups, you'll need the declaration:

' Objects for GetUserName_TSB()
Declare Function TSB_API_GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Open in new window

0
 
JezWaltersCommented:
What exactly do you mean by "desktop privileges"?
0
Free Backup Tool for VMware and Hyper-V

Restore full virtual machine or individual guest files from 19 common file systems directly from the backup file. Schedule VM backups with PowerShell scripts. Set desired time, lean back and let the script to notify you via email upon completion.  

 
RDLFCAuthor Commented:
RemRemRem i will check out your solution later.

JezWalters by desktop privileges I mean the user is restricted because of network security reasons from accessing their C: drive.
0
 
JezWaltersCommented:
No offense to RemRemRem, but I reckon you'll find her solution returns the same results as your Environ() approach.

Have you thought of establishing desktop privileges by trying to write a temporary file to the C: drive instead?
0
 
RDLFCAuthor Commented:
No I have to work around the company's security envirionment.  I will not be able to alter any user privialges.  

0
 
JezWaltersCommented:
I think you're misunderstanding my suggestion - you can determine the user's privileges by attempting to write a file to the C: drive.

If the attempt fails the user DOESN'T have desktop privileges.  If the attempt succeeds, the user DOES have desktop privileges and you can then delete the temporary file.
0
 
RDLFCAuthor Commented:
okay.  I can use that.  Do you have code for me to do that via VBA?
0
 
JezWaltersCommented:
... please hold the line ...!  :-)
0
 
JezWaltersCommented:
OK, how about something like this?
Option Explicit
Option Compare Database

Public Function DesktopPrivileges() As Boolean

    ' Declare constants
    Const TEST_FILE As String = "C:\Temp\TestFile.txt"

    ' Declare variables
    Dim intTestFile As Integer

    ' Open test file
    intTestFile = FreeFile
    On Error GoTo OpenError:
    Open TEST_FILE For Output As intTestFile
    DesktopPrivileges = True

    ' Close & delete test file
    Close intTestFile
    Kill TEST_FILE

    ' Exit
    Exit Function

' Handle open error
OpenError:

    DesktopPrivileges = False

End Function

Open in new window

0
 
RDLFCAuthor Commented:
I can use your solution to accomplish what I am interested in doing.
0
 
JezWaltersCommented:
Only a 'B' grade?  What didn't work?
0

Featured Post

NFR key for Veeam Agent for Linux

Veeam is happy to provide a free NFR license for one year.  It allows for the non‑production use and valid for five workstations and two servers. Veeam Agent for Linux is a simple backup tool for your Linux installations, both on‑premises and in the public cloud.

  • 6
  • 4
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now