0

Bom dia Senhores, pesquisei na internet inteira mas acho que não soube me expressar por isso venho lhes perguntar… tenho um comando VB para alterar o ip do win7 mas gostaria que o comando perguntasse qual ip eu gostaria de colocar segue 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.10.0.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

Na parte strIPAddress = Array("10.10.0.7") 'Coloque o IP fixo gostaria que abrisse uma caixa de texto pra o usuário alterar o final ou se não for possível o ip inteiro, por exemplo:

10.10.0.___
1
  • Para apresentar uma caixa de texto personalizada vc pode usar o componente "Microsoft Maked Edit Control", com ela é possível criar mascaras para o texto.
    – davidterra
    19/09/2018 às 18:46

1 Resposta 1

0

A forma mais simples é utilizando um inputbox. Exemplo:

ip = InputBox("Coloque o IP fixo", "Mudar IP")

Uma outra forma mais trabalhosa mas que traria resultados estéticos melhores seria fazer um form e chamar ele retornando o resultado pra sua variavel.

7
  • strIPAddress = Array InputBox("Frase de descricao", "Titulo da box") 'Coloque o IP fixo 19/09/2018 às 18:04
  • deste jeito nao entendi muito bem? 19/09/2018 às 18:04
  • alterei para ficar mais claro 19/09/2018 às 18:37
  • Bom se eu entendi ficaria assim 21/09/2018 às 12:14
  • strIPAddress = InputBox("Coloque o IP fixo", "Mudar IP") 21/09/2018 às 12:15

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .