Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: WINNER123 en 13 Julio 2013, 04:52 am



Título: Obtener el usuario abierto en windows
Publicado por: WINNER123 en 13 Julio 2013, 04:52 am
Necesito obtener el nombre del usuario abierto en windows, pero hay que aclarar algo que he encontrado en muchos sitios y es que la API GetUserName Lib "advapi32.dll" no lo hace, lo que ahce esta API es que obtiene el nombre de usuario que abre la aplición y no necesariamente siempre es el mismo usuario que está abierto en windows, que es el que queremos obtener.

Por favor F1 F1 F1
Gracias de antemano


Título: Re: Obtener el usuario abierto en windows
Publicado por: Mad Antrax en 14 Julio 2013, 15:06 pm
Código:
MsgBox ENVIRON("USERNAME")


Título: Re: Obtener el usuario abierto en windows
Publicado por: WINNER123 en 18 Julio 2013, 02:45 am
Esto no me solusiona el problema, pruebalo para que veas. Una vez compilada la aplicación le damos click derecho/Ejecutar como.../(otro usuario que no sea el nuestro) y veras que sale el usuario que abrió la aplicación, no el abierto actualmente en windows, que es lo que estoy buscando


Título: Re: Obtener el usuario abierto en windows
Publicado por: tincopasan en 19 Julio 2013, 10:56 am
Supongo que estás hablando de vb.net
Probaste algo como esto?

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        MsgBox(Adquirir_usuario)
    End Sub
    Function Adquirir_usuario() As String
        If TypeOf My.User.CurrentPrincipal Is  _
        Security.Principal.WindowsPrincipal Then
            Dim parts() As String = Split(My.User.Name, "\")
            Dim usuario As String = parts(1)
            Return usuario
        Else
            Return My.User.Name
        End If
    End Function
End Class


Título: Re: Obtener el usuario abierto en windows
Publicado por: WINNER123 en 13 Agosto 2013, 05:47 am
No, no es en vb.net, el código que busco es en vb6. Gracias de antemano, perdonenme la demora y espero que me ayuden.