Pablo Botella

#include "ot4xb.ch"
// ---------------------------------------------------------------------------
function Main()
? cPrintf( "Computer Name : [%s]", cGetComputerName() )
inkey(0)
return NIL
// ---------------------------------------------------------------------------
function cGetComputerName()
local cn := ChrR(0,256)
local cb := 255
@kernel32:GetComputerNameA(@cn,@cb)
return TrimZ(cn)
// ---------------------------------------------------------------------------

This message includes the following attachments: