Como verificar o IP da Internet

[clodoaldomonteiro]

Olá,

Queria saber se os amigos podem me dizer se tem alguma função no xHarbour que traga o IP da internet e outra que verifique se a máquina do cliente está conectada à internet.

[clodoaldomonteiro]

Para verificar o MAC da placa de rede fiz a seguinte função:

Código: Selecionar todos

//Funçao para retornar o MAC da placa de rede
Function GetMAC
   local mValor, cText
   mValor:='GetMac /fo CSV > c:\scp10h\mac.txt | more '
   
   Run (mValor)
   
   IF !File( 'c:\scp10h\mac.txt' )
      Return 'NIL'
   ENDIF

   cText := MemoRead( 'c:\scp10h\mac.txt' )

   Return MemoLine( cText, 80, 3, , .t. )