none
Setar DNS automaticamente RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Aee Rapazeada,

    Tenho um ambiente para administrar onde varias localidades não estão com o DNS correto nas estações, gostaria de colocar um script para cada localidade onde no momento do logon fosse alterado o DNS para o especificado no script.

    Temos como fazer isso?!

    OBS: Ja tentei fazer pelo comando setdns via BAT de comando e não deu muito certo

    Temos mais sugestões?!

    UA,

    Caique

    segunda-feira, 7 de agosto de 2006 15:40
    |

Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar

     

    Caique,

     

    Segue um exemplo que seta o dns primário para 10.1.1.1 e o secundário para 10.1.1.2

     

    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    Set colNetAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

    strDNS=array("10.1.1.1","10.1.1.2")
     
    For Each objNetAdapter in colNetAdapters
      objNetAdapter.SetDNSServerSearchOrder strDNS

    Next

    segunda-feira, 7 de agosto de 2006 16:06
    |
    Moderador
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Caso queira executar remotamente para um grupo de máquinas, basta criar um Txt com o nome computers.txt no C:\ em cada linha coloque o nome das máquinas que quer alterar e salve as linhas abaixo num arquivo .VBS

    On Error Resume Next

    Dim Arquivos,Computers,Lercomp

    Set arquivos = CreateObject("Scripting.FileSystemObject")
    Set Computers = arquivos.OpenTextFile("C:\Computers.txt")

    Do Until computers.AtEndOfStream
     lercomp = Computers.ReadLine


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

    Set colNetCards = objWMIService.ExecQuery _
        ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")

    For Each objNetCard in colNetCards
        arrDNSServers = Array("159.151.38.50", "10.198.10.228")
        objNetCard.SetDNSServerSearchOrder(arrDNSServers)
    Next

    Loop

    computers.close

    terça-feira, 8 de agosto de 2006 12:51
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar
    Tem um post no meu blog exatamente sobre esse assunto...

    http://viniciuscanto.blogspot.com/2006/07/configurao-da-rede-script-ou-no.html

    []s,


    Vinicius Canto
    terça-feira, 8 de agosto de 2006 17:12
    |
    Moderador

Todas as Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar

     

    Caique,

     

    Segue um exemplo que seta o dns primário para 10.1.1.1 e o secundário para 10.1.1.2

     

    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    Set colNetAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

    strDNS=array("10.1.1.1","10.1.1.2")
     
    For Each objNetAdapter in colNetAdapters
      objNetAdapter.SetDNSServerSearchOrder strDNS

    Next

    segunda-feira, 7 de agosto de 2006 16:06
    |
    Moderador
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Obrigado Fabio,

    Vou testar e posto resultados..

    UA,

    Caique

    segunda-feira, 7 de agosto de 2006 17:42
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Caso queira executar remotamente para um grupo de máquinas, basta criar um Txt com o nome computers.txt no C:\ em cada linha coloque o nome das máquinas que quer alterar e salve as linhas abaixo num arquivo .VBS

    On Error Resume Next

    Dim Arquivos,Computers,Lercomp

    Set arquivos = CreateObject("Scripting.FileSystemObject")
    Set Computers = arquivos.OpenTextFile("C:\Computers.txt")

    Do Until computers.AtEndOfStream
     lercomp = Computers.ReadLine


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

    Set colNetCards = objWMIService.ExecQuery _
        ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")

    For Each objNetCard in colNetCards
        arrDNSServers = Array("159.151.38.50", "10.198.10.228")
        objNetCard.SetDNSServerSearchOrder(arrDNSServers)
    Next

    Loop

    computers.close

    terça-feira, 8 de agosto de 2006 12:51
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar
    Tem um post no meu blog exatamente sobre esse assunto...

    http://viniciuscanto.blogspot.com/2006/07/configurao-da-rede-script-ou-no.html

    []s,


    Vinicius Canto
    terça-feira, 8 de agosto de 2006 17:12
    |
    Moderador
  • Question
    Entrar para Votar
    0
    Entrar para Votar
    Como faço caso queira setar o dns automaticamente através de script? Deixar Dinamico ao inves de estatico.

    Abraços
    quinta-feira, 16 de agosto de 2007 23:02
    |