Trocar O Ip Da Conexão Pelo Nome Do Driver De Rede

[raphaelwc]

alguém sabe como Trocar o Ip da conexão pelo nome do driver de rede

[Graymalkin]

No Windows XP você pode chamar o ipconfig passando para ele o parâmetro "/renew" seguido do nome da conexão. Pelo VB você pode fazer esta chamada pela função Shell(). Não sei se isso vale para o Win9x.

Abraços,

Graymalkin

[Guest Raphael William Costa]

É que eu queria atribuir o ip 10.253.93.40 e não dhcp

[Graymalkin]

É que eu queria atribuir o ip 10.253.93.40 e não dhcp

Hummm... isso você pode fazer por uma chave no registro. Não me lembro qual é ela exatamente, mas se você abrir o Regedit e procurar pelo seu IP atual você com certeza a encontrará. Só não sei se a mudança lá é efetivada na hora ou se vai ser necessário reiniciar o computador.

Abraços,

Graymalkin

[Guest Visitante]

Achei este Script mais não sei usar alguém me ajuda!

Dim NetworkAdapter, AdapterConfiguration 'Objects

Dim IPAddress, SubnetMask, Gateway, DNS 'String Arrays

Dim RetVal 'Integers

For Each NetworkAdapter In

GetObject("winmgmts:").InstancesOf("Win32_NetworkAdapter")

If NetworkAdapter.AdapterType = "Ethernet 802.3" Then

For Each AdapterConfiguration In GetObject("winmgmts:").InstancesOf

("Win32_NetworkAdapterConfiguration")

If UCase(AdapterConfiguration.ServiceName) = UCase(NetworkAdapter.ServiceName) Then

IPAddress = Array("192.168.0.10")

SubnetMask = Array("255.255.255.0")

Gateway = Array("192.168.0.1")

DNS = Array("35.8.2.41")

RetVal = AdapterConfiguration.EnableStatic(IPAddress, SubnetMask)

If Not RetVal = 0 Then

WScript.Echo "Failure assigning IP/Subnetmask."

End If

RetVal = AdapterConfiguration.SetGateways(Gateway)

If Not RetVal = 0 Then

WScript.Echo "Failure assigning Gateway."

End If

RetVal = AdapterConfiguration.SetDnsServerSearchOrder(DNS)

If Not RetVal = 0 Then

WScript.Echo "Failure assinging DNS search order."

End If

End If

Next

End If

Next

[raphaelwc]

Achei outro mas esse ele troca o ip de todas as conexões eu queria que ele trocasse o Ip somente da Conexão tem que tem o Driver "eXPerience Drive de Rede"

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colNetAdapters = objWMIService.ExecQuery _

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

strIPAddress = Array("192.168.1.141")

strSubnetMask = Array("255.255.255.0")

strGateway = Array("192.168.1.100")

strGatewayMetric = Array(1)

For Each objNetAdapter in colNetAdapters

errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)

errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)

If errEnable = 0 Then

WScript.Echo "The IP address has been changed."

Else

WScript.Echo "The IP address could not be changed."

End If

Next

[Graymalkin]

O objNetAdapter ali deve ter alguma propriedade que te permita identificar qual é o adaptador que você quer mudar o IP. É preciso olhar as propriedades dele (se ele for criado em tempo de execução você pode utilizar um Watcher para isso).

Abraços,

Graymalkin

[raphaelwc]

Descori como

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colNetAdapters = objWMIService.ExecQuery _

("Select * from Win32_NetworkAdapterConfiguration where ServiceName='TAP0801co'")

strIPAddress = Array("192.168.1.141")

strSubnetMask = Array("255.255.255.0")

strGateway = Array("192.168.1.100")

strGatewayMetric = Array(1)

For Each objNetAdapter in colNetAdapters

errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)

errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)

If errEnable = 0 Then

WScript.Echo "The IP address has been changed."

Else

WScript.Echo "The IP address could not be changed."

End If

Next