none
Alterar DNS RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Bom dia Pessoal,

     

    Gostaria de saber se existe algum script que eu possa usar na minha rede para mudar o DNS das estações. Na verdade existe um DNS configurado manualmente para todas. Só quero habilitar a opção "Obter endereço dos servidores de DNS automaticamente" que ficam nas configurações da conexão de rede.

     

    Fico no aguardo,

     

     

    segunda-feira, 20 de agosto de 2007 12:59
    |

Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Eder, você pode usar este aqui:

     

    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()
        arrDNSServers = Array()
        objNetAdapter.SetDNSServerSearchOrder(arrDNSServers)
       
    Next

     

     

     

    Grande abraço.

    segunda-feira, 20 de agosto de 2007 13:16
    |

Todas as Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Eder, você pode usar este aqui:

     

    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()
        arrDNSServers = Array()
        objNetAdapter.SetDNSServerSearchOrder(arrDNSServers)
       
    Next

     

     

     

    Grande abraço.

    segunda-feira, 20 de agosto de 2007 13:16
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Bom dia Wemali,

     

    Muito obrigado... funcionou perfeitamente... valeu!!!

     

    Att.

    quinta-feira, 23 de agosto de 2007 10:18
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Olá Welington,

     

    Ótima dica.

     

    Pergunto:

    Se eu quiser colocar um DNS de um AD por exemplo 192.168.0.2, neste script, como faço?

     

    Abraços

     

    Jairo

    sábado, 24 de novembro de 2007 05:20
    |