necesito obtener la dirección ip de la maquina local para registrar la conexión en una tabla histórica.

de antemano muchas gracias.
Saludos...

Reporté en Gambas-it.org una discusión, aparecida en la Mailing List oficial de gambas, sobre el tema que tu escribes:

http://www.gambas-it.org/smf/index.php?topic=3097.0

(idioma: en inglés))

Amigos mientras mas estudio este lenguaje mas me enamoro de gambas3 y de Lunix;;; qui les dejo la forma en que pude resolver con el apoyo de la referencia que me brindo el amigo.

Dim tmpNIF As String[]  
 Dim tmpActive, tmpString As String  
 Dim iterator As Integer  
 Dim tmpFile As File  
 Dim ipaddr As String
 Dim ipaddrt As String
 ipaddrt = ""
 ipaddr = ""
 'get the interface directories  
 tmpNIF = Dir("/sys/class/net")  
  
 'check each folder's oper file to see if the interface is up and running  
 For iterator = 0 To tmpNIF.Count - 1  
    tmpString = "/sys/class/net" &/ tmpNIF[iterator] &/ "operstate"  
  
  'check the operational state of each interface  
  
   tmpFile = Open tmpString For Input  
     While Not Eof(tmpFile)  
       Line Input #tmpFile, tmpActive  
     Wend  
     Close #tmpFile  
  
       'if it's reported as up then return it's name  
       If tmpActive = "up" Then
       Print tmpNIF[iterator]  
       Shell "ip -4 addr show " & tmpNIF[iterator] & " | grep inet" To ipaddr  
       Print ipaddr
       ipaddrt = ipaddrt & " | " & ipaddr
       Endif
      Next  
          
          Message(ipaddrt)

vuott escribió: [Ver mensaje]

Reporté en Gambas-it.org una discusión, aparecida en la Mailing List oficial de gambas, sobre el tema que tu escribes:

http://www.gambas-it.org/smf/index.php?topic=3097.0

(idioma: en inglés))

Jarrypalacios

Hace días te envié un mensaje privado con unas recomendaciones para publicar en el foro. ¿Leíste el mensaje?

Saludos

===================
Jesús Guardón

Por favor, usemos el corrector ortográfico antes de pulsar el botón "Enviar".

"uo ǝs ʇɐu pıɟıɔıן ɐdɹǝupǝɹ ɐ dɹoƃɹɐɯɐɹ, soןo ɥɐʎ bnǝ dɹodouǝɹsǝןo"