Is there a way for MS Access to grab the current Active Directory user?

Question :

Is there a way for MS Access to grab the current Active Directory user?,

Answer :

I’m working on a spec for a piece of software for my company and as part of the auditing system I think it would be neat if there was a way to grab the current Active Directory user.

Hopefully something like:

Dim strUser as String  strUser = ActiveDirectory.User()  MsgBox "Welcome back, " & strUser  

,

 – I have some code at work that will erm, work if this doesn’t…

Relevant quote:

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _                      (ByVal IpBuffer As String, nSize As Long) As Long  Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" _                      (ByVal lpBuffer As String, nSize As Long) As Long    Function ThisUserName() As String      Dim LngBufLen As Long      Dim strUser As String        strUser = String$(15, " ")      LngBufLen = 15        If GetUserName(strUser, LngBufLen) = 1 Then          ThisUserName = Left(strUser, LngBufLen - 1)      Else          ThisUserName = "Unknown"      End If  End Function    Function ThisComputerID() As String      Dim LngBufLen As Long      Dim strUser As String        strUser = String$(15, " ")      LngBufLen = 15        If GetComputerName(strUser, LngBufLen) = 1 Then          ThisComputerID = Left(strUser, LngBufLen)      Else          ThisComputerID = 0      End If  End Function  

That’s the answer Is there a way for MS Access to grab the current Active Directory user?, Hope this helps those looking for an answer. Then we suggest to do a search for the next question and find the answer only on our site.

Read More  JQuery.Validate failure in Opera

Disclaimer :

The answers provided above are only to be used to guide the learning process. The questions above are open-ended questions, meaning that many answers are not fixed as above. I hope this article can be useful, Thank you