home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_1 / NET_ID / NETID.BAS next >
Encoding:
BASIC Source File  |  1993-12-06  |  623 b   |  23 lines
  1. Declare Function WNetGetUser Lib "USER.EXE" (ByVal szUser$, 
  2. lpnBufferSize%) As
  3. Integer
  4.  
  5. Function netuser () As String
  6.    Dim User As String * 255
  7.    Dim BufSize As Integer
  8.    Dim status As Integer
  9.    netuser = "Not Logged In"
  10.    On Error Resume Next
  11.    Err = 0
  12.    BufSize = 255
  13.    status = WNetGetUser(User, BufSize)
  14.    If Err = 0 And status = 0 Then
  15.       netuser = Left$(User, InStr(User, Chr(0)) - 1)
  16.    End If End Function
  17.  
  18. Joe Healy Sarasota, FL 73750,3634
  19. (Courtesy of a previous tip from Rich Klein 70511,3032)
  20.  
  21. Rich Klein 70511,3032 
  22. (Courtesy of a previous tip from another forum junkie...)
  23.