Usuário com melhor resposta
Script Para mudar o Gateway

Pergunta
-
Respostas
-
Como ninguem responde esse topico, irei responder pois encontrei a resposta para minha duvida:
Segue o Script para mim mesmo:
copia esse Comando cola em um *.txt e salva como *.vbs . No campo da Mscara / Gateway e DNS vc deve escolher a configuraçao desejada e acabou!
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strSubnetMask = Array("255.255.255.0")
strGateway = Array("192.168.0.254")
strGatewayMetric = Array(1)
strDNS = Array("192.168.0.254")
For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
objNetAdapter.SetDNSServerSearchOrder strDNS
Next
Todas as Respostas
-
-
Como ninguem responde esse topico, irei responder pois encontrei a resposta para minha duvida:
Segue o Script para mim mesmo:
copia esse Comando cola em um *.txt e salva como *.vbs . No campo da Mscara / Gateway e DNS vc deve escolher a configuraçao desejada e acabou!
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strSubnetMask = Array("255.255.255.0")
strGateway = Array("192.168.0.254")
strGatewayMetric = Array(1)
strDNS = Array("192.168.0.254")
For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
objNetAdapter.SetDNSServerSearchOrder strDNS
Next
-
pessoal como faço para executar esse script remotamente em uma estação com windows Vista?? Executei o script e funcionou perfeitamente, executei localmente na máquina com windows vista e também funcionou.
Quando executo o script através da minha máquina remotamente não funciona. -
Olá,
Você pode executar o psexec do sysinternals, segue link para download:
http://technet.microsoft.com/en-us/sysinternals/bb896649.aspx
Depois a sintaxe dele é assim:
psexec \\marklap c:\bin\test.exe
Se tiver dúvida, segue link com exemplos:
http://www.microsoft.com/brasil/technet/sysinternals/security/psexec.mspx
Até mais,
Jesiel
Obs.: Se útil, classifique
-
-
-
-
Pode utilizar este bat tambem
@echo offset Rede="Conexao Local"
set address1="192.168.1.1"
set address2="192.168.1.2"
set address3="192.168.1.3":menu
cls
echo ---------------------------------------------------------------
echo - -
echo - SCRIPT alteracao do Gateway do micro -
echo - -
echo - 1 - Gateway 1 -
echo - 2 - Gateway 2 -
echo - 3 - Gateway 3 -
echo - 4 - Sair -
echo - -
echo - Selecione uma das opcoes [1 2 3 ou 4] -
echo ---------------------------------------------------------------
set /p opcao=Selecione :
set opcao=%opcao:~0,1%if "%opcao%"=="1" goto pad
if "%opcao%"=="2" goto pri
if "%opcao%"=="3" goto sec
if "%opcao%"=="4" goto fim
echo Opcao invalida
goto menu
:pad
echo Alterando o Gateway da %Rede% para %address1%
netsh interface ip set address %Rede% gateway = %address1% gwmetric = 1
goto fim:pri
echo Alterando o Gateway da %Rede% para %address2%
netsh interface ip set address %Rede% gateway = %address2% gwmetric = 1
goto fim:sec
echo Alterando o Gateway da %Rede% para %address3%
netsh interface ip set address %Rede% gateway = %address3% gwmetric = 1
goto fim
:fim
echo ---------------------------------------------------------------
echo - -
echo - Informacoes da placa de rede -
echo - -
echo - -
echo ---------------------------------------------------------------
ipconfig
pause > nul
as -
Pessoal,
eu preciso definir tambem , dois DNS , Preferencial e Alternativo. como incluir isso no Script do Alexandre
Obrigado
anderson@c3informatica.com -
anderson, troca a linha
strDNS = Array("192.168.0.254")
por strDNS = Array("192.168.0.254", "192.168.0.254")
ai voce altera o ultimo valor para o dns alternativo que voce quiser..
tenho só uma duvida, estou precisando apagar o valor do gateway da minha placa de rede. que parametros eu passo?
strGateway = Array("") ????
strGateway = Array(" . . . ") ????
strGateway = Nothing ????
estou procurando desde manha q ainda nao achei nada, se alguem puder me ajudar.
Obrigado. -
ola jose mario, tudo bom?
entao, tenho aqui um pc com a configuração da placa em ip dinamico
a rede que ele esta conectado tem duas internets, uma em 192.168.0.1 e outra em .3
a .3 é mais rapida e mais instavel, gostaria de que a cada minuto ( por exemplo ) eu verificassese a internet esta ativa, caso negativo renovar meu gateway, cheguei no seguinte codigo.....
TESTE.BAT*********************
:inicio
ping 8.8.8.8 > ping.txt
(se primeira letra de ping.txt = R )*
(contador de tempo pra 1 minuto )*
goto :inicio
(se nao)
ipconfig /release "Ethernet"
ipconfig /renew "Ethernet"
goto :inicio*************************
onde coloquei entre ( ) é onde nao sei que codigo usar
poderia ajudar? muito obrigado