Código de Visual para leer el usuario de red actual Política de privacidad de plasticaweb

Academia Plasticaweb

Temas de la semana Código de Visual para leer el usuario de red actual
¿Cómo llegar?: Código en Visual Basic llamadas a dll
Pasos :
Notas :

Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" _

(ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long

Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

 

Function NetUser() As String

Dim cbusername As Long, username As String

username = Space(256)

cbusername = Len(username)

If WNetGetUser(ByVal 0&, username, cbusername) = 0 Then

NetUser = Left(username, InStr(username, Chr(0)) - 1)

Else

    If GetUserName(username, cbusername) Then

NetUser = Left(username, InStr(username, Chr(0)) - 1)

    Else

   NetUser = ""

    End If

End If

End Function