Foros del Web

Foros del Web (http://www.forosdelweb.com/)
-   Visual Basic clásico (http://www.forosdelweb.com/f69/)
-   -   VB: Usuario conectado en un PC (http://www.forosdelweb.com/f69/vb-usuario-conectado-pc-584700/)

guif 09/05/2008 11:09

VB: Usuario conectado en un PC
 
Como puedo saber el usuario que hay conectado en un PC?
La idea que tengo, es entrar a \\equipo\c$\Documents and Settings\ y ordenar las carpetas por fechas y escoger, logicamente, la mas reciente, pero... como hacer esto??

David 09/05/2008 11:16

Re: VB: Usuario conectado en un PC
 
Cita:

Iniciado por guif (Mensaje 2397392)
Como puedo saber el usuario que hay conectado en un PC?
La idea que tengo, es entrar a \\equipo\c$\Documents and Settings\ y ordenar las carpetas por fechas y escoger, logicamente, la mas reciente, pero... como hacer esto??

No entiendo, ¿qué tiene que ver el hecho de saber qué usuario está conectado a un PC y ordenar las carpetas por fecha?. Lo de ordenar por fecha puedes hacer con FileSystemObject...

guif 13/05/2008 03:33

Re: VB: Usuario conectado en un PC
 
Lo que necesito es saber el usuario que hay conectado en ese momento en un PC.
Algun script o algun trozo de codigo que me diga el ultimo que ha entrado.

guif 13/05/2008 08:22

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

David 13/05/2008 08:24

Re: VB: Usuario conectado en un PC
 
Cita:

Iniciado por guif (Mensaje 2402193)
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.

guif 14/05/2008 04:20

Re: VB: Usuario conectado en un PC
 
he visto este enlace, donde te permite extraer informacion de un PC:

http://vbnet.mvps.org/index.html?cod...sergetinfo.htm

pero... como puedo hacer para especificar un PC del dominio para que me devuelva el usuario que esta conectado?


La zona horaria es GMT -6. Ahora son las 20:45.

Desarrollado por vBulletin® Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.