VbScript : pour mettre à jour DNS via DHCP

Résolu
Leteint Messages postés 45 Statut Membre -  
 doreen5 -
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 Statut Membre 6
 
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
doreen5
 
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 Statut Membre 6
 
cf ci dessus
0