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.___