Visual Basic - Obtener nombre

Life is soft - evento anual de software empresarial
 
Vista:

Obtener nombre

Publicado por Moises CC (22 intervenciones) el 26/09/2001 20:27:19
hola,estoy trabajando en un ambiente de red con windows NT. MI pregunta y duda es, como le hago desde visual basic para obtener el nombre del usuario que tiene una sesion en la red, es decir, si yo me firme(introduje mi username y mi password) quiero que aparezca mi nombre en el programa para saludos y cosas de esas!!??
de antemano gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Obtener nombre

Publicado por Ramon Felix (13 intervenciones) el 27/09/2001 02:15:07
Pon esto en declaraciones generales de tu forma o en un modulo (si lo pones en un modulo borra la parte Private, no puedes tener una declaracion privada en un modulo):

Private Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" _
(ByVal lpName As String, ByVal lpUserName As String, _
lpnLength As Long) As Long

y agrega esta funcion a tu programa:

Function Getname() As String
Dim strUserName As String
strUserName = Space(255)
WNetGetUser "", strUserName, 255
Getname = Trim(strUserName)
MsgBox Getname
End Function

Ahora solo necesitas mandar llamar la funcion desde cualquier parte u objeto de tu programa:

Getname

Eso es todo, Saludos

RF
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar