FiveTech Software tech support forums

Code: Select all  Expand view

#include "FiveWin.ch"

FUNCTION Main()    //Probando()
  local aDispConect := {}, cDir := TrueName(".\")
  local cTexto, n, nLineas, cLinea, cIP, cMac, cNombre, cIpInterfaz

  WAITRUN( "cmd.exe /c  arp -a > " +cDir+ "\ARP.txt" , .f.)
  WaitRun("Notepad.exe " +cDir+ "\ARP.txt")

  cTexto  := MEMOREAD(cDir + "\ARP.txt")
  nLineas := MLCOUNT(cTexto)

  //Agreg dispositivo desde donde se corre el programa. El .txt solo presenta la IP
  cLinea      := MEMOLINE(cTexto,255,2)  //en linea 2 esta la ip del equipo desde donde se corre
  cIpInterfaz := SUBSTR(cLinea,11,12)
  cNombre     := NETNAME()

  AAdd( aDispConect, { cIpInterfaz, "cMac?", cNombre } )
  //Fin Agreg dispositivo desde donde se corre el programa

  For n := 4 To nLineas      //En lin 4 del .txt comienzan las ip y mac
     cLinea  := MEMOLINE(cTexto,255,n)
     cIP     := SUBSTR(cLinea,3,20)
     cMac    := SUBSTR(cLinea,25,21)  
     cNombre := GetHostByAddress(AllTrim(cIP))  //Obtiene nombre a partir de la IP  

     if Substr(AllTrim(cIP),1,9) == Substr(AllTrim(cIpInterfaz),1,9) .and. AllTrim(cMac) <> "ff-ff-ff-ff-ff-ff"
        AAdd( aDispConect, { cIP, cMac, cNombre } )
     endif
  Next

  SysRefresh()

  XBROWSER aDispConect TITLE "Dispositivos Conectados" ;
     SETUP ( oBrw:cHeaders := {"IP", "MAC", "DISPOSITIVO"} )

 RETURN NIL

Code: Select all  Expand view

#include "FiveWin.ch"

FUNCTION Main()    //Probando()
  local aDispConect := {}, cDir := TrueName(".\")
  local cTexto, n, nLineas, cLinea, cIP, cMac, cNombre, cIpInterfaz, cFabricante

  WAITRUN( "cmd.exe /c  arp -a > " +cDir+ "\ARP.txt" , .f.)
  //WaitRun("Notepad.exe " +cDir+ "\ARP.txt")

  cTexto  := MEMOREAD(cDir + "\ARP.txt")
  nLineas := MLCOUNT(cTexto)

  //Agreg dispositivo desde donde se corre el programa. El .txt solo presenta la IP
  cLinea      := MEMOLINE(cTexto,255,2)  //en linea 2 esta la ip del equipo desde donde se corre
  cIpInterfaz := SUBSTR(cLinea,11,12)
  WsaStartUp()
  cNombre := GetHostName()
  WsaCleanUp()  

  AAdd( aDispConect, { cIpInterfaz, "cMac?", cNombre,' '} )
  //Fin Agreg dispositivo desde donde se corre el programa

  For n := 4 To nLineas      //En lin 4 del .txt comienzan las ip y mac
     cLinea  := MEMOLINE(cTexto,255,n)
     cIP     := SUBSTR(cLinea,3,20)
     cMac    := SUBSTR(cLinea,25,21)  
     WsaStartUp()
     cNombre := GetHostByAddress(AllTrim(cIP))  //Obtiene nombre a partir de la IP  
     WsaCleanUp()
     cNombre := if(empty(cNombre),AllTrim(cIP),cNombre)      
     cFabricante := Fabricante(AllTrim(STRTRAN(cMac,'-','')))    

     if Substr(AllTrim(cIP),1,9) == Substr(AllTrim(cIpInterfaz),1,9) .and. AllTrim(cMac) <> "ff-ff-ff-ff-ff-ff"
        AAdd( aDispConect, { cIP, cMac, cNombre ,cFabricante} )
     endif
  Next

  SysRefresh()

  XBROWSER aDispConect TITLE "Dispositivos Conectados" ;
     SETUP ( oBrw:cHeaders := {"IP", "MAC", "DISPOSITIVO","FABRICANTE"} )

 RETURN NIL

STATIC FUNCTION Fabricante(cMac)
LOCAL cText, i , cResult
cText := WebPageContents('https://aruljohn.com/mac/'+cMac)
cResult := SUBSTR(cText,At('<tr><td>Vendor</td><td><span id="vdr14999879">',cText)+46,200 )    
cResult := LEFT(cResult,At('</span>',cResult)-1)
RETURN cResult

Code: Select all  Expand view

#include "FiveWin.ch"

FUNCTION Main()    //Probando()
  local aDispConect := {}, cDir := TrueName(".\")
  local cTexto, n, nLineas, cLinea, cIP, cMac, cNombre, cIpInterfaz, cFabricante

  WAITRUN( "cmd.exe /c  arp -a > " +cDir+ "\ARP.txt" , .f.)

  cTexto  := MEMOREAD(cDir + "\ARP.txt")
  nLineas := MLCOUNT(cTexto)

  //Agreg dispositivo desde donde se corre el programa. El .txt solo presenta la IP
  cLinea      := MEMOLINE(cTexto,255,2)  //en linea 2 esta la ip del equipo desde donde se corre
  cIpInterfaz := SUBSTR(cLinea,11,12)
  WsaStartUp()
  cNombre := GetHostName()
  WsaCleanUp()  

  cMac        := MacAddrHost()
  cFabricante := Fabricante(AllTrim(STRTRAN(cMac,'-','')))  

  AAdd( aDispConect, { cIpInterfaz, cMac, cNombre, cFabricante '} )
  //Fin Agreg dispositivo desde donde se corre el programa

  For n := 4 To nLineas      //En lin 4 del .txt comienzan las ip y mac
     cLinea  := MEMOLINE(cTexto,255,n)
     cIP     := SUBSTR(cLinea,3,20)
     cMac    := SUBSTR(cLinea,25,21)  
     WsaStartUp()
     cNombre := GetHostByAddress(AllTrim(cIP))  //Obtiene nombre a partir de la IP  
     WsaCleanUp()
     cNombre := if(empty(cNombre),AllTrim(cIP),cNombre)      
     cFabricante := Fabricante(AllTrim(STRTRAN(cMac,'-','')))    

     if Substr(AllTrim(cIP),1,9) == Substr(AllTrim(cIpInterfaz),1,9) .and. AllTrim(cMac) <> "ff-ff-ff-ff-ff-ff"
        AAdd( aDispConect, { cIP, cMac, cNombre ,cFabricante} )
     endif
  Next

  SysRefresh()

  XBROWSER aDispConect TITLE "Dispositivos Conectados" ;
     SETUP ( oBrw:cHeaders := {"IP", "MAC", "DISPOSITIVO","FABRICANTE"} )

 RETURN NIL

STATIC FUNCTION Fabricante(cMac)
LOCAL cText, i , cResult
cText := WebPageContents('https://aruljohn.com/mac/'+cMac)
cResult := SUBSTR(cText,At('<tr><td>Vendor</td><td><span id="vdr14999879">',cText)+46,200 )    
cResult := LEFT(cResult,At('</span>',cResult)-1)
RETURN cResult

//----------------------------------------------//
STATIC function MacAddrHost()
  local cDir := TrueName(".\"), cMac, nLin, cTexto, aData

  WAITRUN( "cmd.exe /c  ipconfig /all > " +cDir+ "\McHost.txt" , .f.)
  cTexto := MEMOREAD(cDir + "\McHost.txt")
  aData  := hb_ATokens(cTexto, chr(10))
  nLin := AScan(aData, "Adaptador de LAN inal mbrica Wi-Fi:") +4
  cMac := MEMOLINE(cTexto,255,nLin)
  cMac := Alltrim(Substr(cMac,47,20))
  Ferase(cDir+ "\McHost.txt")

return cMac

FranciscoA wrote:Solo funciona en redes WiFi...

Code: Select all  Expand view

//----------------------------------------------//
STATIC function MacAddrHost()
  local cDir := TrueName(".\"), cMac, nLin, cTexto, aData

  WAITRUN( "cmd.exe /c  ipconfig /all > " +cDir+ "\McHost.txt" , .f.)
  cTexto := MEMOREAD(cDir + "\McHost.txt")
  aData  := hb_ATokens(cTexto, chr(10))
  nLin := AScan(aData, "Adaptador de LAN inal mbrica Wi-Fi:") +4
  cMac := MEMOLINE(cTexto,255,nLin)
  cMac := Alltrim(Substr(cMac,47,20))
  Ferase(cDir+ "\McHost.txt")

return cMac

Code: Select all  Expand view

oLocator := CreateObject( "WbemScripting.SWbemLocator" )
oWmi := oLocator:ConnectServer()
FOR EACH oBoard IN oWmi:ExecQuery( "SELECT * FROM Win32_ComputerSystemProduct" )
 

Code: Select all  Expand view

include "FiveWin.ch"

FUNCTION Main()    //Probando()
  local aDispConect := {}, cDir := TrueName(".\")
  local cTexto, n, nLineas, cLinea, cIP, cMac, cNombre, cIpInterfaz, cFabricante

  WAITRUN( "cmd.exe /c  arp -a > " +cDir+ "\ARP.txt" , .f.)

  cTexto  := MEMOREAD(cDir + "\ARP.txt")
  nLineas := MLCOUNT(cTexto)

  //Agreg dispositivo desde donde se corre el programa. El .txt solo presenta la IP
  cLinea      := MEMOLINE(cTexto,255,2)  //en linea 2 esta la ip del equipo desde donde se corre
  cIpInterfaz := SUBSTR(cLinea,11,12)
  WsaStartUp()
  cNombre := GetHostName()
  WsaCleanUp()  

  cMac        := MacAddrHost()
  cFabricante := Fabricante(AllTrim(STRTRAN(cMac,'-','')))  

  AAdd( aDispConect, { cIpInterfaz, cMac, cNombre, cFabricante '} )
  //Fin Agreg dispositivo desde donde se corre el programa

  For n := 4 To nLineas      //En lin 4 del .txt comienzan las ip y mac
     cLinea  := MEMOLINE(cTexto,255,n)
     cIP     := SUBSTR(cLinea,3,20)
     cMac    := SUBSTR(cLinea,25,21)  
     WsaStartUp()
     cNombre := GetHostByAddress(AllTrim(cIP))  //Obtiene nombre a partir de la IP  
     WsaCleanUp()
     cNombre := if(empty(cNombre),AllTrim(cIP),cNombre)      
     cFabricante := Fabricante(AllTrim(STRTRAN(cMac,'-','')))    

     if Substr(AllTrim(cIP),1,9) == Substr(AllTrim(cIpInterfaz),1,9) .and. AllTrim(cMac) <> "ff-ff-ff-ff-ff-ff"
        AAdd( aDispConect, { cIP, cMac, cNombre ,cFabricante} )
     endif
  Next

  SysRefresh()

  XBROWSER aDispConect TITLE "Dispositivos Conectados" ;
     SETUP ( oBrw:cHeaders := {"IP", "MAC", "DISPOSITIVO","FABRICANTE"} )

 RETURN NIL

STATIC FUNCTION Fabricante(cMac)
LOCAL cText, i , cResult
cText := WebPageContents('https://aruljohn.com/mac/'+cMac)
cResult := SUBSTR(cText,At('<tr><td>Vendor</td><td><span id="vdr14999879">',cText)+46,200 )    
cResult := LEFT(cResult,At('</span>',cResult)-1)
RETURN cResult

//----------------------------------------------//
STATIC function MacAddrHost()
  local cDir := TrueName(".\"), cMac := "", nLin, cTexto, aData

  WAITRUN( "cmd.exe /c  ipconfig /all > " +cDir+ "\McHost.txt" , .f.)
  WaitRun("Notepad.exe " +cDir+ "\McHost.txt")

  cTexto := MEMOREAD(cDir + "\McHost.txt")
  aData  := hb_ATokens(cTexto, chr(10))

  if ( nLin := AScan(aData, "Adaptador de LAN inal mbrica Wi-Fi:") ) > 0
  else
     nLin := AScan(aData, "Adaptador de Ethernet Ethernet:")
  endif
  nLin += 4
 
  cMac := MEMOLINE(cTexto,255,nLin)
  cMac := Alltrim(Substr(cMac,47,20))
  Ferase(cDir+ "\McHost.txt")

return cMac

cmsoft wrote:Francisco, ahi creo que lo que obtienes es la mac de la placa de red, pero no del equipo.
Lo había pensado, pero ya no me dirá la marca de la pc, sino de la placa de red.
Estuve intentando algo por el estilo como esto:

Code: Select all  Expand view

oLocator := CreateObject( "WbemScripting.SWbemLocator" )
oWmi := oLocator:ConnectServer()
FOR EACH oBoard IN oWmi:ExecQuery( "SELECT * FROM Win32_ComputerSystemProduct" )
 

Pero sin exito
Tal vez algún conocedor de estas cuestiones nos indiquen como

Code: Select all  Expand view

oLocator := win_oleCreateObject( "wbemScripting.SwbemLocator" )
    oWmi     := oLocator:ConnectServer()

Code: Select all  Expand view

oCollection1 := oWMI:ExecQuery( "SELECT * FROM Win32_NetworkAdapter WHERE Manufacturer != 'Microsoft' AND NOT PNPDeviceID LIKE 'ROOT\\%'" )
    oCollection2 := oWMI:ExecQuery( 'SELECT * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE' )
    For Each obj1 In oCollection1
        nTemp := obj1:NetConnectionStatus
        For Each obj2 In oCollection2
            nInd++
            cDescrip := 'Description'+ALLTRIM(STR(nInd))+': '+CHR(9)+SUBSTR( obj2:description, 1, AT( "-", obj2:description ) -2 )+' / '+aNetConnectStat[ nTemp+1 ]+CRLF
            ServiceName := '   ServiceName'+ALLTRIM(STR(nInd))+': '+CHR(9)+obj2:ServiceName(0)+CRLF
            IPAddress   := '   IPAddress'+ALLTRIM(STR(nInd))+': '+CHR(9)+obj2:IPAddress(0)+CRLF
            *DefaultIPGateway := 'DefaultIPGateway: '+obj:DefaultIPGateway(0)       // ERROR !   ????
            MACAddress  := '   MACAddress'+ALLTRIM(STR(nInd))+': '+CHR(9)+obj2:MACAddress(0)
            data6 += cDescrip+ServiceName+IPAddress+MACAddress+CRLF
        Next
    Next