Go Premium for a chance to win a PS4. Enter to Win

x
?
Solved

Who Am I????

Posted on 1998-10-07
2
Medium Priority
?
260 Views
Last Modified: 2008-02-20
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...
0
Comment
Question by:ronallard
2 Comments
 
LVL 1

Accepted Solution

by:
DennisH earned 200 total points
ID: 1964666
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
 

Author Comment

by:ronallard
ID: 1964667
Works great! Thanks alot...
0

Featured Post

VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Access developers frequently have requirements to interact with Excel (import from or output to) in their applications.  You might be able to accomplish this with the TransferSpreadsheet and OutputTo methods, but in this series of articles I will di…
This article describes a method of delivering Word templates for use in merging Access data to Word documents, that requires no computer knowledge on the part of the recipient -- the templates are saved in table fields, and are extracted and install…
Learn how to number pages in an Access report over each group. Activate two pass printing by referencing the pages property: Add code to the Page Footers OnFormat event to capture the pages as there occur for each group. Use the pages property to …
Basics of query design. Shows you how to construct a simple query by adding tables, perform joins, defining output columns, perform sorting, and apply criteria.

876 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question