Usuário com melhor resposta
Setar DNS automaticamente

Pergunta
-
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 certoTemos mais sugestões?!
UA,
Caique
Respostas
-
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 strDNSNext
-
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)
NextLoop
computers.close
-
Todas as Respostas
-
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 strDNSNext
-
-
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)
NextLoop
computers.close
-
-