Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- strComputer = "."
- Set objWMIService = GetObject("winmgmts:" _
- & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
- Set colNetCards = objWMIService.ExecQuery _
- ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
- For Each objNetCard in colNetCards
- arrDNSServers = Array("94.140.14.15", "94.140.15.16")
- objNetCard.SetDNSServerSearchOrder(arrDNSServers)
- Next
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement