[Webinar] Streamline your web hosting managementRegister Today

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 723
  • Last Modified:

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
0
aideb
Asked:
aideb
1 Solution
 
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
 
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
Receive 1:1 tech help

Solve your biggest tech problems alongside global tech experts with 1:1 help.

 
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
 
aidebAuthor Commented:
Sorry, didn't realise I hadn't assigned this to you before!

Cheers
0

Featured Post

[Webinar] Improve your customer journey

A positive customer journey is important in attracting and retaining business. To improve this experience, you can use Google Maps APIs to increase checkout conversions, boost user engagement, and optimize order fulfillment. Learn how in this webinar presented by Dito.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now