Object reference not set to an instance of an object.

[Monimo]

Hola que tal no utilizo Visual Basic desde la secu , y ahora lo estoy retomando por el trabajo.. asi que me doy de topes seguido tengo el siguiente código para saber el usuario que se ha conectado

Código:

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

    Sub user()
        'Obtener nombre de usuario
        Dim sBuffer As String
        Dim nSize As Long
        Dim Ret As Long
        Dim retun As String
        sBuffer = Space(255)
        nSize = Len(sBuffer)
        Ret = GetUserName(sBuffer, nSize)
        retun = (Left$(sBuffer, Len(sBuffer)))
        b.Label1.Text = retun


    End Sub

   

        


End Module

pero me marca un erro en esta línea : Ret = GetUserName(sBuffer, nSize)

error: Additional information: Object reference not set to an instance of an object.

la verdad no tengo ni idea de que pueda ser

[RootK]

Intentalo de ésta forma (desde una consola app)

Código:

Module Module1

    Declare Function GetUserName Lib "advapi32.dll" Alias _
       "GetUserNameA" (ByVal lpBuffer As String, _
       ByRef nSize As Integer) As Integer

    Public Function GetUserName() As String
        Dim iReturn As Integer
        Dim userName As String
        userName = New String(CChar(" "), 50)
        iReturn = GetUserName(userName, 50)
        GetUserName = userName.Substring(0, userName.IndexOf(Chr(0)))
    End Function

    Sub Main()

        Console.Write(GetUserName())
        Console.Read()

    End Sub

End Module

[RootK]

aunque otra forma para uno usar la API puede ser

Código:

Sub Main()

        Console.Write(System.Security.Principal.WindowsIdentity.GetCurrent().Name)
        Console.Read()

    End Sub