Hello I use these routines

function Computer_Name
	local lcComputer, lnSize
	lcComputer = space(80)
	lnSize = 80
	declare integer GetComputerName in WIN32API string @cComputerName, integer @nSize
	= GetComputerName(@lcComputer, @lnSize)
	if lnSize < 2
		lcComputer = ""
	else
		lcComputer = substr(lcComputer, 1, lnSize)
	endif
	return lcComputer
endfunc

function Direccion_IP
	IPSocket = createobject("MSWinsock.Winsock")
	if type('IPSocket') = 'O'
		return IPSocket.LocalIP
	else
		* messagebox("Winsock no está instalado!")
		return ""
	endif
endfunc

c.x.

>Hi
>I want to get the full computer name of the current computer (desktop\my computer\properties\computer name) and/or the current internal ip address.
>Help please