PRINT GetMachineName$()

FUNCTION GetMachineName$ ()
  DIM A$
  DIM b AS DWORD
  b = 256
  GetComputerName(A$, &b)
  FUNCTION = A$
END FUNCTION

Result:

DEUSEX_MACHINA