Hola que tal, te muestro el siguiente codigo, auxiliado por un API, para obtener el nombre de la PC y del Usuario:
// Declaras la siguiente funcion
FUNCTION long GetUserNameA(ref string UserName, ref ulong BufferLength) LIBRARY "ADVAPI32.DLL"
// Codigo
long ll_ret
string ls_ComputerName, ls_UserName
ulong BufferLength = 250
ls_ComputerName = Space(BufferLength)
ls_UserName = Space(BufferLength)
ll_ret = GetComputerNameA(ls_ComputerName, BufferLength)
ll_ret = GetuserNameA(ls_UserName, BufferLength)
Suerte!
