Fonction : Configurer suffixes DNS par Script

Modification des suffixes DNS en vbs sur les cartes réseaux

Exemple de script

 strComputer = "."
 arrNewDNSSuffixSearchOrder = Array("leblogosd.fr", "Labo.lan")
  
 Set objWMIService = GetObject("winmgmts:" _
  &amp; "{impersonationLevel=impersonate}!\\" &amp; strComputer &amp; "\root\cimv2")
 Set colNicConfigs = objWMIService.ExecQuery _
  ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
Set objNetworkSettings = _
objWMIService.Get("Win32_NetworkAdapterConfiguration")
intSetSuffixes = _
objNetworkSettings.SetDNSSuffixSearchOrder(arrNewDNSSuffixSearchOrder)

strComputer = "."

arrNewDNSSuffixSearchOrder = Array("leblogosd.fr", "Labo.lan")

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colNicConfigs = objWMIService.ExecQuery _

("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")

Set objNetworkSettings = _

objWMIService.Get("Win32_NetworkAdapterConfiguration")

intSetSuffixes = _

objNetworkSettings.SetDNSSuffixSearchOrder(arrNewDNSSuffixSearchOrder)

Laisser un commentaire Annuler la réponse.

Cet article n'a pas été revu depuis la publication.

Cet article a été créé par david le 26 décembre 2016.