FUNCTION long GetComputerNameA (REF string lpBuffer, ref long nSize) LIBRARY
"kernel32.dll"

String ls_compname
long   ll_size

ll_size = 255
ls_compname = Space(ll_size)
GetComputerNameA(ls_compname, ll_size)
messagebox('',ls_compname)