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

ENLACES DE INTERES

http://www.aulasalquiler.centroaudiovisualsl.es/ Aulas en alquiler en el centro de Alicante.

http://grabadoconacidos.com/ Artista graba con ácidos tela de denim negra. Cuadros y moda

http://www.pequetic.plasticaweb.com/ Juegos educativos gratis para niños de infantil.

http://ipuntohome.com/ Home staging en Alicante, para vender o alquilar mejor tu inmueble.

http://www.plasticaweb.com/ Servicios de comunicación visual en diseño Web e identidad corporativa.