Duvida sobre vb

0 respostas
E

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 usuario alterar o final ou se nao for possivel o ip inteiro

exemplo

10.10.0.___

Criado 19 de setembro de 2018
Respostas 0
Participantes 1