Script to switch between Static IP and DHCP

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Script to switch between Static IP and DHCP

Logged in as: Guest

arrSession:exec spGetSession 2,2,2785

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

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Script to switch between Static IP and DHCP
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Script to switch between Static IP and DHCP - 4/24/2005 7:10:18 AM

warhorse

Posts: 7
Score: 0
Joined: 4/24/2005
From:
Status: offline

Hey there scripting gurus!

I am working on a script that is an adaptation of something I found in Microsoft's script center. It is really pretty simple. You enter "cscrip", the name/path of the script, and 3 arguments into a command propmt. This will either enable DHCP on all network adapters or set a static IP based on the arguments you send. Example...

cscript setstaticip.vbs true
enables DHCP on all network adapters

cscript setstaticip.vbs false 172.17.0.15 172.17.0.254
sets static ip with 2nd argument, and gateway with 3rd argument
...it also sets subnet mask and dns address, but those are constants in my case (it would be easy to change though)

I have this script called by a VB program to make it easy to use.

The thing works like a charm on active network connections, but I have noticed one thing...

If you do not have the network cable connected properly then it won't make the changes. I, at the very least, need it to be able to enable DHCP on all network adapters, even those with "network cable uplugged."

The errors I get for these adapters are...
Enable DHCP: 94(Path, file, or object not found)
Set Static IP: 81(Unable to configure DHCP service)

Anyway, I could really use some help on this one.

Thanks a ton!

Matt "WarHorse"

Here is the code. Try it for youself. If things start messing up you can fix it by manually putting the settings back.

On Error Resume Next

' Get argument
Set colArgs = WScript.Arguments
strDHCP = LCase(colArgs(0))
Select Case strDHCP
Case "true" blnDHCP = True
Case "false" blnDHCP = False

Case Else WScript.Echo "Please enter the script name followed by a " & _
"space and true for DHCP or false for Static IP" & _
VbCrLf & "For Static IP you must enter false then a space," & _
VbCrLf & "the ip address then a space, and the gateway address" _
: WScript.Quit
End Select

Set objWMIService = GetObject("winmgmts:")
'Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colNicConfigs = objWMIService.ExecQuery _
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
' If the office uses DHCP, call SetDHCP.
If blnDHCP = True Then
WScript.Echo "You are disconnecting from the restaurant" & _
VbCrLf & "Enabling DHCP on all network adapters ..."
SetDHCP

' If the office uses static IP, call SetStaticIP.
Else
WScript.Echo "You are connecting to " & colArgs(1) & _
VbCrLf & "Enabling static IP addressing on all network adapters ..."
SetStaticIP
End If

'******************************************************************************
Sub SetDHCP

For Each objNicConfig In colNicConfigs
WScript.Echo VbCrLf & "Network Adapter " & objNicConfig.Index & _
VbCrLf & "  " & objNicConfig.Description & VbCrLf
If Not objNicConfig.DHCPEnabled Then
WScript.Echo "  Attempting to enable DHCP ..."
intReturn = objNicConfig.EnableDHCP
If intReturn = 0 Then
WScript.Echo "  DHCP enabled."
Else
WScript.Echo "  Unable to enable DHCP." & " Error #:" & intReturn
End If
intDNS = objNicConfig.SetDNSServerSearchOrder(null)
Err.Clear
Else
WScript.Echo "  DHCP already enabled" & VbCrLf & _
"  DHCP Server:             " & objNicConfig.DHCPServer
Err.Clear
End If

Next
GetSettings

End Sub

'******************************************************************************
Sub SetStaticIP

arrIPAddresses = Array(colArgs(1))
arrSubnetMasks = Array("255.255.255.0")
arrDefaultGateways = Array(colArgs(2))
arrGatewayCostMetrics = Array(1)
arrDNSServers = Array("10.5.0.8")

For Each objNicConfig In colNicConfigs
WScript.Echo VbCrLf & "Network Adapter " & objNicConfig.Index & VbCrLf & _
"  " & objNicConfig.Description & VbCrLf
'If objNicConfig.DHCPEnabled Then
WScript.Echo "  Attempting to disable DHCP and enable static IP ..."
intStaticReturn = objNicConfig.EnableStatic(arrIPAddresses, arrSubnetMasks)
If intStaticReturn = 0 Then
WScript.Echo "  DHCP disabled, static IP address enabled."
Set objNicChanged = objWMIService.Get _
("Win32_NetworkAdapterConfiguration.Index=" & objNicConfig.Index)
intGatewaysReturn = objNicChanged.SetGateways(arrDefaultGateways, _
arrGatewayCostMetrics)
intDNSServers = objNicChanged.SetDNSServerSearchOrder(arrDNSServers)
If intGatewaysReturn = 0 Then
WScript.Echo "    Assigned new default gateways."
Else
WScript.Echo "    Unable to assign default gateways."
End If
If intDNSServers = 0 Then
WScript.Echo "    Assigned new DNS servers."
Else
WScript.Echo "    Unable to assign DNS servers."
End If
Err.Clear
Else
WScript.Echo "  Unable to enable static IP address." & "Error #:" & intStaticReturn
Err.Clear
End If
'Else
'WScript.Echo "  Static IP address already enabled."
'End If
Next
GetSettings

End Sub

'******************************************************************************
Sub GetSettings

Set colNicConfigs = objWMIService.ExecQuery("SELECT * FROM " & _
"Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")

WScript.Echo VbCrLf & "Settings after operation:"
For Each objNicConfig In colNicConfigs
WScript.Echo VbCrLf & _
"Network Adapter " & objNicConfig.Index & VbCrLf & _
"  " & objNicConfig.Description & VbCrLf & VbCrLf & _
"  DHCP Enabled:            " & objNicConfig.DHCPEnabled
strIPAddresses = ""
If Not IsNull(objNicConfig.IPAddress) Then
For Each strIPAddress In objNicConfig.IPAddress
strIPAddresses = strIPAddresses & VbCrLf & _
"                           " & strIPAddress
Next
End If
WScript.Echo "  IP Addresses: " & strIPAddresses
strIPSubnets = ""
If Not IsNull(objNicConfig.IPSubnet) Then
For Each strIPSubnet In objNicConfig.IPSubnet
strIPSubnets = strIPSubnets & VbCrLf & _
"                           " & strIPSubnet
Next
End If
WScript.Echo "  Subnet Masks: " & strIPSubnets
strDefaultIPGateways = ""
If Not IsNull(objNicConfig.DefaultIPGateway) Then
For Each strDefaultIPGateway In objNicConfig.DefaultIPGateway
strDefaultIPGateways = strDefaultIPGateways & VbCrLf & _
"                           " & strDefaultIPGateway
Next
End If
WScript.Echo "  Default Gateways: " & strDefaultIPGateways
strGatewayCostMetrics = ""
If Not IsNull(objNicConfig.GatewayCostMetric) Then
For Each strGatewayCostMetric In objNicConfig.GatewayCostMetric
strGatewayCostMetrics = strGatewayCostMetrics & VbCrLf & _
"                           " & strGatewayCostMetric
Next
End If
WScript.Echo "  Gateway Cost Metrics: " & strGatewayCostMetrics
strDNSServerSearchOrder = ""
If Not IsNull(objNicConfig.DNSServerSearchOrder) Then
For Each strDNSServer In objNicConfig.DNSServerSearchOrder
strDNSServerSearchOrder = strDNSServerSearchOrder & VbCrLf & _
"                           " & strDNSServer
Next
End If
WScript.Echo "  DNS Server Search Order: " & strDNSServerSearchOrder
Next

End Sub

Post #: 1

Re: Script to switch between Static IP and DHCP - 4/24/2005 7:35:03 AM

token

Posts: 1917
Score: 0
Joined: 1/14/2005
From:
Status: offline

At what lines do those errors occur (DHCP and static) ?

(in reply to warhorse)

Post #: 2

Re: Script to switch between Static IP and DHCP - 4/25/2005 2:17:42 AM

warhorse

Posts: 7
Score: 0
Joined: 4/24/2005
From:
Status: offline

quote:
Originally posted by token

At what lines do those errors occur (DHCP and static) ?

The line that produces error 94 when enabling DHCP is...



I changed the line


to


and now I can set the static ip on the "unplugged" connections.

However, if I decide to use this then I cannot set it back to DHCP with the script. Any ideas?

(in reply to warhorse)

Post #: 3

Re: Script to switch between Static IP and DHCP - 4/25/2005 12:46:46 PM

token

Posts: 1917
Score: 0
Joined: 1/14/2005
From:
Status: offline

A couple of things/questions.

1. I don't understand why the following line is necessary. Why can't you just use the existing object from the object collection instead of creating a new one like what you did below ?

Set objNicChanged = objWMIService.Get("Win32_NetworkAdapterConfiguration.Index=" & objNicConfig.Index)

2. You said when you have this "If intStaticReturn = 0 or intStaticReturn = 94 Then", you are able to set teh static ip on the unplugged connection. Are able to verify that the IP address and subnet mask are ACTUALLY configured on the NIC ?

I'm thinking that maybe those 2 settings weren't actually "set". As a result, the NIC is still configured to use DHCP even thought the gateway and DNS are statically configure on the NIC. As a result,

"If Not objNicConfig.DHCPEnabled Then" failed; therefore,

WScript.Echo " DHCP already enabled" & VbCrLf & " DHCP Server: " & objNicConfig.DHCPServer

didn't execute at all.

(in reply to warhorse)

Post #: 4

Re: Script to switch between Static IP and DHCP - 4/26/2005 2:13:41 AM

warhorse

Posts: 7
Score: 0
Joined: 4/24/2005
From:
Status: offline

First of all, thank you so much for your help.

Secondly, I mentioned that I got this script from Microsoft and made some changes to get it to work for me.

You are probably right about the line that finds the changed NICs or whatever it is there for.

I didn't make it clear, but I commented out the
statement. I guess I should post better code in the future.

The SetStaticIP function is messy, but I have a pretty good grasp on how to make it work for me.

I really have to finish this thing and have thought of a way that will allow the script to work without the option of enabling DHCP on the "unplugged" NICs.

However, it would be way better if I could get that to work.

Is it going to be possible to enable DHCP on the "unplugged" NICs?

(in reply to warhorse)

Post #: 5

Re: Script to switch between Static IP and DHCP - 4/26/2005 3:35:15 PM

token

Posts: 1917
Score: 0
Joined: 1/14/2005
From:
Status: offline

Not from what I've seen; of course, I haven't see much and I could be wrong.

One thing you should be aware of is that as soon as you change the IP from DHCP to static (or vice versa), you will probably lose all network connectivity to the remote host. Keep in mind the idea that you do not want to break a network connection when you remotely administer a machine since that will also "break" your connection to the remote machine. One thing I would suggest is that you can run the script as part of a Startup script so all you have to do is restart the remote machines which can be done using WMI as well.

(in reply to warhorse)

Post #: 6

Re: Script to switch between Static IP and DHCP - 4/27/2005 2:41:37 AM

warhorse

Posts: 7
Score: 0
Joined: 4/24/2005
From:
Status: offline

Thanks for you help. I am going to work on a few ideas to work around this problem. I am aware that the scrip will drop the network connection. This script will be on a laptop and the reason they need to run it is to get connected to the network.

I'll let you know what I figure out.

(in reply to warhorse)

Post #: 7

Re: Script to switch between Static IP and DHCP - 4/27/2005 4:44:19 AM

token

Posts: 1917
Score: 0
Joined: 1/14/2005
From:
Status: offline

Nice, thanks =) Hopefully you can get it working soon ;)

(in reply to warhorse)

Post #: 8

Re: Script to switch between Static IP and DHCP - 4/27/2005 5:52:10 AM

CaffeineAddiction

Posts: 144
Score: 0
Joined: 2/9/2005
From:
Status: offline

Hey Warhorse ... There is almost always more than one way to skin a horse

The DHCP and Static IP settings are all just Registry Entries ... in order to find it ... make a static IP other than 127.0.0.1 or 192.168.0.1 ... aka make something unique and then search the registry for it.

I use to use a .reg file back in the day to setup small gaming networks ... this would allow you to setup the Static / Dynamic IP addresses without having to have a network cable plugged in.

While I dont have the scripts that I used back then ... I do have another script that is similar that you may find useful.

;::::::::::::::::::::::::::::::::::
;:::::::: Proxy Fix.vbs :::::::::::
;::::::::::::::::::::::::::::::::::
; This code is designed to change the proxy and Internet
; connection settings of IE by creating running and removing
; and .reg file

Const ForAppending = 8

Set WshShell = WScript.CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objTextFile = objFSO.OpenTextFile("ProxyFix.reg", ForAppending, True)
objTextFile.WriteLine "Windows Registry Editor Version 5.00"
objTextFile.WriteLine ""
objTextFile.WriteLine "[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings]"
objTextFile.WriteLine chr(34) & "MinorVersion" & chr(34) & "=" & chr(34) & ";SP1;Q822925;Q330994;Q828750;Q824145;Q832894;Q831167;Q867801;" & chr(34)
objTextFile.WriteLine chr(34) & "CodeBaseSearchPath" & chr(34) & "=" & chr(34) & "CODEBASE;<http://activex.microsoft.com/objects/ocget.dll>;<http://codecs.microsoft.com/isapi/ocget.dll>" & chr(34)
objTextFile.WriteLine chr(34) & "UrlEncoding" & chr(34) & "=" & chr(34) & "0x00000000" & chr(34)
objTextFile.WriteLine chr(34) & "ActiveXCache" & chr(34) & "=" & chr(34) & "C:\\WINDOWS\\Downloaded Program Files" & chr(34)
objTextFile.WriteLine chr(34) & "ProxyEnable" & chr(34) & "=dword:00000001"
objTextFile.WriteLine chr(34) & "ProxyServer" & chr(34) & "=" & chr(34) & "127.0.0.1:80" & chr(34)
objTextFile.WriteLine chr(34) & "ProxyOverride" & chr(34) & "=" & chr(34) & "127.0.*;*somedomain.com;<local>" & chr(34)
objTextFile.WriteLine chr(34) & "MigrateProxy" & chr(34) & "=dword:00000001"
objTextFile.WriteLine ""
objTextFile.WriteLine "[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\Connections]"
objTextFile.WriteLine chr(34) & "SavedLegacySettings" & chr(34) & "=hex:3c,00,00,00,ea,0d,00,00,03,00,00,00,12,00,00,00,31,\"
objTextFile.WriteLine "  33,32,2e,33,38,2e,31,39,30,2e,34,31,3a,38,30,38,30,23,00,00,00,31,33,32,2e,\"
objTextFile.WriteLine "  33,38,2e,2a,3b,2a,67,6f,6f,64,66,65,6c,6c,6f,77,2e,61,66,2e,6d,69,6c,3b,3c,\"
objTextFile.WriteLine "  6c,6f,63,61,6c,3e,00,00,00,00,01,00,00,00,00,00,00,00,e0,2e,47,32,d8,28,c5,\"
objTextFile.WriteLine "  01,01,00,00,00,84,26,97,8d,00,00,00,00,00,00,00,00"
objTextFile.WriteLine chr(34) & "DefaultConnectionSettings" & chr(34) & "=hex:3c,00,00,00,2c,01,00,00,03,00,00,00,12,00,00,\"
objTextFile.WriteLine "  00,31,33,32,2e,33,38,2e,31,39,30,2e,34,31,3a,38,30,38,30,23,00,00,00,31,33,\"
objTextFile.WriteLine "  32,2e,33,38,2e,2a,3b,2a,67,6f,6f,64,66,65,6c,6c,6f,77,2e,61,66,2e,6d,69,6c,\"
objTextFile.WriteLine "  3b,3c,6c,6f,63,61,6c,3e,00,00,00,00,01,00,00,00,00,00,00,00,e0,2e,47,32,d8,\"
objTextFile.WriteLine "  28,c5,01,01,00,00,00,84,26,97,8d,00,00,00,00,00,00,00,00"
objTextFile.Close
WshShell.Run "regedit /s ProxyFix.reg"
WScript.Sleep 5000
objFSO.DeleteFile("ProxyFix.reg")
MsgBox "Proxy Settings Fixed"

Note: I changed it a little as to not give away my domain name or IP ... but it should still be functional code

Also note that If you wanted to, you could change the static lines of text to encluded dynamic variables ... to allow for it to work with diffrent IP addresses depending on god only knows what ... username maybe?

But anyway, you can do the same thing for the networksettings of Windows ver 98 through XP ... just got to find the keys

(in reply to warhorse)

Post #: 9

Re: Script to switch between Static IP and DHCP - 4/27/2005 6:32:12 AM

warhorse

Posts: 7
Score: 0
Joined: 4/24/2005
From:
Status: offline

Thanks for the suggestion CaffeineAddiction.

Do you have to restart in order to get the settings to take effect?

(in reply to warhorse)

Post #: 10

Re: Script to switch between Static IP and DHCP - 4/27/2005 7:54:00 AM

CaffeineAddiction

Posts: 144
Score: 0
Joined: 2/9/2005
From:
Status: offline

I know that you have to restart Internet Explorer in order for that one to take effect ... I am not sure about the Network Settings ... I dont believe you do, but like I said, it has been quite a while since I have used that particular Reg Key

(in reply to warhorse)

Post #: 11

Re: Script to switch between Static IP and DHCP - 4/27/2005 1:20:20 PM

token

Posts: 1917
Score: 0
Joined: 1/14/2005
From:
Status: offline

Interesting idea, CaffeineAddiction. I guess the good'l registry editing still worth something nowadays ;)

(in reply to warhorse)

Post #: 12

Re: Script to switch between Static IP and DHCP - 4/29/2005 1:55:44 AM

CaffeineAddiction

Posts: 144
Score: 0
Joined: 2/9/2005
From:
Status: offline

yah, I find that dynmicly creating a .reg file and then running it from the script that created it is more effective/easier that the built in reg editing stuff ...

(in reply to warhorse)