Ir ao conteúdo
  • Cadastre-se

Alterar o IP pelo prompt do DOS no Win2K


mdablio

Posts recomendados

Oi, segue um script para definir um IP estático a um computador.

Salve o conteúdo do script para um arquivo texto e salve o arquivo com a extensão .VBS.

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 "O endereco IP foi alterado com sucesso!"

Else

WScript.Echo "Ocorreu um erro! O endereco IP não foi alterado..."

End If

Next

Onde está strComputer = "." no caso é a máquina onde está executando o script, para alterar em uma máquina da rede use strComputer = "COMPUTADOR01", no caso o nome do computador e você precisa ser administrador do domínio ou ter acesso de administrador no computador onde isso vai ser executado.

Para máquinas Windows 98 e NT4 você tem que instalar o CLIENTE de Active Directory, para 2000, XP, 2003 é só executar.

Abraço,

Celso

Link para o comentário
Compartilhar em outros sites

  • 3 semanas depois...

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...