Modification des suffixes DNS en vbs sur les cartes réseaux
Exemple de script
1 2 3 4 5 6 7 8 9 10 11 |
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) |
Cet article n'a pas été revu depuis la publication.
Cet article a été créé par david le 26 décembre 2016.
Laisser un commentaire