Script - IP Dinâmico para Estático

Definindo um IP Dinâmico (DHCP) para Estático (FIXO)

Salvar o conteúdo abaixo em um arquivo de texto com a extensão .VBS

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colNetAdapters = objWMIService.ExecQuery _
    ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

strIPAddress = Array("10.0.1.41")
strSubnetMask = Array("255.255.248.0")
strGateway = Array("10.0.0.1")
strGatewayMetric = Array(1)
strDNS = Array("10.0.0.60","10.0.0.1")

For Each objNetAdapter in colNetAdapters
    errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
    errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
    objNetAdapter.SetDNSServerSearchOrder strDNS
Next

Link com solução completa:

 

http://social.technet.microsoft.com/Forums/pt/scriptadminpt/thread/83ff2669-d023-4c16-9844-669bf7322eac

 

Não esqueça de deixar seu comentário!