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