none
Script Troca de IP ( sem ser manualmente ) RRS feed

  • Pergunta

  • Tenho 2 Links, 2 IPs distintos e DNS, necessito de um Script para alteração destes IPs sem ser manualmente???

     

    Alguem pode me ajudar ?

    quarta-feira, 9 de junho de 2010 19:15

Respostas

  • Amigo, eu utilizo da seguinte forma em um arquivo VBS



    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    Set colNetAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")


    strIPAddress = Array("x.x.x.x")
    strSubnetMask = Array("x.x.x.x")
    strGateway = Array("x.x.x.x")
    strGatewayMetric = Array(1)
    strDNS = Array("x.x.x.x") 
     
    For Each objNetAdapter in colNetAdapters
         errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
         errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
     
         objNetAdapter.SetDNSServerSearchOrder strDNS
    Next



    Cria dois arquivos VBS, cada um com um de seus IP's. Assim, é só executá-lo e pronto...
    O script vai mudar automaticamente as configurações.

    Gregorio
    quinta-feira, 1 de julho de 2010 13:32

Todas as Respostas

  • Tenho 2 Links, 2 IPs distintos e DNS, necessito de um Script para alteração destes IPs sem ser manualmente???

     

    Alguem pode me ajudar ?


    Alem de alteração de IP necessito Alterar as configurações do adaptador ( IP, GTW, DNS ) para as configurações do outro link;

     

    Desde ja agradeço.

    quarta-feira, 9 de junho de 2010 19:16
  • Num batch File

    netsh interface ip set address name="Local Area Connection" static 192.168.20.1 255.255.255.0 192.168.20.254 1
    netsh interface ip set dns "Local Area Connection" static 192.168.20.10

    Podes ler aqui http://www.petri.co.il/configure_tcp_ip_from_cmd.htm

    e sobre o Netsh aqui

    http://technet.microsoft.com/es-es/library/cc725935%28WS.10%29.aspx


    Cláudio Gonçalves
    sexta-feira, 11 de junho de 2010 15:11
  • Amigo, eu utilizo da seguinte forma em um arquivo VBS



    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    Set colNetAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")


    strIPAddress = Array("x.x.x.x")
    strSubnetMask = Array("x.x.x.x")
    strGateway = Array("x.x.x.x")
    strGatewayMetric = Array(1)
    strDNS = Array("x.x.x.x") 
     
    For Each objNetAdapter in colNetAdapters
         errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
         errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
     
         objNetAdapter.SetDNSServerSearchOrder strDNS
    Next



    Cria dois arquivos VBS, cada um com um de seus IP's. Assim, é só executá-lo e pronto...
    O script vai mudar automaticamente as configurações.

    Gregorio
    quinta-feira, 1 de julho de 2010 13:32