Como obtener el usuario actual de Windows?

Alfredo
23 de Julio del 2003
Hola saludos!!
Estoy haciendo un proyecto personal el cual requiere tomar el nombre del usuario actual de Windows, pero no se como obterno. Si me pueden ayudar se los agradesco.

Observador
23 de Julio del 2003
Bien... aqui esta un codigo de ejemplo... Crea un nuevo proyecto Exe estandar... Copea el siguiente codigo y pegaleo en la seccion (General) (Declaraciones del Form... y ejecutalo...

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

Private Sub Form_Load()
Dim UserNombre As String
'Pone caracteres nulos
UserNombre = String(100, Chr$(0))
'Obtiene el nombre de usuario
GetUserName UserNombre, 100
'Quita caracteres nulos
UserNombre = Left$(UserNombre, InStr(UserNombre, Chr$(0)) - 1)

'Muestra el nombre de usuario
MsgBox "Hola eres el usuario " + UserNombre
End Sub

Visita mi foro en http://programador.foro.st/

Max
23 de Julio del 2003
Y en .net como sería?, porque he probado y no me funciona.

Gracias