none
gateway, e ativação de placa de rede RRS feed

  • Pergunta

  • Boa tarde a todos,

    vou explicar minha situação.
    Aqui na empresa, temos duas conexões com a internet, (virtua e Speedy) usamos uma como contingência.
    nosso servidor isa tem duas placas de rede. (interna e externa).

    para alternarmos entre uma conexão (virtua/speedy) para outra, temos que fazer algumas alterações manualmente.
    EX:

    para alternar entre speedy e virtua, temos que desativar a placa de rede externa e colocar um gateway na placa interna.

    para alternar entre virtua e speedy, temos que ativar a placa de rede externa e retirar o gateway da placa interna.


    gostaria de fazer um script que faça esse serviço. porque as vezes estamos nas filiais e é necessario mudar de um para o outro.
    e voces sabem como é usuario né.....fico quase meia hora no telefone pra fazer uma coisa q é feita em 1 minuto.

    tentei fazer alguns scripts aqui, mas como nao tenho muita experiencia nisso, gostaria que voces me desse uma maozinha....



    Obrigado.
    terça-feira, 26 de maio de 2009 15:21

Todas as Respostas

  • Alguém???
    terça-feira, 26 de maio de 2009 16:50
  • strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

    Set colNetAdapters = objWMIService.ExecQuery _
        ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

    strIPAddress = Array("192.168.0.0")
    strSubnetMask = Array("255.255.255.0")
    strGateway = Array("192.168.0.100")
    strGatewayMetric = Array(1)

    For Each objNetAdapter in colNetAdapters
        errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
        errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
        If errEnable = 0 Then
            WScript.Echo "O endereço IP foi alterado com sucesso."
        Else
            WScript.Echo "O endereço IP não pode ser alterado."
        End If
    Next
    David Dellacenta http://www.andersonpatricio.org http://www.itcentral.com.br
    terça-feira, 26 de maio de 2009 16:52
  • esse script é para alterar o IP/mask/gateway.

    na verdade eu preciso de um script para alterar somente o gateway da placa A e desativar a placa B.
    terça-feira, 26 de maio de 2009 17:00
  • Olá,

    Verifique se o script abaixo te atende:

    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

    Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where ipEnabled=True")
    arrGateways = Array("192.168.1.100", "192.168.1.200")

    lRet = False
    For Each objItem in colItems
       if lRet = False Then
          answer=MsgBox("Você quer deixar a placa " & objItem.Caption  & " Como Gateway Padrao ? ",67,"Placa de rede")
          if answer = 6 Then
             objItem.SetGateways(arrGateways)
         objItem.SetIPConnectionMetric(10)
             lRet = True
          Elseif answer = 7 Then

             objItem.SetIPConnectionMetric(100)
          Else
             wscript.quit
          End if
       Else
           objItem.SetIPConnectionMetric(100)
       End if

    Next


    Faça os testes e nos retorne.

    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    terça-feira, 26 de maio de 2009 19:11
  • entao cara, nao atende não. acabei de conseguir fazer o que eu queria.

    usei até um script seu que estava em outro forum...

    eu só troquei o Sql para ele buscar pelo MAC da placa de rede.

    ai deu certo.


    daqui a poko eu coloco o script aqui pra vcs verem...

    vlw.
    quarta-feira, 27 de maio de 2009 13:07