How do you retrieve a username from a network?
Printable View
How do you retrieve a username from a network?
anyone got any ideas on this one???
VB Code:
'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