none
Configuracao de rede completa RRS feed

  • Pergunta

  • Boa tarde galera,


    tava precisando de um script de q faca as seguintes alteracoes nas propriedades de rede

    endereco de ip

    mascara

    gateway

    dns preferencial

    dns alternativo


    alem do mais, se possivel, colocar o computador em um dominio com login e senha  e alterar o nome do computador e colocar um endereco proxy com sua respectiva porta.   =]


    andei procurando no forum axei algo parecido no post do
    Adriano Maná, so que falta o ip e o dns alternativo junto com proxy.

    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



    vlw.


    sexta-feira, 14 de novembro de 2008 20:23

Respostas