none
Script de opções para escolha de multiplos IP's RRS feed

  • Pergunta

  • Amigos,

    Trabalho na área de Telecomunicações e preciso acessar diversos equipamentos com ip's diferentes, e com isto preciso fazer sempre que for acessar um equipamento diferente, tentei criar alguns scripts, porem em nenhum obtive exito para executar com sucesso.

    Gostaria de saber se algum amigo ja teve problema parecido?

    a ideia e' a seguinte:

    colocar 4 opções

    Opção 01

    criar um ip para equipamento A

    Endereço IP xxx.xxx.x.2
    Mascara de sub-rede 255.255.255.0
    Gateway padrão xxx.xxx.x.1

    Opção 02

    Criar ip para Equipamento B

    Endereço IP xxx.xxx.x.249
    Mascara de sub-rede 255.255.255.0
    Gateway padrão xxx.xxx.x.254

    Opção 03 ip para equipamento C

    Endereço IP xxx.xxx.x.3
    Mascara de sub-rede 255.255.255.0
    Gateway padrão xxx.xxx.10.1

    Opção 04

    limpar ip

    Algum amigo já teve ou tem um script parecido?

    desde já agradeço a ajuda!

    sexta-feira, 1 de março de 2013 15:12

Respostas

  • Cria um .BAT e coloca o comando

    cscript "c:\caminho completo do seu script.vbs"

    E sempre execute pelo .BAT usando "Executar como Administrador"


    Fábio de Paula Junior

    • Marcado como Resposta Weder.TEL terça-feira, 5 de março de 2013 14:55
    terça-feira, 5 de março de 2013 14:35
    Moderador

Todas as Respostas

  • Cara eu também estou precisando do mesmo script.

    Você conseguiu algo?

    sábado, 2 de março de 2013 12:10
  • Bill_7,

    Ainda não consegui, já tem 3 dias que estou esfumaçando o Tico e Teco e todos que tento não dá certo!

    sábado, 2 de março de 2013 16:02
  • Senhores,

    Veja este exemplo (em VBScript), tentem adicionar mais opções, se não conseguirem enviem o seu script modificado que eu ajudo. No exemplo abaixo existem duas opções

    strComputer = "."
    
    Opcoes=array("1 - Configuração X","2 - Configuração Teste")
    
    'Monta Mensagem
    for each Opt in Opcoes
    	msg = msg & Opt & chr(13)
    next
    
    Resultado= Inputbox ("Selecione uma opção: " & chr(13) & chr(13) & msg)
    
    Select Case Resultado
    
    	Case 1
    		' ------ INITIAL CONFIGURATION ------
    		strConnection = "Conexão local 2"
    		strIP = Array("10.1.1.50")
    		strMask = Array("255.255.255.0")
    		strGatewayIP = Array("10.1.1.1")
    		arrDNSServers = Array("4.1.1.1", "4.2.2.2")
    		' ------ END CONFIGURATION ---------
    
    	Case 2
    		' ------ INITIAL CONFIGURATION ------
    		strConnection = "Conexão local 2"
    		strIP = Array("192.168.0.1")
    		strMask = Array("255.255.255.0")
    		strGatewayIP = Array("192.168.0.100")
    		arrDNSServers = Array("4.1.1.1", "4.2.2.2")
    		' ------ END CONFIGURATION ---------
    
    	Case Else
    		msgbox "Opção Inválida"
    		wscript.quit
    End select
    
    set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    set colNA = objWMI.ExecQuery("select * " & _
                                " from Win32_NetworkAdapter " & _
                                " where NetConnectionID = '" & strConnection & "'" ) 
    for each objNA in colNA
       set colNAConfig = objWMI.ExecQuery _
          ("ASSOCIATORS OF {Win32_NetworkAdapter.DeviceID='" & _
            objNA.DeviceID & "'} " & _
          " WHERE resultClass = win32_NetworkAdapterConfiguration ")
       for each objNAConfig in colNAConfig
          intRC = objNAConfig.EnableStatic(strIP,strMask)
          intRC2 = objNAConfig.SetGateways(strGatewayIP)
          if intRC = 0 and intRC2 = 0 then
             WScript.Echo "IP address configured for " & strConnection
          elseif intRC = 1 or intRC2 = 1 then
             WScript.Echo "You must reboot for the changes to take effect for " & _
                          strConnection
          else
             WScript.Echo "There was an error configuring IP for " & _
                          strconnection & ": " & intRC & " and " & intRC2
          end if
       next
    next
    Set objWMIService = GetObject("winmgmts:" _
      & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set Nics = objWMIService.ExecQuery _
      ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
    For Each Nic In Nics
      intSetDNSServers = Nic.SetDNSServerSearchOrder(arrDNSServers)
      If intSetDNSServers = 0 Then
        WScript.Echo " DNS Servers set!"
      Else
        WScript.Echo " Error setting DNS server info."
      End If
    Next

    Ref.:

    How to change IP, Gateway and DNS with VBScript

    http://www.isrcomputing.com/knowledge-base/programming-tips/112-how-to-change-ip,-gateway-annd-dns-with-vbscript.html


    Fábio de Paula Junior

    segunda-feira, 4 de março de 2013 03:00
    Moderador
  • Aguardo o testes.

    Fábio de Paula Junior

    segunda-feira, 4 de março de 2013 20:45
    Moderador
  • Olá Fábio,

    Não sei se tem alguma coisa a ver meu OS é o Windows 7 Home Premium. 

    Todos testes que fiz retorna praticamente a mesma falha

    houve um erro ao configurar IP para local area connection: -2147217405 and 67

    Que é esta função que diz

    WScript.Echo "There was an error configuring IP for " & _ strconnection & ": " & intRC & " and " & intRC2

    apenas a traduzi.

    no Windows7 tem que executar alguns arquivos como administrador, porem o arquivo .vbs não aparece esta opção.

    Estive agora inicio da Noite verificando mas não consigo ver onde esta a falha!

    não modifiquei nada na sua script apenas traduzi onde esta em inglês.

    Grato pela paciência e colaboração!

    terça-feira, 5 de março de 2013 00:39
  • Weder,

    Abra um prompt de comando com a opção "Executar como Administrador", vá até a pasta onde esta o .VBS, execute assim:

    cscript Nome_do_script.vbs

    Se funcionar depois nós conseguimos uma forma de executar via .BAT chamando o .VBS.


    Fábio de Paula Junior

    terça-feira, 5 de março de 2013 12:32
    Moderador
  • Fábio,

    Funcionou perfeitamente.

    Provável que haja um comando que execute o .vbs como administrador antes de tudo, ou seja ao abrir o mesmo ja abra em modo administrador.

    terça-feira, 5 de março de 2013 13:22
  • Cria um .BAT e coloca o comando

    cscript "c:\caminho completo do seu script.vbs"

    E sempre execute pelo .BAT usando "Executar como Administrador"


    Fábio de Paula Junior

    • Marcado como Resposta Weder.TEL terça-feira, 5 de março de 2013 14:55
    terça-feira, 5 de março de 2013 14:35
    Moderador
  • Obrigado Fábio!

    Tenha uma otima semana!

    terça-feira, 5 de março de 2013 14:56