Visual Basic para Aplicaciones - Obtener nombre de la estación de trabajo o usuario

Hola a tod@s:
Antetodo muchas gracias por dedicar un poco de vuestro tiempo a leer esta consulta.

El problema es que necesito una función de Vb para aplicaciones que me devuelva el nombre de la estación de trabajo desde la que se ejecuta la función.
Y tb necesito otra función que me devuelva el usuario de un dominio que ha iniciado la sesión en un determinado ordenador.

Ambas funciones serán para Windows - NT
Muchas gracias

Sólo coloca esto en un módulo y llama las funciones:
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Declare Function GetComputerName Lib "kernel32.dll" Alias
"GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Public Function NombreComputadora() As String
Dim compname As String, retval As Long
compname = Space(255)
retval = GetComputerName(compname, 255)
NombreComputadora = Left(compname, InStr(compname, vbNullChar) - 1)
End Function

Public Function NombreUsuario() As String
Dim username As String, slength As Long, retval As Long

username = Space(255)
slength = 255
retval = GetUserName(username, slength)
NombreUsuario = Left(username, slength - 1)
End Function

Si funciona el codigo