VbScript : pour mettre à jour DNS via DHCP

Résolu/Fermé
Leteint
Messages postés
45
Date d'inscription
jeudi 17 août 2006
Statut
Membre
Dernière intervention
2 octobre 2006
- 2 oct. 2006 à 12:17
 doreen5 - 8 mai 2009 à 15:08
Bonjour,
Je cherche la méthode pour passer un poste en IP fixe + DNS fixe en full DHCP.
Malheureusement, la methode .enableDHCP() ne marche pas pour le DNS.
Quelqu'un peut il m'aider svp ?

Merci d'avance

strComputer = "."

DomainDNSRegistrationEnabled = FALSE

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
errEnableDHCP = objNetAdapter.EnableDHCP()
errEnableDHCP = objNetAdapter.DomainDNSRegistrationEnabled

Next

2 réponses

Leteint
Messages postés
45
Date d'inscription
jeudi 17 août 2006
Statut
Membre
Dernière intervention
2 octobre 2006
6
2 oct. 2006 à 16:11
j'ai trouvé : ça tient dans l'ordre des methodes :
il faut d'abord vider le DNS puis s'occuper du DHCP

objNetAdapter.setDNSServersearchOrder()
objNetAdapter.EnableDHCP()

et là : ça marche ;)
1
bonjour jai misere avec mon dns il y as des pages que je ne peux pluie ouvrir a cause de sa tu peux maide merci je connais pas malle sa les ordi mes je trouve pas le dns merci pour ton aide a bientot bye bye
0
Leteint
Messages postés
45
Date d'inscription
jeudi 17 août 2006
Statut
Membre
Dernière intervention
2 octobre 2006
6
2 oct. 2006 à 16:12
cf ci dessus
0