In addition, multiple NICs add to the confusion by creating other LAN connections. The problem I am having now is that clients may have different names for their LAN connection, rather than just the simple 'Local Area Connection'. This script comes in handy because it allows the client to instantly obtain a new DHCP address because WinXP will automatically renew Unfortunately, many on-board NICs do not truly disconnect from a switch port via a Windows restart. Even thought it is set to a minimum to expedite the switchover, the time is still not precise and the client may easily grow frustrated.Ī simple IPCONFIG /RELEASE & /RENEW does not work for this because there is an issue with the system that requires the NIC to actually shut down and restart to ensure the switchover to the new VLAN. The problem with this system is, the client must wait an indefinite period of time before the new DHCP address becomes available (based on the DHCP lease expiration). When a client is allowed on to the regular network, they are switched from one VLAN to another and are then eligible to receive a new DHCP address. The reason I needed this code was for use in a Network Quarantine system.

I have adapted it a bit to disable then re-enable the LAN connection. SvenP, Thanks for posting your code here. If IsObj($oDisableVerb) Then $oDisableVerb.DoIt Disable network card If IsObj($oEnableVerb) Then $oEnableVerb.DoIt Enable network card MsgBox(0,'Error','Couldn't find ' & $oLanConnection & ' Item.' If StringLower($FolderItem.Name) = StringLower($oLanConnection) Then MsgBox(0,'Error','Couldn't find ' & $strFolderName & ' folder.'įor $FolderItem In $oNetConnections.Items If $FolderItem.Name = $strFolderName then Find 'Network connections' control panel item

$oControlPanel = $shellApp.Namespace($ssfCONTROLS) $ShellApp = ObjCreate('Shell.Application') Virtual folder containing icons for the Control Panel applications. Add here the correct Verbs for your Operating System Language $strFolderName = 'Network and Dial-up Connections' Msgbox(0,'','This script requires Windows 2000 or higher.') $bEnable = true Change this to 'false' to DISABLE the network adapter $oLanConnection = 'Local Area Connection' Change this to the name of the adapter to be disabled ! Parameters: $oLanConnection and $bEnabled Expand collapse popup Disable and Enable a Network card using 'Shell.Application'

Local area connection disabled