$nameLanConnection = "LAN-Verbindung"; Name des Adapters
$oLanConnection = ""
if @OSType<>"WIN32_NT" then
Msgbox(0,"","Dieses Script benötigt Windows 2000 oder höher")
exit
endif

Select
Case StringInStr("0409,0809,0c09,1009,1409,1809,1c09,2009,2409,2809,2c09,3009,3409", @OSLang) ; English (United States)
$strEnableVerb = "En&able"
$strDisableVerb = "Disa&ble"
if @OSVersion="WIN_2000" then
$strFolderName = "Network and Dial-up Connections"
else
$strFolderName = "Network Connections" ; Windows XP
endif

Case StringInStr("0407", @OSLang); Deutsch
$strEnableVerb = "&Aktivieren"
$strDisableVerb = "&Deaktivieren"
if @OSVersion="WIN_2000" then
$strFolderName = "Netzwerk- und DFÜ-Verbindungen"
else $strFolderName = "Netzwerkverbindungen" ; Windows XP
endif

EndSelect

;Virtueller Ordner (Wert 3) enthält die Systemsteuerung
Const $ssfCONTROLS = 3

$ShellApp = ObjCreate("Shell.Application")
$oControlPanel = $shellApp.Namespace($ssfCONTROLS)


; Finde 'Netzververbindungen' unter den Systemsteuerungen
$oNetConnections=""
For $FolderItem in $oControlPanel.Items
If $FolderItem.Name = $strFolderName then
$oNetConnections = $FolderItem.GetFolder
Exitloop
Endif
Next
If not IsObj($oNetConnections) Then
Msgbox(0,"Fehler","Die Steuerung " & $strFolderName & " kann nicht gefunden werden."
Exit
EndIf


; Finde die gesuchte LAN-Verbindung
For $FolderItem In $oNetConnections.Items
If StringLower($FolderItem.Name) = StringLower($nameLanConnection) Then
$oLanConnection = $FolderItem
Exitloop
EndIf
Next
If not IsObj($oLanConnection) Then Msgbox(0,"Fehler","Die Verbindung " & $nameLanConnection & " kann nicht gefunden werden.")
Exit
EndIf

$bEnable = true
$oEnableVerb = ""
$oDisableVerb = ""

For $Verb In $oLanConnection.Verbs
If $Verb.Name = $strEnableVerb Then
$oEnableVerb = $Verb
$bEnable = false
EndIf
If $Verb.Name = $strDisableVerb Then
$oDisableVerb = $Verb
EndIf
Next
If $bEnable then
; deaktivieren
$oDisableVerb.DoIt
else
; aktivieren
$oEnableVerb.DoIt
TrayTip("",$nameLanConnection & " wurde aktiviert !",3)
Sleep(3000)
Endif
Sleep(3000)