none
script p/ configuração de ip RRS feed

  • Pergunta

  •  

    Pessoal é possivel através de script.vbs configurar minha conexão de rede local?

     

    ex:  Meu chefe vai até a filial que é uma sub-rede diferente, e como lá não tem administrador e usamos IPs fixo ele mesmo tem que mudar manualmente as configurações.

     

    Exite a possibilidade de executar um script e as configurações de IP, MASK, GATWAY e DNS serem configuradas automaticamente? pq ai eu deixaria varios scripts para cada subrede diferente ai onde ele chegar é só executar o script apropriado.

     

    valeu a atenção

    terça-feira, 15 de abril de 2008 19:11

Respostas

  •  

    Fabinho, isto é perfeitamente possível, use este script:

     

     

     

    Code Snippet

     

     

    IP = "192.168.0.2"     'Aqui você define o IP a ser configurado


    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.0.0")
    strGateway = Array("192.10.0.1")
    strGatewayMetric = Array(1)
     
    For Each objNetAdapter in colNetAdapters
         
        errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
        errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
       
        arrDNSServers = Array("DNS1", "DNS2") ' nessa linha é definido os DNS's primarios e secundários.
        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

     

     

     

     

    Grande Abraço

     

     

    Welington Lima

    http://welingtonlima.spaces.live.com

     

     

    terça-feira, 15 de abril de 2008 19:19

Todas as Respostas

  •  

    Fabinho, isto é perfeitamente possível, use este script:

     

     

     

    Code Snippet

     

     

    IP = "192.168.0.2"     'Aqui você define o IP a ser configurado


    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.0.0")
    strGateway = Array("192.10.0.1")
    strGatewayMetric = Array(1)
     
    For Each objNetAdapter in colNetAdapters
         
        errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
        errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
       
        arrDNSServers = Array("DNS1", "DNS2") ' nessa linha é definido os DNS's primarios e secundários.
        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

     

     

     

     

    Grande Abraço

     

     

    Welington Lima

    http://welingtonlima.spaces.live.com

     

     

    terça-feira, 15 de abril de 2008 19:19
  • e para voltar para dhcp, inclusive obtendo o dns do dhcp ?

     

    valeu

    quarta-feira, 16 de abril de 2008 18:59
  •  

    Mais simples ainda Diego:

     

     

     

    Code Snippet

    'Script: HAbilitar para DHCP
    'Autor: Welington Lima
    'Data: 10/02/2007
    'Versão: 1.0

     

    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()
        arrDNSServers = Array()
        objNetAdapter.SetDNSServerSearchOrder(arrDNSServers)
       
    Next

     

     

    Grande Abraço

    Welington Lima

    http://welingtonlima.spaces.live.com

     

    quarta-feira, 16 de abril de 2008 19:47
  • Diego, segue script que faz isso:

    set shell = ("wscript.shell")

    shell.run "netsh interface ip set address name="Rede Local" source=dhcp"

    quarta-feira, 16 de abril de 2008 19:57
  • Boa tarde, estou procurando um script VBS que, alem das alterações sugeridas acima, adicione um segundo endereço de gateway, qualquer sugestão é sempre bem vinda.
    quinta-feira, 14 de outubro de 2010 17:54
  • Kara legal, gostei estava precisando justamente disso.

    pra mim deu certo...

     

    ficou assim..

     

     

    IP = "192.168.0.222"     'Aqui você define o IP a ser configurado

    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.0")
    strGateway = Array("192.168.0.1")
    strGatewayMetric = Array(1)
     
    For Each objNetAdapter in colNetAdapters
         
        errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
        errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
       
        arrDNSServers = Array("192.168.0.1", "192.168.1.1") ' nessa linha é definido os DNS's primarios e secundários.
        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

     

    > salvar o qrquivo com fixarIP.vbs

    terça-feira, 14 de junho de 2011 14:07
  • E para rede sem fio como ficaria?
    segunda-feira, 7 de novembro de 2011 17:59
  • ###Teste o script em vbs não funcionou no windows 10, entretanto este script abaixo funcionou perfeitamente:

    rem --------------------------------- 
    netsh int ip set address name="ethernet" static 192.168.100.210 255.255.255.0 192.168.100.1 
    netsh int ip set dns name="ethernet" static 8.8.8.8 
    netsh int ip add dns name="ethernet" 8.8.4.4
    nbtstat -R 
    ipconfig /flushdns 
    rem ---------------------------------

    ###só não esquecer de trocar "ethernet" pelo "NomeDaSuaPlacaDeRede".

    sexta-feira, 4 de maio de 2018 02:03