none
Configurando IP,Gateway, Mascara e DNS - Dúvida Cruel RRS feed

  • Pergunta

  • IP = "187.92.245.13"     
    strComputer="."
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
     
    Set colNetAdapters = objWMIService.ExecQuery _
        ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
     
    strIPAddress = Array(IP)
    strSubnetMask = Array("255.255.255.248")
    strGateway = Array("187.92.245.9")
    strGatewayMetric = Array(1)
     
    For Each objNetAdapter in colNetAdapters
          
        errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
        errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
        
        arrDNSServers = Array("200.153.0.68", "200.153.0.196") 
        objNetAdapter.SetDNSServerSearchOrder(arrDNSServers)
        If errEnable = 0 Then
            WScript.Echo "O endereço de IP foi modificado com sucesso!!!."
        Else
            WScript.Echo "O Endereço de Ip não pôde ser Modificado"
        End If
    Next

    Galera tudo beleza!!

    Minha dúvida é a seguinte, como eu configuro para esse script mudar uma placa de rede especifica , porque aqui eu uso duas e só pode ser numa essa configuração de ips!!

    Abraços e em  aguardo!

    terça-feira, 8 de maio de 2012 14:24

Respostas

  • Filtre pelo MAC.

    IP = "187.92.245.13"  
    MAC="00:80:C7:8F:6C:96"
       
    strComputer="."
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
     
    Set colNetAdapters = objWMIService.ExecQuery _
        ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE AND MACAddress='" & MAC & "'")
     
    strIPAddress = Array(IP)
    strSubnetMask = Array("255.255.255.248")
    strGateway = Array("187.92.245.9")
    strGatewayMetric = Array(1)
     
    For Each objNetAdapter in colNetAdapters
          
        errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
        errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
        
        arrDNSServers = Array("200.153.0.68", "200.153.0.196") 
        objNetAdapter.SetDNSServerSearchOrder(arrDNSServers)
        If errEnable = 0 Then
            WScript.Echo "O endereço de IP foi modificado com sucesso!!!."
        Else
            WScript.Echo "O Endereço de Ip não pôde ser Modificado"
        End If
    Next

    Ref.:

    Win32_NetworkAdapterConfiguration class

    http://msdn.microsoft.com/en-us/library/windows/desktop/aa394217(v=vs.85).aspx


    Fábio de Paula Junior

    terça-feira, 8 de maio de 2012 19:31
    Moderador