Cita:
Iniciado por guif 
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
Si tienes tu programa en la otra máquina, es fácil, con Sockets puedes pasarle el nombre de usuario, pero si no hay un programa que te conteste, no sé cómo sería.