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
