| 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 |