DNS Change On Multiple Servers

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

DNS Change On Multiple Servers

Logged in as: Guest

arrSession:exec spGetSession 2,2,63774

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> DNS Change On Multiple Servers
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

DNS Change On Multiple Servers - 8/24/2008 11:13:07 PM

anurag_cancerian

Posts: 5
Score: 0
Joined: 5/4/2008
Status: offline

Hi,

I have below script which can change DNS on given server but I want to change DNS on multiple servers NIC cards can someone help me to modify script which can change DNS on multiple servers NIC cards.

Script:

On Error Resume Next
servernames = Array("server1","server2")
strComputer = "."
NewDNS1 = "1.2.2.1"
NewDNS2 = "1.2.2.2"
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
For i = 0 to 1
arrDNS = Array(NewDNS1,NewDNS2)
objNetCard.SetDNSServerSearchOrder(arrDNS)
Next

Thanks and Regards,

Anurag