none
Script para troca de ip por scrip ou bat RRS feed

  • Pergunta

  • Boa tarde tenho o seguinte problema, trabalho com ip fixo na empresa, tenho 2 diretores que tem notebook, em casa o ip e automatico,  como faço para criar um scrip e um arquivo bat, para colocar o IP e o DNS da empresa.
    quarta-feira, 30 de junho de 2010 18:19

Respostas

  • Bom dia Angelo,

    Segue abaixo 2 scripts em VBS para resolver seu problema. Um é para alterar o Ip para um endereço estático e o outro para alterar para DHCP. Somente oriente seus diretores como utilizar "clique duplo no VBS" rsrs.

    Dica: Use o NotePad++ para editar scripts VBS muito bom, ele tem as sintaxe que colori os comando.

     

    --------------------------------------------------------------------------------------------------------------------------------------------------------------------

    ' ##Script para alterer ip da Placa de Rede ##

     

    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")

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

     

     

    strIPAddress = Array("10.1.1.7") 'Coloque o IP fixo

    strSubnetMask = Array("255.255.255.0") 'Coloque a Mascara de SubNet

    strGateway = Array("10.1.1.1") 'Coloque o Gateway

    strGatewayMetric = Array(1)

    strDNS = Array("200.204.0.10","200.204.0.138") 'Coloque o IP DNS

     

    For Each objNetAdapter in colNetAdapters

         errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)

         errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)

     

         objNetAdapter.SetDNSServerSearchOrder strDNS

    Next

    --------------------------------------------------------------------------------------------------------------------------------------------------------------------

    '## Script para alterar de Ip fixo para DHCP ##

    strDNS = Array("172.16.10.1","172.16.10.6") 'Coloque o IP DNS

    strComputer = "."

    Set objWMIService = GetObject("winmgmts:" _

        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

     

    Set colNetAdapters = objWMIService.ExecQuery _

        ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

     

    For Each objNetAdapter In colNetAdapters

        errEnable = objNetAdapter.EnableDHCP()

    objNetAdapter.SetDNSServerSearchOrder strDNS

    Next

    --------------------------------------------------------------------------------------------------------------------------------------------------------------------

    Se util classifique.

    quinta-feira, 1 de julho de 2010 11:13

Todas as Respostas

  • É windows 7? Se for, crie uma bat com os seguintes comandos:

    netsh interface ipv4 set address "Conexao Local" static 10.0.0.9 255.0.0.0 10.0.0.1 1

    netsh interface ipv4 set dnsservers "Conexao Local" static 10.0.0.1 primary

     

    Isso vai configurar a interface de rede "Conexao Local" o endereço IP 10.0.0.9,  máscara 255.0.0.0, gateway 10.0.0.1

    A segunda linha vai configurqar seu DNS.

     

    Se quiser voltar para DHCP

    netsh interface ipv4 set address name="Conexao Local" source=dhcp

    netsh interface ipv4 set dnsserver name="Conexao Local" source=dhcp

    Isso vai colocar sua configuração IP e de DNS para pegar tudo automaticamente de um dhcp.

     

    Lembre-se que a bat deve rodar como Administrador. 

    Espero ter ajudado


    Se foi útil, não se esqueça de Marcar como Resposta. Cláudio Costa - http://claudio-costa.blogspot.com
    quinta-feira, 1 de julho de 2010 06:19
  • Por que não usa IP alternativa?

    Com isso na empresa ele usaria um modo fixo na aba alternativa e em casa ele usaria dinâmico normalmente, sem ter a necessidade de alterar nada.

    Da uma pesquisada que nesses casos é a melhor opção.

    quinta-feira, 1 de julho de 2010 08:29
  • Bom dia Angelo,

    Segue abaixo 2 scripts em VBS para resolver seu problema. Um é para alterar o Ip para um endereço estático e o outro para alterar para DHCP. Somente oriente seus diretores como utilizar "clique duplo no VBS" rsrs.

    Dica: Use o NotePad++ para editar scripts VBS muito bom, ele tem as sintaxe que colori os comando.

     

    --------------------------------------------------------------------------------------------------------------------------------------------------------------------

    ' ##Script para alterer ip da Placa de Rede ##

     

    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")

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

     

     

    strIPAddress = Array("10.1.1.7") 'Coloque o IP fixo

    strSubnetMask = Array("255.255.255.0") 'Coloque a Mascara de SubNet

    strGateway = Array("10.1.1.1") 'Coloque o Gateway

    strGatewayMetric = Array(1)

    strDNS = Array("200.204.0.10","200.204.0.138") 'Coloque o IP DNS

     

    For Each objNetAdapter in colNetAdapters

         errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)

         errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)

     

         objNetAdapter.SetDNSServerSearchOrder strDNS

    Next

    --------------------------------------------------------------------------------------------------------------------------------------------------------------------

    '## Script para alterar de Ip fixo para DHCP ##

    strDNS = Array("172.16.10.1","172.16.10.6") 'Coloque o IP DNS

    strComputer = "."

    Set objWMIService = GetObject("winmgmts:" _

        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

     

    Set colNetAdapters = objWMIService.ExecQuery _

        ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

     

    For Each objNetAdapter In colNetAdapters

        errEnable = objNetAdapter.EnableDHCP()

    objNetAdapter.SetDNSServerSearchOrder strDNS

    Next

    --------------------------------------------------------------------------------------------------------------------------------------------------------------------

    Se util classifique.

    quinta-feira, 1 de julho de 2010 11:13
  • Bom dia Angelo,

    Segue abaixo 2 scripts em VBS para resolver seu problema. Um é para alterar o Ip para um endereço estático e o outro para alterar para DHCP. Somente oriente seus diretores como utilizar "clique duplo no VBS" rsrs.

    Dica: Use o NotePad++ para editar scripts VBS muito bom, ele tem as sintaxe que colori os comando.

     

    --------------------------------------------------------------------------------------------------------------------------------------------------------------------

     

    ' ##Script para alterer ip da Placa de Rede ##

     

    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")

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

     

     

    strIPAddress = Array("10.1.1.7") 'Coloque o IP fixo

    strSubnetMask = Array("255.255.255.0") 'Coloque a Mascara de SubNet

    strGateway = Array("10.1.1.1") 'Coloque o Gateway

    strGatewayMetric = Array(1)

    strDNS = Array("200.204.0.10","200.204.0.138") 'Coloque o IP DNS

     

    For Each objNetAdapter in colNetAdapters

         errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)

         errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)

     

         objNetAdapter.SetDNSServerSearchOrder strDNS

    Next

    --------------------------------------------------------------------------------------------------------------------------------------------------------------------

     

    '## Script para alterar de Ip fixo para DHCP ##

    strDNS = Array("172.16.10.1","172.16.10.6") 'Coloque o IP DNS

    strComputer = "."

    Set objWMIService = GetObject("winmgmts:" _

        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

     

    Set colNetAdapters = objWMIService.ExecQuery _

        ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

     

    For Each objNetAdapter In colNetAdapters

        errEnable = objNetAdapter.EnableDHCP()

    objNetAdapter.SetDNSServerSearchOrder strDNS

    Next

    --------------------------------------------------------------------------------------------------------------------------------------------------------------------

    Se util classifique.

     

     

    Vlw pela ajuda, o primeiro script funcionou legal no XP, mais no Seven nao funcionou, o segundo escript esta dando erro, teria como verificar?
    • Sugerido como Resposta .Vinicius Vieira quinta-feira, 1 de julho de 2010 16:30
    quinta-feira, 1 de julho de 2010 14:18
  • Vlw funcionou perfeito...
    quinta-feira, 1 de julho de 2010 14:36
  • Qual o erro que ocorre ?
    quinta-feira, 1 de julho de 2010 16:30
  • Qual o erro que ocorre ?


    quinta-feira, 1 de julho de 2010 20:26
  • Qual o erro que ocorre ?


    Meu querido, veja se está igual o script do xp o que vc rodou no windows 7, pois usei esse mesmo script em Win7 e funcionou normalmente.

    De um comparada, deve ser algun caracter que está no lugar errado.

     

    Qualquer duvida poste.

    sexta-feira, 2 de julho de 2010 10:43
  • Excelente amigão!

    Muito obrigado!

    E no caso de eu querer trocar o IP de uma conexão específica?

    Por exemplo:

    3G tem um IP

    Wifi tem outro

    Rede fixa tem outro

    Como faço para escolher a rede que quero fixar alterar um IP?

    segunda-feira, 28 de outubro de 2013 19:07