Our system is part of a Novel LAN... Is there any way to get the Novel LogonID from the system(a function like Now())? I thought at one time that I found a list of Windows variables that included things like windows version, and the network logonid...
We use this function in an Access 2.0 app running on a novell
network to get the user id.
Declare Function wu_WNetGetUser% Lib "USER.EXE" Alias "WNetGetUser" (ByVal szUser$, lpnBufferSize%)
Function NetworkUserID () As String
Dim szUser As String * 255
Dim lpnBufferSize As Integer
Dim status As Integer
lpnBufferSize = 255
status = wu_WNetGetUser(szUser, lpnBufferSize)
If (status = 3) Then
NetworkUserID = "WNetGetUser Failed"
Else
'Return up to first Null.
NetworkUserID = Left$(szUser, InStr(szUser, Chr(0)) - 1)
End If
End Function
0
ronallardAuthor Commented:
Works great! Thanks alot...
0
Question has a verified solution.
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
network to get the user id.
Declare Function wu_WNetGetUser% Lib "USER.EXE" Alias "WNetGetUser" (ByVal szUser$, lpnBufferSize%)
Function NetworkUserID () As String
Dim szUser As String * 255
Dim lpnBufferSize As Integer
Dim status As Integer
lpnBufferSize = 255
status = wu_WNetGetUser(szUser, lpnBufferSize)
If (status = 3) Then
NetworkUserID = "WNetGetUser Failed"
Else
'Return up to first Null.
NetworkUserID = Left$(szUser, InStr(szUser, Chr(0)) - 1)
End If
End Function