Visual Basic - Nombre de usuario completo

Buenas , con getusername obtenemos el nombre de usuario que hace login , pero como podemos tener el nombre completo del usuario ?.
Gracias.

Con la API GetUserNameEx, os paso un ejemplo:

Private Declare Function GetUserNameEx Lib "secur32.dll" Alias "GetUserNameExA" (ByVal NameFormat As NOMBRES, ByVal lpNameBuffer As String, ByRef nSize As Long) As Long

Private Enum NOMBRES
NameSamCompatible = 2
End Enum

Private Sub Command1_Click()
Dim s As String, iLen As Long
s = String(256, 0)
iLen = Len(s)
If GetUserNameEx(2, s, iLen) <> 0 Then MsgBox Left$(s, iLen)
End Sub

OJO! Sólo `para Windows2000 o versiones superiores.

Devuelve el usuario y el dominio , lo que necesito es el nombre completo del usuario , ejemplo : usuario "jperez" nombre completo "javier perez",gracias.

Private Declare Function GetEnvironmentVariable Lib "kernel32" Alias "GetEnvironmentVariableA" (ByVal lpName As String, ByVal lpBuffer As String, ByVal nSize As Long) As Long

Private Sub Command1_Click()
Dim s As String
s = String(255, 0)
GetEnvironmentVariable "USERNAME", s, Len(s)
If InStr(1, s, Chr$(0)) > 0 Then s = Left$(s, InStr(1, s, Chr$(0)) - 1)
MsgBox s
End Sub