Very good
Thank you

>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