Script p/ configurar IP

[Lustor]

Olá galera. Alguem sabe como fazer um script (VB) que troque o IP do comp. por outro pré definido no script, sem abrir as telas de conf. de rede?

[Lustor]

É lamentável que ninguém saiba a resposta, de qualquer forma, para quem se interessou pelo topico, descobri que tem um aplicativo do windows que faz essa operação (o netsh.exe). É só criar um bat e nesse bat colocar:

netsh interface ip set address name="Conexão local" static 192.168.0.100 255.255.255.0 192.168.0.1 1

(isso é uma linha só)

Por exemplo, isso vai mudar o ip da rede com nome Conexão local pro ip 192.168.0.100 e com gateway 192.168.0.1

Ai em outro bat você coloca o outro ip nesse mesmo comando e beleza. Assim que você executar o bat ele já vai mudar o ip.

Até +

[jariosoft]

esso aqui dar certinho... é uma mão na roda....

IP = "192.168.0.204" 'Aqui você define o IP a ser configurado

strComputer="."

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colNetAdapters = objWMIService.ExecQuery _

("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

strIPAddress = Array(IP)

strSubnetMask = Array("255.255.255.0")

strGateway = Array("192.168.0.1")

strGatewayMetric = Array(1)

For Each objNetAdapter in colNetAdapters

errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)

errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)

arrDNSServers = Array("192.168.0.100", "192.168.0.101") ' nessa linha é definido os DNS's primarios e secundários.

objNetAdapter.SetDNSServerSearchOrder(arrDNSServers)

If errEnable = 0 Then

WScript.Echo "O endereço de IP foi modificado com sucesso!!!."

Else

WScript.Echo "O Endereço de Ip não pôde ser Modificado"

End If

Next

>salva como .vbs