Retrieve Network UserName?

[jeffo]

How do you retrieve a username from a network?

[jeffo]

anyone got any ideas on this one???

[andreys]

'GET USER NAME
'MODULE:
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
 
'FORM:
Private Sub Form_Load()
Dim cn As String
Dim ls As Long
Dim res As Long
cn = String(1024, 0)
ls = 1024
res = GetUserName(cn, ls)
If res <> 0 Then
MsgBox "You are logged in as " & " " & Mid(cn, 1, InStr(cn, Chr(0)) - 1)
Else
MsgBox "You are not logged in"
End If
End
End Sub
 
 
 
'GET NET USER NAME
'MODULE:
Private Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" (ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long
 
'FORM:
Private Sub Form_Load()
Dim b As String * 128
WNetGetUser "", b, 128
MsgBox "Username = " & b
End
End Sub