Scripted DNS server change on workstations

I am looking for scripted solution to change the DNS settings on a number of workstations which have statically assigned IP addresses (and therefore DNS settings).

All the workstations are in a domain and I will probably use group policy to deploy the script.

I created a script myself which used NETSH however a number of the workstations are in other languages and therefore the adapter name is different. Also, on some machines people have renamed the adapters.

The clients are mainly Windows XP but there are also some Windows 2000, Vista and Windows 7

Incase anything goes wrong and settings need to be reverted I need to log the before and after to C:\Temp\Networksettings.log

Some machines have multiple adapters and therefore I want to ensure that only the adapter with a 10.x.x.x address range have their DNS servers changed.

The DNS servers need to be
10.44.99.1
10.44.99.2


BTW - I know that these clients *should* be configured to use DHCP but we have other issues preventing that at the moment!

Thanks
LVL 2
aidebAsked:
Who is Participating?
 
BigRedRPBCommented:
Sorry, forgot that you wanted to log the old servers.  Here's an update.
SetDNS.vbs
0
 
Adam BrownSr Solutions ArchitectCommented:
You'd use the NETSH utility in the command prompt to do this. http://www.petri.co.il/configure_tcp_ip_from_cmd.htm has more info.
0
 
Gaurav SinghSolution ArchitectCommented:
Dim strIPAddress
Dim strSubnetMask
Dim strGateway
Dim intGatewayMetric
Dim strDns1
Dim strDns2

strIPAddress = "10.10.10.50"
strSubnetMask = "255.255.255.0"
strGateway = "10.10.10.1"
intGatewayMetric = 1
strDns1 = "10.10.10.9"
strDns2 = "10.10.10.10"

Set objShell = WScript.CreateObject("Wscript.Shell")
objShell.Run "netsh interface ip set address name=""Local Area Connection"" static " & strIPAddress & " " & strSubnetMask & " " & strGateway & " " & intGatewayMetric, 0, True
objShell.Run "netsh interface ip set dns name=""Local Area Connection"" static "& strDns1, 0, True
objShell.Run "netsh interface ip add dns name=""Local Area Connection"" addr="& strDns2, 0, True
Set objShell = Nothing
WScript.Quit
0
Cloud Class® Course: C++ 11 Fundamentals

This course will introduce you to C++ 11 and teach you about syntax fundamentals.

 
aidebAuthor Commented:
acbrown2010 - The problem I have with Netsh as I noted above is that the interface name is often different between machines. It requires you to specify the name of the interface. Thats why I need a scripted solution.

systechadmin: Again, anything that references the name of the interface will fail as some are renamed, some are in French, others are in German. Also, I only want to change the DNS servers and not the IP address,mask or gateway

Thanks for your suggestions so far
0
 
BigRedRPBCommented:
Hey aideb,

Give this one a shot (remember to run as Admin on Vista/7).  I pulled this from a much larger script and tweaked it for what you are looking for so let me know if you run into any issues.

Kevin
SetDNS.vbs
0
 
aidebAuthor Commented:
Sorry, didn't realise I hadn't assigned this to you before!

Cheers
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.