Get NT Userid

[prao]

Hi All

How to get NT Userid and Password inside Access.

Thanks

 

[Hayley Baxter]

Create a module and paste in this code to get the current userid then put a text box on your form.

Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Function fOSUserName() As String
'Returns the network login name
Dim lngLen As Long, lngX As Long
Dim strUserName As String
strUserName = String$(254, 0)
lngLen = 255
lngX = apiGetUserName(strUserName, lngLen)
If lngX <> 0 Then
fOSUserName = Left$(strUserName, lngLen - 1)
ElsefOSUserName = ""
End If
End Function

Hay

 

[prao]

Hi Hay

Thanks for the reply. I have a question for you. Where do I need to use these lines of script from your program.

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

Thanks

 

[Hayley Baxter]

sample

Click on my profile to send me an email so I can get your email address and I'll send you a sample of this(I don't know if attachments can be sent via email using this forum)

Hay

 

[Hayley Baxter]

Sample

Here you go

 

[prao]

Hi Hay

Thank you very much for the reply. It is working fine.

 

[Jacob Mathai]

Thanks. I tried it and it worked.

 

[ghudson]

Has anybody got a working version for Access 2? I know, I have an oldie that needs some fixing but I need to know who (NT ID) is using this old db.

This is what I am using but it is bugging on the bolded line and the message is "Error in loading DLL."

Declare Function GetUserName Lib "AdvAPI32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function fOSUserName () As String
'On Error Resume Next

'Returns the network login name
Dim lngLen As Long, lngX As Long
Dim strUserName As String
strUserName = String$(254, 0)
lngLen = 255
lngX = GetUserName(strUserName, lngLen)
If lngX <> 0 Then
fOSUserName = Left$(strUserName, lngLen - 1)
ElsefOSUserName = ""
End If

End Function

Thanks in advance for your help!

 

[ghudson]

Found it @
http://easyweb.easynet.co.uk/~trevor/AccFAQ/

This will work for Access 2.0

Declare Function WNetGetUser Lib "user" (ByVal szUser As String, nBufferSize As Integer) As Integer
Function NetworkUserName () As String

Dim iStringLength As Integer
Dim sString As String * 255

iStringLength = Len(sString)
sString = String$(iStringLength, 0)

If WNetGetUser(sString, iStringLength) = 0 Then
NetworkUserName = Left$(sString, iStringLength)
Else
NetworkUserName = "Unknown"
End If

End Function