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

[gregaz]

Как скриптом отключать соединение с Интернетом (ADSL)
Т.е. требуется способ прерывания соединения с Интернетом
Разъединение/соединение вручную выполняется в окне : Сетевые подключения / Подключение по локальной сети.
Если возможно, то вариант без кликов по окну .

 

[madmasles]

gregaz,
А rasdial не работает?

 

[gregaz]

madmasles [?]

А rasdial не работает?

нет .
Наверно он для Dial-Up соединений

 

[axlwor]

Если локальная сеть - это сетевое подключение и rasdial там нет или есть?
для примера

devcon.exe disable PCI\VEN_10EC&DEV_8168&SUBSYS_83A31043&REV_03

upd. хотя можно почитать это

 

[gregaz]

axlwor [?]

для примера

Если можно-поподробней
Что надо сделать?

 

[snoitaleR]

gregaz
Чтобы получить код оборудования для сетевой карты нужно в Диспетчере устройств найти сетевую карту, в Свойствах найти Сведения, в Сведениях выбрать Код (ID) оборудования, скопировать (Ctrl+Insert) первую строку и подставить в команду devcon...

 

[VladUs]

Можно поступить и более координально. Отключить все сетевые подключения.

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

Такой скрипт будет работать на всех компьютерах, без необходимости отлавливать код оборудования.

 

[gregaz]

VladUs [?]

Такой скрипт будет работать на всех компьютерах, без необходимости отлавливать код оборудования.

А у меня не сработал.
Может надо имя компа ставить?

 

[VladUs]

А утилита devcon.exe присутствует на компе ?

 

[gregaz]

Должен признаться(хотя и стыдно),я не большой знаток в системных вопросах ,
и глубоко в конфигурацию системы не полезу.
Сложное решение мне вряд ли подойдет
Так,что советы просьба давать по возможности подробные.

VladUs [?]

А утилита devcon.exe присутствует на компе ?

сейчас поищу



Добавлено:

Сообщение автоматически объединено: 19 Июл 2011

VladUs [?]

А утилита devcon.exe присутствует на компе ?

Есть

 

[snoitaleR]

VladUs
Есть недостаток в использовании параметра =net. DEVCON в этом случае цепляет и WIFI-устройства...

 

[VladUs]

snoitaleR [?]

Есть недостаток в использовании параметра =net. DEVCON в этом случае цепляет и WIFI-устройства...

Поэтому данный способ я и назвал координальным.

Кстати есть и альтернативный вариант описанный в http://autoit-script.ru/index.php/topic,3925.0.html#post_inet_1

 

[gregaz]

VladUs [?]

Кстати есть и альтернативный вариант описанный в НЕофициальный FAQ AutoIt

Тот вариант я пробовал
Не хочет у меня пахать.Чертовщина,да и только
Вручную ведь отключает

 

[axlwor]

uac, права админа?
из командной строки запускается?

 

[Yuri]

У меня так работает.
Одна сетевая карта ПК -это ADSL модем, другая - локальная сеть.
OS Win XP Pro.
Включается интернет так:

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

Выключается интернет так:

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

Где:
Ukrtelekom - имя моего подключения к Интернет
Name - имя пользователя
Password - пароль пользователя
Надо бы обратить внимание (возможно), на имя пользователя.
Нет ли в имени пользователя пробелов, кириллицы?
Лучше (наверное) для простоты имя пользователя = одно сплошное слово без пробелов на латинице. Или командная строка будет чуть другой (кавычки)

 

[gregaz]

Ни один из приведенных способов не смог заставить работать у меня.
Понял,что это не совсем простая задача и зависит от многих субъективных
уникальных факторов конкретного РС.
Попробовал решить задачу более примитивно,но универсальнее.

#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

Вроде работает.
Вообще-то я ожидал просто возможности отсоединения модема от сетевой карты,к которой он подключен,
что позволяет быстро восстанавливать соединение.

Здесь же отключение происходит медленно , а на восстановление требуется вообще секунд 15