2 configurações de rede no mesmo computador

Hardware para redes, configurações de redes, tudo sobre redes excepto Segurança Informática que tem o seu fórum próprio

Moderadores: Administradores, Moderadores

2 configurações de rede no mesmo computador

Mensagempor bocas2k » Quarta Nov 23, 2005 9:13

A situação é a seguinte. tenho um portatil que uso em casa , trabalho e na faculdade, no trabalho a rede tem IP fixo. em casa e na faculdade o IP é atribuido automaticamente.
Existe alguma maneira de poder ter as duas configurações e poder optar qual quero ligar ou tenho mesmo que andar a alterar o IP sempre que mudo de rede?
Avatar do Utilizador
bocas2k
Aprendiz
Aprendiz
 
Mensagens: 47
Registado: Quarta Out 06, 2004 13:57

Mensagempor jbz » Quarta Nov 23, 2005 10:45

No teu desktop crias um novo arquivo *.TXT e copias as seguintes linhas lá para dentro:

Script para IP fixo do trabalho:
- - - - - - -
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strIPAddress = Array("O teu IP Fixo")
strSubnetMask = Array("A tua máscara de rede")
strGateway = Array("O teu gateway")
strGatewayMetric = Array(1)
For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
If errEnable = 0 Then
WScript.Echo "O endereço IP foi alterado."
Else
WScript.Echo "Não foi possivel alterar o endereço IP."
End If
Next
- - - - - - -
Após alterares os valores a negrito tens de alterar a extensão do teu *.TXT para *.VBS


Script para IP dinâmico em casa e Universidade:

- - - - - - - - - - -
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each objNetAdapter In colNetAdapters
errEnable = objNetAdapter.EnableDHCP()
Next
- - - - - - - - - - - -
Aqui idem, tens de alterar a extensão do ficheiro de TXT para VBS

E é tudo. Quando correres o 1º. script ficas automaticamente com IP fixo e correndo o 2º. ficas com IP dinâmico.
Manda bir ....
jbz
Membro de Prata
Membro de Prata
 
Mensagens: 146
Registado: Quarta Ago 24, 2005 10:41
Localização: Sintra - Lisboa

Mensagempor filduarte » Quarta Nov 23, 2005 11:40

eu uso uma aplicação, que me permite no arranque ou mesmo durante uma sessão Winxp alterar as definições de rede para o local onde me encontro, é fantástica...

MULTINETWORK MANAGER...

Com as configurações previamente definidas, aparece-me uma combo-box onde eu escolho onde me encontro e voilá

Cumps,
........................................................................
Nota- partindo do principio que vivemos num país democrata (???), todas as opiniões são válidas desde que não provoquem danos irreversiveis noutros utilizadores deste forum ;)
filduarte
Membro de Ouro
Membro de Ouro
 
Mensagens: 710
Registado: Quinta Dez 23, 2004 10:03
Localização: VNGaia/Coimbra

Mensagempor jbz » Quarta Nov 23, 2005 12:02

filduarte Escreveu:eu uso uma aplicação, que me permite no arranque ou mesmo durante uma sessão Winxp alterar as definições de rede para o local onde me encontro, é fantástica...

MULTINETWORK MANAGER...

Com as configurações previamente definidas, aparece-me uma combo-box onde eu escolho onde me encontro e voilá

Cumps,


Já tinha respondido aum post deste género e não me lembrei que o podes fazer com software
http://www.hardware.com.pt/forum/viewtopic.php?p=230311&highlight=#230311
Manda bir ....
jbz
Membro de Prata
Membro de Prata
 
Mensagens: 146
Registado: Quarta Ago 24, 2005 10:41
Localização: Sintra - Lisboa

Mensagempor Bore2Death » Quarta Nov 23, 2005 22:20

É nestas situações que me fazemlembrar de como gosto de linux.
Acer Aspire 1694WLMI (2ª geração)
Pentium M 760 a 2GHz
1 GB DDR2 400
Ati Radeon Mobility X700 128 MB
100 GB Seagate
Bore2Death
Membro de Prata
Membro de Prata
 
Mensagens: 121
Registado: Terça Jun 14, 2005 21:37

Mensagempor filduarte » Quinta Nov 24, 2005 16:54

e como eu gosto de Linux e Windows ;)
........................................................................
Nota- partindo do principio que vivemos num país democrata (???), todas as opiniões são válidas desde que não provoquem danos irreversiveis noutros utilizadores deste forum ;)
filduarte
Membro de Ouro
Membro de Ouro
 
Mensagens: 710
Registado: Quinta Dez 23, 2004 10:03
Localização: VNGaia/Coimbra


Voltar para Redes Informáticas

Quem está ligado:

Utilizador a ver este Fórum: Nenhum utilizador registado e 1 visitante

cron