_ToggleNetworkInterface('Подключение по локальной сети', 0)
; $iFlag = 0 Disable
; $iFlag = 1 Enable
Func _ToggleNetworkInterface($strNetwork, $iFlag = 1)
Local $wbemFlagReturnImmediately = 0x10
Local $wbemFlagForwardOnly = 0x20
Local $strComputer = "localhost"
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapter", "WQL", _
$wbemFlagReturnImmediately + $wbemFlagForwardOnly)
If IsObj($colItems) Then
For $objItem In $colItems
If $objItem.NetConnectionID = $strNetwork Then
If $iFlag = 0 And $objItem.NetEnabled = True Then
$objItem.Disable
ElseIf $iFlag = 1 And $objItem.NetEnabled = False Then
$objItem.Enable
EndIf
ExitLoop
EndIf
Next
Else
MsgBox(0, "WMI Output", "No WMI Objects Found for class: " & "Win32_NetworkAdapter")
EndIf
EndFunc ;==>_ToggleNetworkInterface