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

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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

  • Question
    Entrar para Votar
    1
    Entrar para Votar

    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

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Cara eu também estou precisando do mesmo script.

    Você conseguiu algo?

    sábado, 2 de março de 2013 12:10
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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
  • Question
    Entrar para Votar
    0
    Entrar para Votar
    Aguardo o testes.

    Fábio de Paula Junior

    segunda-feira, 4 de março de 2013 20:45
    |
    Moderador
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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
    |
  • Question
    Entrar para Votar
    1
    Entrar para Votar

    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
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Obrigado Fábio!

    Tenha uma otima semana!

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