Visual Basic - UserName en VB

Life is soft - evento anual de software empresarial
 
Vista:

UserName en VB

Publicado por Enrique Monroy (1 intervención) el 29/08/2000 00:00:00
Hola de nuevo, aqui tengo otra pregunta, a ver quien me puede ayudar... Necesito identificar en VB el username de que se logeo en una estación de trabajo con Windows95 o Windows98 a un servidor de Windows NT, ¿Que puedo hacer? Actualmente con SQL Server estoy obteniendo el nombre de la máquina con la instruccion Host_NAME(), pero necesito llegar al nombre del usuario tambien.

Espero y me puedan ayudar. 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:UserName en VB

Publicado por hernux (37 intervenciones) el 29/08/2000 00:00:00
Aca tenes el codigo, lo probe en win98:

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

Private Function GetName() As String
Dim sUserName As String, i As Long

sUserName = String(255, 0)

i = GetUserName(sUserName, 255)

If i > 0 Then
sUserName = Left(sUserName, InStr(1, sUserName, Chr$(0)))
Text1 = sUserName
End If
End Function
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