VbScript : pour mettre à jour DNS via DHCP

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