Pegar número do IP

Projeto [x]Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

Avatar do usuário
Poka
Usuário Nível 4
Usuário Nível 4
Mensagens: 563
Registrado em: 25 Out 2004 21:26
Localização: Leme/SP

Pegar número do IP

Mensagem por Poka »

Olá a todos.

Esta função pega o numero do IP
O problema que executando do terminal da erro. ele pega do terminal não do servidor.
Como fazer para do terminal pegar o ip do servidor.
pensei em gravar um arquivo para salvar, mas aí volto a fazer como fazia antes.

Código: Selecionar todos

func ip_pega
    local aHosts:={}
				local cName:=""  
				local cStation:=netName(.f.)
				inetInit()
				aHosts:=inetGetHosts(cStation)
				if aHosts == nil
				   ahosts:=inetGetAlias(cStation)
				endif
				if empty(aHosts)
				   aHosts:=inetGetAlias(cStation)
				endif
				inetCleanup()
retu aHosts[1]							   
Poka
Responder