Obtencion de Inicio de Sesion Windows en Visual basic 2013

[jcc2014]

Hola,

Muy Buenos Dias: Gracias por Aceptarme en Este Foro.. e vistos Temas Realmente interesantes que se han solucionado y los felicito. les cuento:

Soy un autodidacta con experiencia en Accces, pues ahora quiero implementar esas mini aplicaciones de manera Profesional a través de Visual basic 2013. El problema que tengo es el siguiente :

Dentro de un formulario, tengo un boton que al hacer click haría llamado al codigo :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        ' Dimension variables
        Dim lpBuff As String = 25
        Dim ret As Long, UserName As String

        ' Get the user name minus any trailing spaces found in the name.
        ret = GetUserName(lpBuff, 25)
        UserName = Strings.Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)

        ' Display the User Name
        MsgBox(UserName)
    End Sub

dependiente de la Siguiente Funcion:

Module ConoceUsario
    Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
       (ByVal lpBuffer As String, nSize As Long) As Long
End Module

pero este me arroja un error

No se controló System.AccessViolationException
HResult=-2147467261
Message=Intento de leer o escribir en la memoria protegida. A menudo, esto indica que hay otra memoria dañada.
Source=Modulo_Tarifados


Resaltando dentro del Editor la siguiente Linea:

ret = GetUserName(lpBuff, 25)

Ya no se que hacer, Vuestra Ayuda con sus sugerencias y comentarios..

de antemano muy agradecido.

[MCKSys Argentina]

Hola!

Revisa ésto.

Saludos!

PD: Con ésto habrías solucionado tu problema en 5 segs.