Login | Register   
RSS Feed
Download our iPhone app
Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: VB4/32,VB5,VB6
Expertise: Intermediate
Jan 20, 2001

NetworkUserName - The user name used to establish a network connection

Private Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" (ByVal _
    lpszLocalName As String, ByVal lpszUserName As String, _
    lpcchBuffer As Long) As Long

' return the current default user name or
' the user name used to establish a connection

Function NetworkUserName() As String
    Dim buffer As String
    buffer = Space$(256)
    ' if the WNetGetUser API returns 0, then
    ' the user name is in buffer
    If WNetGetUser(vbNullString, buffer, Len(buffer)) = 0 Then
        NetworkUserName = Left$(buffer, InStr(buffer, vbNullChar) - 1)
    End If
End Function
Francesco Balena
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.