ThaiPBL.com

ประกาศExternal function ครับ ตามนี้
FUNCTION long GetComputerNameA(ref string ComputerName, ref ulong BufferLength)   LIBRARY "KERNEL32.DLL"
FUNCTION long GetUserNameA(ref string UserName, ref ulong BufferLength)   LIBRARY "ADVAPI32.DLL"


จากนั้น ก็ทำตามตัวอย่างครับ
long ll_ret
string ls_ComputerName, ls_UserName
ulong BufferLength = 250  // you may need to adjust this. see Note

ls_ComputerName = Space(BufferLength)
ls_UserName     = Space(BufferLength)

ll_ret = GetComputerNameA(ls_ComputerName, BufferLength)
ll_ret = GetuserNameA(ls_UserName, BufferLength)
messagebox('username=',ls_UserName)
messagebox('Computer name=',ls_ComputerName)

ผมลองบน PB8  os XPpro sp2  user ไม่ขึ้นครับ