none
Mudar IP,Mascara e Gateway RRS feed

  • Pergunta

  • Como eu podeia mudar o IP,mascará e o Gateway conforme a localidade eu selecionar um Local:

    Ex.: Tenho varias localidades (filiais) cada uma com um endereço IP, ..., e dou um nome para cada uma delas. Queria através de um script, selecionar ou digitar o nome do local e o script configurar  o ip de acordo com que já tá dentro de um arquivo texto.

    Vi este exemplo http://viniciuscanto.blogspot.com/2006/07/configurao-da-rede-script-ou-no.html e tente mudar o ip pelo netsh, mas esta dizendo que não reconhece o comando set conforme exemplo do proprio Windows.

    Tem como fazer isto pelo vbs?

     

    Att.:

    White

     

    quarta-feira, 25 de outubro de 2006 23:20

Respostas

  • White,

        O script abaixo seta o endereço, a mascara, gateway e o DNS.

     


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


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

    sexta-feira, 27 de outubro de 2006 15:58
    Moderador
  • Segue o link:
    http://www.microsoft.com/resources/documentation/windows/xp/all/proddocs/en-us/netsh.mspx?mfr=true

    []s,

    --
    Vinicius Canto <scripterbratgmaildotcom>
    MVP Visual Developer - Scripting
    MCP Windows 2000 Server, Windows XP e SQL Server 2000
    Blog sobre Scripting: http://viniciuscanto.blogspot.com

    sábado, 4 de novembro de 2006 15:02
    Moderador

Todas as Respostas

  • Dá uma olhada nestes arquivos, tem como configurar de tudo em rede. Com exemplos de Scripts em VBS.

    http://www.microsoft.com/downloads/details.aspx?FamilyID=ac4948c2-9605-4ebc-be7e-028e1cec7b5e&DisplayLang=en

    quinta-feira, 26 de outubro de 2006 13:15
    Moderador
  • Como o meu inglês não é nada lá grande coisa, não entendo muito bem o tutorial, teria como postar um exemplo simples, para eu ter uma base por onde começar? Preciso só de um codigo que faça a mudança do IP, mascará e Gateway, fazendo isto, o restante do codigo eu me viro para pedir que usuário entre com a localidade.

     

    Grato pela atenção:

    White

     

     

    quinta-feira, 26 de outubro de 2006 21:29
  • White,

        O script abaixo seta o endereço, a mascara, gateway e o DNS.

     


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


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

    sexta-feira, 27 de outubro de 2006 15:58
    Moderador
  • O comando Set deve vir com uma opção depois dele.. nesse caso, set address

    []s,

    --
    Vinicius Canto <scripterbratgmaildotcom>
    MVP Visual Developer - Scripting
    MCP Windows 2000 Server, Windows XP e SQL Server 2000
    Blog sobre Scripting: http://viniciuscanto.blogspot.com
    sábado, 4 de novembro de 2006 15:00
    Moderador
  • Segue o link:
    http://www.microsoft.com/resources/documentation/windows/xp/all/proddocs/en-us/netsh.mspx?mfr=true

    []s,

    --
    Vinicius Canto <scripterbratgmaildotcom>
    MVP Visual Developer - Scripting
    MCP Windows 2000 Server, Windows XP e SQL Server 2000
    Blog sobre Scripting: http://viniciuscanto.blogspot.com

    sábado, 4 de novembro de 2006 15:02
    Moderador
  • Obrigado pelos exemplos, tentei novamente com netsh, e consegui desevolver uma bat.

    Agora tentarei fazer uma coisa mais dinamica, pois com o netsh, é necessário saber o nome da Conexão, e como não serei eu que utilizarei a bat, e nem só um usuário, teria como inventar algo para capiturar o nome da Conexão?

     

     

    Att.:

     

    • Sugerido como Resposta FeNoel terça-feira, 30 de novembro de 2010 20:53
    segunda-feira, 6 de novembro de 2006 23:54
  • Até dá usando VBScript, mas fica complicado porque aí o script tem que decidir qual dispositivo você quer trocar... dá pra usar expressão regular e tal...
    Isso acontece que, mesmo quando só há uma conexão local. Se quiser ver quais são, baixe o Powershell e digite

    get-wmiobject win32_networkadapter

    []s,

    --
    Vinicius Canto <scripterbr_at_gmail_dot_com>
    MVP Visual Developer - Scripting
    MCP Windows 2000 Server, Windows XP e SQL Server 2000
    Blog sobre Scripting: http://viniciuscanto.blogspot.com

    domingo, 12 de novembro de 2006 02:07
    Moderador
  • Tem como adicionar mais de um IP na placa por esse script

    se puder vc vai me ajudar muito.

     

    esse script está perfeito só está faltando pra me ajudar aqui deixar colocar um 2º ip na placa

     

    obrigado

    sexta-feira, 7 de dezembro de 2007 17:51
  • Usando o NETSH dá também. Dá uma olhadinha na documentação dele...

    []s,

    --
    Vinicius Canto
    MVP Windows Server - Admin Frameworks
    MCP Windows 2000 Server, Windows XP e SQL Server 2000
    Bacharelando em Ciências da Computação - USP

    Blog sobre Scripting e Windows Powershell: http://viniciuscanto.blogspot.com
    sexta-feira, 28 de dezembro de 2007 11:07
    Moderador
  • Alguém tem um exemplo de script VBS que altere o IP e DNS para Automáticos?
    quarta-feira, 10 de junho de 2009 14:38
  • Xande7,

    Conforme o Vinicius, com NETSH é possível fazer isso.
    Instalei o Windows 7 x64 e o script em VB não está funcionando, então uso o NETSH.

    Exemplo para setar IP statico:

    netsh interface ip set address name="Conexao local" source=static addr=192.168.1.40 mask=255.255.255.0 gateway=192.168.1.1 
    netsh interface ip set dns name="Conexao local" source=static addr=192.168.1.1 register=primary
    pause 

    Exemplo para DHCP:

    netsh interface ip set address name="Conexao local" source=dhcp
    netsh interface ip set dns "Conexao local" source=dhcp
    pause

    Cada um dos comandos salve em um bloco de notas e coloque a extensão do arquivo para .bat e pronto. (Execute como Administrador)
    Para mais comandos, segue o link:


    Att,
    Maiko Rech.
    quinta-feira, 15 de outubro de 2009 13:43
  • mbfigueredo como vc conseguiu criar o cmd??? pra troca de gateway????
    terça-feira, 30 de novembro de 2010 16:50