none
DHCP ou Fixo RRS feed

  • Pergunta

  • Ba galera boa tarde

    Estou trabalhando no codigo abaixo com o intuito de levantar a placa de rede local, o ip, a mascara, o gateway, e se a placa esta configurada como dhcp ou ip fixo, mais estou tendo dificuldades, alguem tem um script para realizar este processo ou me ajudar na correção deste codigo.

    obrigado tche.

    codigo.

    Dim objftp
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
         & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colftp = objWMIService.ExecQuery _
        ("Select * from Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")

    ForEach objftpIn colftp

       Wscript.echo objftp.Description
       WScript.Echo objftp.IPSubnet
              
    Next

    Set IPConfigSet = objWMIService.ExecQuery _
         ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = TRUE")
       
    ForEach IPConfigin IPConfigSet
         IfNotIsNull(IPConfig.IPAddress) Then
            For i=LBound(IPConfig.IPAddress) toUBound(IPConfig.IPAddress)
                 WScript.Echo IPConfig.IPAddress(i)
             Next
         EndIf
    Next

    'DHCP ou Estatico

    If objftp.dhcpenabledThen
        wlinha = "IP Dinamico"
      Else
        wlinha = "IP Estatico"
      EndIf
      
      WScript.Echo wlinha


    • Editado Marcelo TI quinta-feira, 6 de outubro de 2011 15:33 melhor apresentação
    quinta-feira, 6 de outubro de 2011 15:33

Respostas

Todas as Respostas

  • Marcelo,

     

    Escrevi recentemente este wiki no technet : http://social.technet.microsoft.com/wiki/contents/articles/4837.aspx

     

    Ai vc encontra um script para inventário completo (incluindo network), buscando hosts a partir de um arquivo texto.

     

    Dê uma olhada se te ajuda nesse problema.

     

    Att

     

    JR Wilde

    • Marcado como Resposta Marcelo TI quinta-feira, 6 de outubro de 2011 21:08
    quinta-feira, 6 de outubro de 2011 18:08
  • João

    Peguei do seu codigo esta parte porem o mesmo retorna erro na execução.

    erro:

    Erro de tempo de execução do Microsoft VBScript (5, 1) : Objeto necessário: ''

    codigo:

    Dim colItems, objWMIService

    Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_NetworkAdapterConfiguration",,48) 
    ForEach objItemin colItems
    wscript.echo"Detalhes: " & objItem.Description
     wscript.echo"DHCP: " & objItem.DHCPEnabled
    IfisNull(objItem.IPAddress) Then
     wscript.echo"Endereco IP: "
    Else
     wscript.echo"Endereco IP: " & Join(objItem.IPAddress, ",")
    EndIf
    IfisNull(objItem.IPSubnet) Then
     wscript.echo"Mascara: "
    Else
     wscript.echo"Mascara: " & Join(objItem.IPSubnet, ",")
    EndIf
     wscript.echo"MAC: " & objItem.MACAddress & VbCrLf
    Next

    quinta-feira, 6 de outubro de 2011 20:04
  • Com a informação do João e este link consegui gerar a informação.

    Obrigado tche.

    http://www.activexperts.com/admin/scripts/wmi/vbscript/0340/

    • Marcado como Resposta Marcelo TI quinta-feira, 6 de outubro de 2011 21:08
    quinta-feira, 6 de outubro de 2011 21:08