Visual Basic - id de una 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

te mando la solución y de donde a salido:
Lo colocas en un Modulo:

'--------------------------------------------------------------
'Función para saber el usuario actual ( 8/Jul/97)
'
'(c)Guillermo Som, 1997
'--------------------------------------------------------------
Option Explicit

'API para obtener el usuario actual
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpbuffer As String, nSize As Long) As Long


Public Function UsuarioActual() As String
Dim sBuffer As String
Dim lSize As Long
Dim sUsuario As String

sBuffer = Space$(260)
lSize = Len(sBuffer)
Call GetUserName(sBuffer, lSize)
If lSize > 0 Then
sUsuario = Left$(sBuffer, lSize)
'Quitarle el CHR$(0) del final...
lSize = InStr(sUsuario, Chr$(0))
If lSize Then
sUsuario = Left$(sUsuario, lSize - 1)
End If
Else
sUsuario = ""
End If
UsuarioActual = sUsuario
End Function

Es posible obtener tambien el dominio en el cual esta la cuenta.