Automatically disable wireless when Ethernet is available

Awesome script Steve.

to Remco’s question. How would you modify the script to release the DHCP address prior to switching adapters?

On Error Resume Next

strComputer = “.”
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
objNetCard.ReleaseDHCPLease()
Next

This manages to release the address, not sure how to insert into your code.

any help would be great! Thanks

Hi Steve, thanks a lot!

I have been looking for this for a very long time. I set the script to run once login by creating a batch file and put it to the startup folder.

I also saw the coding from Chris and yourself on the releasing of DHCP which will help alot as one pc using 2 ip address is too much and I always have to clear the DHCP scope manually. I’m not much into coding so I will greatly appreciate if you can incorporate the script to release DHCP into your original script. Thanks again!

I need a permanent registry reorder of the NICs. Any VB Scripts available?

Nice script, but it works only one way.

When I attach the network cable to the Laptop it DISABLES the Wireless, but when I unplug the network cable it should DISABLE the LAN Adabter and ENABLE the wireless. I know it depends, which card you use to watch, but I want use the both way. Is there any chance to achieve this?

Thanks

Haydar

is there a way to solve it???

Is there a license to go with this script or any other conditions around commercial use? interested to use on our site here (staff systems only not customers) and need to be sure that there is no catch in doing so 🙂

Hi, Steve — thanks for this script, this goes a long way to solving my connections issues. Not being a VBScripter myself, is there a way to alter the script so that multiple connections would be disabled at the same time as the Wireless? IE, I’d like to have it disable the ‘Mobile Broadband Connection’ and possible another as well as the ‘Wireless Network Connection’ when the LAN is plugged in. Any assistance would be greatly appreciated — thanks again!

good morning
I would like your help … Now download the script, change the file extension, can not get the script to work me. I am connected by ethernet and wifi does not turn off, the operating system language and script has something to do, my system is in Spanish.

Hi All,

This has really saved me a lot of time – thanks for all of your help.

I am however having one issue. While the script works and works well I have added in the feature to release the Wireless SHCP lease once disabled but once I connect back in my LAN cable it’s coming up as “unidentiifed network” and the only way to get it back in action is to ipconfig /renew – where am I going worng?

‘*********************************************
‘* Net Switcher – Watches one network card *
‘* for connectivity, and toggles another *
‘* http://www.intelliadmin.com *
‘*********************************************

Sub EnableAdapter( sAdapterName, bStatus )
Dim objWMIService, colItems
Set objWMIService = GetObject(“winmgmts:\\.\root\cimv2”)
Set colItems = objWMIService.ExecQuery(“Select * from Win32_NetworkAdapter”,,48)
For Each objItem in colItems
if (UCase(Trim(objItem.NetConnectionID))=UCase(Trim(sAdapterName))) then
if (bStatus) then
objItem.Enable
else
objItem.Disable
end if
end if
Next
RefreshDHCP()

End Sub

Sub RefreshDHCP()

strComputer = “.”
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
objNetCard.ReleaseDHCPLease()
Next
End Sub

Function AdapterStatus( sAdapterName )
Dim objWMIService, colItems
Set objWMIService = GetObject(“winmgmts:\\.\root\cimv2”)
Set colItems = objWMIService.ExecQuery(“Select * from Win32_NetworkAdapter”,,48)

AdapterStatus = false
For Each objItem in colItems
if (UCase(Trim(objItem.NetConnectionID))=UCase(Trim(sAdapterName))) then
AdapterStatus = (objItem.NetConnectionStatus=2)
end if
Next
End Function

Function AdapterExists( sAdapterName )
Dim objWMIService, colItems
Set objWMIService = GetObject(“winmgmts:\\.\root\cimv2”)
Set colItems = objWMIService.ExecQuery(“Select * from Win32_NetworkAdapter”,,48)

AdapterExists = false
For Each objItem in colItems
if (UCase(Trim(objItem.NetConnectionID))=UCase(Trim(sAdapterName))) then
AdapterExists = True
end if
Next
End Function

Dim bCurrentStatus
Dim bChanged
Dim sWatchNetworkCard
Dim sSwitchNetworkCard

if (WScript.Arguments.Count<2) then
WScript.Echo "*********************************"
WScript.Echo "* IntelliAdmin Net Switcher *"
WScript.Echo "* http://www.intelliadmin.com *"
WScript.Echo "*********************************"
WScript.Echo vbCrLf & "Usage: " & vbCRLF
WScript.Echo " NetSwitch.vbs ”
WScript.Echo vbCrLF & “Explanation: ” & vbCRLF
WScript.Echo ” Net Switcher can be used to make sure your”
WScript.Echo ” wireless card is only enabled when no ”
WScript.Echo ” ethernet connection is available”
WScript.Echo vbCrLF & “Example: ” & vbCRLF
WScript.Echo ” NetSwitch.vbs ” & chr(34) & “Local Area Connection” & chr(34) & ” ” & _
chr(34) & “Wireless Connection” & Chr(34)
WScript.Quit

end if

sWatchNetworkCard = WScript.Arguments(0)
sSwitchNetworkCard = WScript.Arguments(1)

if (Not(AdapterExists(sWatchNetworkCard))) then
WScript.Echo “Error: Could not find the adapter (” & sWatchNetworkCard & “)”
WScript.Quit
end if

if (Not(AdapterExists(sSwitchNetworkCard))) then
WScript.Echo “Error: Could not find the adapter (” & sSwitchNetworkCard & “)”
WScript.Quit
end if

bChanged=TRUE

while(True)
if (bChanged) then
bChanged=FALSE
bCurrentStatus = AdapterStatus(sWatchNetworkCard)
if (bCurrentStatus) then
EnableAdapter sSwitchNetworkCard,False
else
EnableAdapter sSwitchNetworkCard,True
end if
end if
WScript.Sleep(1000)
if (bCurrentStatusAdapterStatus(sWatchNetworkCard)) then
bChanged=TRUE
end if
wend