Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Windows Windows Serveur Administration changement du ip du DNS

changement du ip du DNS

2 réponses
Avatar
abdul
Bonjour,

y'a t'il un script qui permet de modifier l'adresse du DNS de toutes les
machines jointes au domaine (script à inserer au niveau du logon de
demarrage de la session)

merci d'avance
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Ludovik DOPIERALA
Tu peux utiliser ce script :
On Error Resume Next

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

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

For Each objNetCard in colNetCards
arrDNSServers = Array("192.168.1.100", "192.168.1.200")
objNetCard.SetDNSServerSearchOrder(arrDNSServers)
Next

--
Ludovik DOPIERALA
http://www.c2points.com
MCSE, MCT Microsoft
MVP Windows System - Infrastructure Architect
CCEA Citrix Metaframe




Bonjour,

y'a t'il un script qui permet de modifier l'adresse du DNS de toutes les
machines jointes au domaine (script à inserer au niveau du logon de
demarrage de la session)

merci d'avance





Avatar
abdul
Ok je l'ai testé ca marche

Merci beaucoup

Svp qu'est ce qu'il ya à modifier pour les adresses de serveur wins (on a 2
serveurs WINS)

Merci encore une fois

"Ludovik DOPIERALA" wrote in
message news:
Tu peux utiliser ce script :
On Error Resume Next

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

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

For Each objNetCard in colNetCards
arrDNSServers = Array("192.168.1.100", "192.168.1.200")
objNetCard.SetDNSServerSearchOrder(arrDNSServers)
Next

--
Ludovik DOPIERALA
http://www.c2points.com
MCSE, MCT Microsoft
MVP Windows System - Infrastructure Architect
CCEA Citrix Metaframe




Bonjour,

y'a t'il un script qui permet de modifier l'adresse du DNS de toutes les
machines jointes au domaine (script à inserer au niveau du logon de
demarrage de la session)

merci d'avance