none
Coleta de informações sobre Win32_NetworkAdapterConfiguration RRS feed

  • Pergunta

  • Ba galera

    Boa tarde Tche.

    Tenho um script que realiza a coleta de algumas informações das minhas estações, e para coleta de informações sobre o IP, eu utilizo os itens abaixo para trazer, escrever o ip usado pela estação, porem estou tendo o seguinte problema, quando a estação possui mais de um ip mesmo ele não estando em uso, por exemplo tche, a maquina tem 3 placas de rede uma ta ativa com ip da rede e as outras duas nao estão mais estão com a pipa, esta query wmi, repede a linha com toda a informação colhida e muda adiciona os demais ips existentes, minha pergunta é, este alguma query wmi que eu possa fazer que me traga somente do ip que esta em uso pela maquina.

    abraço galera.

    Query utilizada.

    strIp=""

    Set colNetworks = objWMIService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")

    strIp = strIp & objNetwork.IPAddress(0)

    objTextFile.WriteLine strIP

    sábado, 11 de fevereiro de 2012 18:03

Respostas

  • Marcelo

    Fica dificil lhe ajudar assim pois alguma coisa que a comunidade possa lhe indicar pode ir de encontro com alguma função ou chamada criada e com isto pode parar o que ja esta funcionado, mais tente alterar a sua query para somente SELECT * FROM Win32_NetworkAdapterConfiguration, ai vc pode criar um If desta forma, veja se ajuda.

    Set NET = objwmiservice.execquery("SELECT * FROM Win32_NetworkAdapterConfiguration")
    For Each IPConfig In net
    If Not IsNull(IPConfig.IPAddress) Then
    For i = LBound(IPConfig.IPAddress) To UBound(IPConfig.IPAddress)
      Ip = IPConfig.IPAddress(i)
    Next
    End If
    Next


    Your potential. Our passion - DPCD Tecnologia - Banco Bradesco SA

    • Marcado como Resposta Marcelo TI segunda-feira, 13 de fevereiro de 2012 10:34
    sábado, 11 de fevereiro de 2012 18:50

Todas as Respostas

  • Marcelo

    Fica dificil lhe ajudar assim pois alguma coisa que a comunidade possa lhe indicar pode ir de encontro com alguma função ou chamada criada e com isto pode parar o que ja esta funcionado, mais tente alterar a sua query para somente SELECT * FROM Win32_NetworkAdapterConfiguration, ai vc pode criar um If desta forma, veja se ajuda.

    Set NET = objwmiservice.execquery("SELECT * FROM Win32_NetworkAdapterConfiguration")
    For Each IPConfig In net
    If Not IsNull(IPConfig.IPAddress) Then
    For i = LBound(IPConfig.IPAddress) To UBound(IPConfig.IPAddress)
      Ip = IPConfig.IPAddress(i)
    Next
    End If
    Next


    Your potential. Our passion - DPCD Tecnologia - Banco Bradesco SA

    • Marcado como Resposta Marcelo TI segunda-feira, 13 de fevereiro de 2012 10:34
    sábado, 11 de fevereiro de 2012 18:50
  • Ba Leandro

    Tree legal tche, aqui em casa rolou legal, vou testar na segunda no meu ambiente e te informo.

    valeu tche.

    sábado, 11 de fevereiro de 2012 22:05