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?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

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
systechadminConsultantCommented:
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
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
OWASP: Avoiding Hacker Tricks

Learn to build secure applications from the mindset of the hacker and avoid being exploited.

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
BigRedRPBCommented:
Sorry, forgot that you wanted to log the old servers.  Here's an update.
SetDNS.vbs
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
aidebAuthor Commented:
Sorry, didn't realise I hadn't assigned this to you before!

Cheers
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
VB Script

From novice to tech pro — start learning today.