Ver Mensaje Individual
  #4 (permalink)  
Antiguo 13/05/2008, 08:22
guif
 
Fecha de Ingreso: julio-2005
Mensajes: 140
Antigüedad: 19 años, 9 meses
Puntos: 0
Re: VB: Usuario conectado en un PC

mediante esta funcion, puedo sacar el usuario logeado, cambio bastante la idea, pero, seria possible poder ejecutar esta funcion en otro PC??
La idea es que yo pueda poner un PC y me devuelva el usuario.

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

Private Sub Form_Load()
Dim sBuffer As String
Dim lSize As Long

sBuffer = Space$(255)
lSize = Len(sBuffer)
Call GetUserName(sBuffer, lSize)
If lSize > 0 Then
txtUserName.Text = Left$(sBuffer, lSize)
Else
txtUserName.Text = vbNullString
End If
End Sub