[Сеть, интернет] Отключить(включить) соединение с Интернетом(ADSL)

Run(@ComSpec & " /c " & "devcon disable =net *PCI*", "", @SW_HIDE)
; Ждем 3 секунды
Sleep (5000)
; Запускаем сетевые подключения сново
Run(@ComSpec & " /c " & "devcon enable =net *PCI*", "", @SW_HIDE)

Run(@ComSpec & " /c " & 'start rasdial Ukrtelekom Name Password', "")

Run(@ComSpec & " /c " & 'rasdial  Ukrtelekom  /disconnect', "")

#include <GuiListView.au3>

ConnectionSwitch("Подключение по локальной сети")

Func ConnectionSwitch($sNameConnect)
	$iSize = InetGetSize("http://www.autoitscript.com/autoit3/files/beta/update.dat")
	If $iSize Then
		$sText="Разорвать "
	Else
		$sText="Восстановить "
	EndIf
	If MsgBox(4100, "",$sText & "соединение ?")=6 Then 
		Opt("WinTitleMatchMode", 2) 
		ShellExecute('::{7007ACC7-3202-11D1-AAD2-00805FC1270E}')
		$hWnd=WinWaitActive("Сетевые подключения", "",2)
		$hLV=ControlGetHandle($hWnd, '', 'SysListView321')
		$iCount=_GUICtrlListView_GetItemCount($hLV )
		$iItem=-1
		For $i=1 To $iCount
			$sItemText=_GUICtrlListView_GetItemText($hLV, $i)
			If $sItemText=$sNameConnect Then 
				$iItem=$i
				ExitLoop
			EndIf
		Next
		If $iItem=-1 Then 
			MsgBox(4096,"","Соединение с именем : " & $sNameConnect & " не найдено")
		Else
			_GUICtrlListView_ClickItem($hLV, $iItem,"right")
			Send("{DOWN}")
			Send("{ENTER}")
		EndIf
		WinClose ( "Сетевые подключения" )
	EndIf
EndFunc