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 endfuncc.x.