XProfan

cls
print getComputerAndUserName()
waitinput
end

proc getComputerAndUserName

    var sz&=256
    var m&=external("kernel32.dll","GlobalAlloc",64,sz&)

    ifnot external("secur32.dll","GetUserNameExA",2,m&,addr(sz&))

        external("kernel32.dll","GlobalFree",m&)
        return ""

    endif

    var s$=char$(m&,0,sz&)
    external("kernel32.dll","GlobalFree",m&)
    return s$

ENDPROC

cls
imprimir getComputerAndUserName()
waitinput
end

proc getComputerAndUserName

    long 	sz=256,
    m=globalAlloc(64,sz)

    ifnot external("secur32.dll","GetUserNameExA",2,m,addr(sz))

        globalFree(m)
        volver ""

    endif

    cadena s=char$(m,0,sz)
    globalFree(m)
    volver s

ENDPROC

cls
imprimir getComputerAndUserName()
waitinput
end

nproc getComputerAndUserName

    cadena 	sz="xFFzzzz",
    sm=space$(256)
    long 	dll=loadLibrary("secur32.dll")
    setlong(sz,1,call(getProcAddress(dll,"GetUserNameExA"),2,sm,sz))
    freeLibrary(dll)
    casenot long(sz,1) : volver ""
    volver char$(sm,0,ord(sz))

ENDPROC