IP, Mac Address, Name desde mi modem

[karinha]

Dear Francisco,

Code: Select all  Expand view

Configura‡Æo de IP do Windows

   Nome do host. . . . . . . . . . . . . . . . : pc-PC
   Sufixo DNS prim rio . . . . . . . . . . . . :
   Tipo de n¢. . . . . . . . . . . . . . . . . : h¡brido
   Roteamento de IP ativado. . . . . . . . . . : nÆo
   Proxy WINS ativado. . . . . . . . . . . . . : nÆo

Adaptador de Rede sem Fio ConexÆo de Rede sem Fio:

   Sufixo DNS espec¡fico de conexÆo. . . . . . :
   Descri‡Æo . . . . . . . . . . . . . . . . . : TP-Link Wireless Nano USB Adapter
   Endere‡o F¡sico . . . . . . . . . . . . . . : D0-37-45-E6-A5-8E
   DHCP Habilitado . . . . . . . . . . . . . . : Sim
   Configura‡Æo Autom tica Habilitada. . . . . : Sim
   Endere‡o IPv6 . . . . . . . . . . . . . . . : 2804:1b3:a782:1c7e:f40b:d3ae:dfe8:cef7(Preferencial)
   Endere‡o IPv6 Tempor rio. . . . . . . . . . : 2804:1b3:a782:1c7e:d027:2fd4:78b7:f76c(Preferencial)
   Endere‡o IPv6 de link local . . . . . . . . : fe80::f40b:d3ae:dfe8:cef7%13(Preferencial)
   Endere‡o IPv4. . . . . . . .  . . . . . . . : 192.168.15.56(Preferencial)
   M scara de Sub-rede . . . . . . . . . . . . : 255.255.255.0
   ConcessÆo Obtida. . . . . . . . . . . . . . : quarta-feira, 17 de julho de 2024 10:17:51
   ConcessÆo Expira. . . . . . . . . . . . . . : quarta-feira, 17 de julho de 2024 16:51:02
   Gateway PadrÆo. . . . . . . . . . . . . . . : fe80::860b:bbff:fe4d:5020%13
                                                 192.168.15.1
   Servidor DHCP . . . . . . . . . . . . . . . : 192.168.15.1
   IAID de DHCPv6. . . . . . . . . . . . . . . : 332412741
   DUID de Cliente DHCPv6. . . . . . . . . . . : 00-01-00-01-2B-98-05-DD-00-1A-92-EE-A2-73
   Servidores DNS. . . . . . . . . . . . . . . : fe80::860b:bbff:fe4d:5020%13
                                                 192.168.15.1
   Servidor WINS Prim rio. . . . . . . . . . . : 192.168.15.1
   NetBIOS em Tcpip. . . . . . . . . . . . . . : Habilitado

Adaptador Ethernet ConexÆo local:

   Estado da m¡dia. . . . . . . . . . . . . .  : m¡dia desconectada
   Sufixo DNS espec¡fico de conexÆo. . . . . . :
   Descri‡Æo . . . . . . . . . . . . . . . . . : Realtek PCI GbE Family Controller
   Endere‡o F¡sico . . . . . . . . . . . . . . : 00-1A-92-EE-A2-73
   DHCP Habilitado . . . . . . . . . . . . . . : Sim
   Configura‡Æo Autom tica Habilitada. . . . . : Sim

Adaptador de t£nel ConexÆo Local*:

   Estado da m¡dia. . . . . . . . . . . . . .  : m¡dia desconectada
   Sufixo DNS espec¡fico de conexÆo. . . . . . :
   Descri‡Æo . . . . . . . . . . . . . . . . . : Adaptador de T£nel Teredo da Microsoft
   Endere‡o F¡sico . . . . . . . . . . . . . . : 00-00-00-00-00-00-00-E0
   DHCP Habilitado . . . . . . . . . . . . . . : NÆo
   Configura‡Æo Autom tica Habilitada. . . . . : Sim

Adaptador de t£nel isatap.{77B06ADB-64F1-415B-8DF1-37AAE9E8C02C}:

   Estado da m¡dia. . . . . . . . . . . . . .  : m¡dia desconectada
   Sufixo DNS espec¡fico de conexÆo. . . . . . :
   Descri‡Æo . . . . . . . . . . . . . . . . . : Adaptador do Microsoft ISATAP
   Endere‡o F¡sico . . . . . . . . . . . . . . : 00-00-00-00-00-00-00-E0
   DHCP Habilitado . . . . . . . . . . . . . . : NÆo
   Configura‡Æo Autom tica Habilitada. . . . . : Sim

Adaptador de t£nel ConexÆo Local* 15:

   Estado da m¡dia. . . . . . . . . . . . . .  : m¡dia desconectada
   Sufixo DNS espec¡fico de conexÆo. . . . . . :
   Descri‡Æo . . . . . . . . . . . . . . . . . : Adaptador do Microsoft ISATAP #2
   Endere‡o F¡sico . . . . . . . . . . . . . . : 00-00-00-00-00-00-00-E0
   DHCP Habilitado . . . . . . . . . . . . . . : NÆo
   Configura‡Æo Autom tica Habilitada. . . . . : Sim

Adaptador de t£nel ConexÆo Local* 14:

   Estado da m¡dia. . . . . . . . . . . . . .  : m¡dia desconectada
   Sufixo DNS espec¡fico de conexÆo. . . . . . :
   Descri‡Æo . . . . . . . . . . . . . . . . . : Adaptador do Microsoft ISATAP #3
   Endere‡o F¡sico . . . . . . . . . . . . . . : 00-00-00-00-00-00-00-E0
   DHCP Habilitado . . . . . . . . . . . . . . : NÆo
   Configura‡Æo Autom tica Habilitada. . . . . : Sim

Adaptador de t£nel ConexÆo Local* 16:

   Estado da m¡dia. . . . . . . . . . . . . .  : m¡dia desconectada
   Sufixo DNS espec¡fico de conexÆo. . . . . . :
   Descri‡Æo . . . . . . . . . . . . . . . . . : Adaptador do Microsoft ISATAP #4
   Endere‡o F¡sico . . . . . . . . . . . . . . : 00-00-00-00-00-00-00-E0
   DHCP Habilitado . . . . . . . . . . . . . . : NÆo
   Configura‡Æo Autom tica Habilitada. . . . . : Sim

Adaptador de t£nel ConexÆo Local* 18:

   Estado da m¡dia. . . . . . . . . . . . . .  : m¡dia desconectada
   Sufixo DNS espec¡fico de conexÆo. . . . . . :
   Descri‡Æo . . . . . . . . . . . . . . . . . : Adaptador do Microsoft ISATAP #5
   Endere‡o F¡sico . . . . . . . . . . . . . . : 00-00-00-00-00-00-00-E0
   DHCP Habilitado . . . . . . . . . . . . . . : NÆo
   Configura‡Æo Autom tica Habilitada. . . . . : Sim

Adaptador de t£nel Reusable ISATAP Interface {435523CA-A477-4BDE-9FDC-3FA9001E8272}:

   Estado da m¡dia. . . . . . . . . . . . . .  : m¡dia desconectada
   Sufixo DNS espec¡fico de conexÆo. . . . . . :
   Descri‡Æo . . . . . . . . . . . . . . . . . : Adaptador do Microsoft ISATAP #7
   Endere‡o F¡sico . . . . . . . . . . . . . . : 00-00-00-00-00-00-00-E0
   DHCP Habilitado . . . . . . . . . . . . . . : NÆo
   Configura‡Æo Autom tica Habilitada. . . . . : Sim

Adaptador de t£nel ConexÆo Local* 24:

   Estado da m¡dia. . . . . . . . . . . . . .  : m¡dia desconectada
   Sufixo DNS espec¡fico de conexÆo. . . . . . :
   Descri‡Æo . . . . . . . . . . . . . . . . . : Adaptador do Microsoft ISATAP #8
   Endere‡o F¡sico . . . . . . . . . . . . . . : 00-00-00-00-00-00-00-E0
   DHCP Habilitado . . . . . . . . . . . . . . : NÆo
   Configura‡Æo Autom tica Habilitada. . . . . : Sim
 

Regards, saludos.

[sysctrl2]

En mi caso funcionan las 3 opciones

[FranciscoA]

Mi estimado Joao:
Aqui lo tienes. En tu fichero EqHost.txt varía la longitud de algunos conceptos. (por el idioma)

Code: Select all  Expand view

 elseif nF = 2
    WAITRUN( "cmd.exe /c  ipconfig /all > " +(cFile), .f.)   //WaitRun("Notepad.exe " +(cFile))
    aTexto := HB_ATokens(MemoRead((cFile)), CRLF)
    For n := 1 to len(aTexto)  //Saber como esta conectado, WiFi o Ethernet
      if Substr(Alltrim(aTexto[n]),1,12) == "Nome do host"   ; cHost := Alltrim(Substr(aTexto[n], RAT(":",aTexto[n]) +1, 20))
      elseif alltrim(aTexto[n])          == "Adaptador de Rede sem Fio ConexÆo de Rede sem Fio:" ; cCon  := "Ethernet" ; nLin:=n
      //elseif alltrim(aTexto[n])          == "Adaptador de Rede:" ; cCon  := "Wifi" ; nLin:=n     //Aqui debes poner el concepto cuando lo corres via Wi-Fi
      endif
    Next
    For n := nLin to len(aTexto)
      if Substr(Alltrim(aTexto[n]),1,9)      == "Descri‡Æo"       ; cFabri:= Alltrim(Substr(aTexto[n], RAT(":",aTexto[n]) +1, 50))
      elseif Substr(Alltrim(aTexto[n]),1,15) == "Endere‡o F¡sico" ; cMac  := Alltrim(Substr(aTexto[n], RAT(":",aTexto[n]) +1, 20))
      elseif Substr(Alltrim(aTexto[n]),1,13) == "Endere‡o IPv4"   ; cIP   := Substr(aTexto[n],49, RAT("(Preferencial)",aTexto[n])-49)
      elseif Substr(alltrim(aTexto[n]),1,13) == "Servidor DHCP"   ; cDHCP := Alltrim(Substr(aTexto[n], RAT(":",aTexto[n]) +1, 20)) ; Exit
      endif
    Next
    aadd(aEquipo, {cHost,cIP,cMac,cDHCP,cFabri})
    *Ferase(cFile)
 

[FranciscoA]

Cesar, gracias por confirmarlo.

[karinha]

Dear Francisco, ahora esta PERFECTO!

Code: Select all  Expand view

// C:\FWH\SAMPLES\IPMAC2.PRG

#include "FiveWin.ch"

FUNCTION Main()

   LOCAL nF := 2

   EquipoHost( nF )

RETURN NIL

FUNCTION EquipoHost( nF )

   LOCAL aEquipo := {}, aInfo
   // LOCAL cDir := TrueName( ".\" ), cFile := cDir + "\EqHost.txt", cTexto, aTexto, n, nLin := 0
   LOCAL cDir := TrueName( ".\" ), cFile := cDir + "EqHost.txt", cTexto, aTexto, n, nLin := 0
   LOCAL cHost := "", cIP := "", cMac := "", cDHCP := "", cFabri := "", cCon := "", cLinea, nLineas

   IF FILE( cFile )

      FErase( ( cFile ) )

   ENDIF

   IF nF = 1

      aInfo := GetNetCardInfo()   // XBROWSER aInfo

      AEval( aInfo, {| a, n | IF( .NOT. Empty( aInfo[ n, 9 ] ), AAdd( aEquipo, { NetName(), aInfo[ n, 7 ], aInfo[ n, 3 ], aInfo[ n, 9 ], aInfo[ n, 2 ] } ), ) } )

   ELSEIF nF = 2

      /* // For Spanish
      WAITRUN( "cmd.exe /c  ipconfig /all > " + ( cFile ), .F. )   // WaitRun("Notepad.exe " +(cFile))

      aTexto := hb_ATokens( MemoRead( ( cFile ) ), CRLF )

      FOR n := 1 TO Len( aTexto )  // Saber como esta conectado, WiFi o Ethernet

         IF SubStr( AllTrim( aTexto[ n ] ), 1, 14 ) == "Nombre de host"                      ; cHost := AllTrim( SubStr( aTexto[ n ], RAt( ":", aTexto[ n ] ) + 1, 20 ) )
         ELSEIF AllTrim( aTexto[ n ] )          == "Adaptador de Ethernet Ethernet:"     ; cCon  := "Ethernet" ; nLin := n
         ELSEIF AllTrim( aTexto[ n ] )          == "Adaptador de LAN inal mbrica Wi-Fi:" ; cCon  := "Wifi" ; nLin := n
         ENDIF

      NEXT

      FOR n := nLin TO Len( aTexto )

         // Dear Francisco, error aqui:

         // Error description: Error BASE/1132  Bound error: array access
         IF SubStr( AllTrim( aTexto[ n ] ), 1, 11 )     == "Descripci¢n"       ; cFabri := AllTrim( SubStr( aTexto[ n ], RAt( ":", aTexto[ n ] ) + 1, 50 ) )
         ELSEIF SubStr( AllTrim( aTexto[ n ] ), 1, 16 ) == "Direcci¢n f¡sica"  ; cMac  := AllTrim( SubStr( aTexto[ n ], RAt( ":", aTexto[ n ] ) + 1, 20 ) )
         ELSEIF SubStr( AllTrim( aTexto[ n ] ), 1, 14 ) == "Direcci¢n IPv4"    ; cIP   := SubStr( aTexto[ n ], 48, RAt( "(Preferido)", aTexto[ n ] ) - 48 )
         ELSEIF SubStr( AllTrim( aTexto[ n ] ), 1, 13 ) == "Servidor DHCP"     ; cDHCP := AllTrim( SubStr( aTexto[ n ], RAt( ":", aTexto[ n ] ) + 1, 20 ) ) ; EXIT
         ENDIF

      NEXT

      AAdd( aEquipo, { cHost, cIP, cMac, cDHCP, cFabri } )

      // FErase( cFile )
      */

      // For Portuguese:
      WAITRUN( "cmd.exe /c  ipconfig /all > " + ( cFile ), .F. )   // WaitRun("Notepad.exe " +(cFile))

      aTexto := hb_ATokens( MemoRead( ( cFile ) ), CRLF )

      FOR n := 1 TO Len( aTexto )  // Saber como esta conectado, WiFi o Ethernet

         SysRefresh()

         IF SubStr( AllTrim( aTexto[ n ] ), 1, 12 ) == "Nome do host"   ; cHost := AllTrim( SubStr( aTexto[ n ], RAt( ":", aTexto[ n ] ) + 1, 20 ) )
         ELSEIF AllTrim( aTexto[ n ] )   == "Adaptador de Rede sem Fio ConexÆo de Rede sem Fio:"  ; cCon  := "Ethernet" ; nLin := n
            // elseif alltrim(aTexto[n]) == "Adaptador de Rede:" ; cCon  := "Wifi" ; nLin:=n     //Aqui debes poner el concepto cuando lo corres via Wi-Fi
         ENDIF

      NEXT

      FOR n := nLin TO Len( aTexto )

         SysRefresh()

         IF SubStr( AllTrim( aTexto[ n ] ), 1, 9 )      == "Descri‡Æo"       ; cFabri := AllTrim( SubStr( aTexto[ n ], RAt( ":", aTexto[ n ] ) + 1, 50 ) )
         ELSEIF SubStr( AllTrim( aTexto[ n ] ), 1, 15 ) == "Endere‡o F¡sico" ; cMac  := AllTrim( SubStr( aTexto[ n ], RAt( ":", aTexto[ n ] ) + 1, 20 ) )
         ELSEIF SubStr( AllTrim( aTexto[ n ] ), 1, 13 ) == "Endere‡o IPv4"   ; cIP   := SubStr( aTexto[ n ], 49, RAt( "(Preferencial)", aTexto[ n ] ) - 49 )
         ELSEIF SubStr( AllTrim( aTexto[ n ] ), 1, 13 ) == "Servidor DHCP"   ; cDHCP := AllTrim( SubStr( aTexto[ n ], RAt( ":", aTexto[ n ] ) + 1, 20 ) ) ; EXIT
         ENDIF

      NEXT

      AAdd( aEquipo, { cHost, cIP, cMac, cDHCP, cFabri } )

      // Ferase(cFile)

   ELSEIF nF = 3

      WAITRUN( "cmd.exe /c  ipconfig /all > " + ( cFile ), .F. )   // WaitRun("Notepad.exe " +(cFile))

      cTexto  := MemoRead( ( cFile ) )  ;  nLineas := MLCount( cTexto )

      FOR n := 1 to nLineas

         SysRefresh()

         cLinea := MemoLine( cTexto, 255, n )

         IF( At( "Nombre de host",                      cLinea ) > 0, cHost := AllTrim( SubStr( cLinea, 38, 20 ) ), )
         IF( At( "Adaptador de Ethernet Ethernet:",     cLinea ) > 0, ( cCon := "Ethernet", nLin := n ), )
         IF( At( "Adaptador de LAN inal mbrica Wi-Fi:", cLinea ) > 0, ( cCon := "Wifi", nLin := n ), )

      NEXT

      FOR n := nLin to nLineas

         SysRefresh()

         cLinea := MemoLine( cTexto, 255, n )

         IF( At( "Descripci¢n",      cLinea ) > 0,  cFabri := AllTrim( SubStr( cLinea, 48, 60 ) ), )
         IF( At( "Direcci¢n f¡sica", cLinea ) > 0,  cMac  := AllTrim( SubStr( cLinea, 48, 20 ) ), )
         IF( At( "Direcci¢n IPv4",   cLinea ) > 0,  cIP   := SubStr( cLinea, 48, RAt( "(Preferido)", cLinea ) - 48 ), )
         IF  At( "Servidor DHCP",    cLinea ) > 0 ;  cDHCP := AllTrim( SubStr( cLinea, 48, 20 ) ) ; EXIT ; ENDIF

      NEXT

      AAdd( aEquipo, { cHost, cIP, cMac, cDHCP, cFabri } )

      // FErase( ( cFile ) )

   ENDIF

   XBROWSE( cFile )

RETURN( aEquipo )

// FIN / END

Muchas gracias, tks.

Regards, saludos.