[madmasles]

an99dre,
А Вы функцию от amel27-а в конце скрипта добавили?
Похоже, нет. Так попробуйте

Код:

#include <GuiListView.au3>

;Run("control ncpa.cpl")
ShellExecute("::{7007ACC7-3202-11D1-AAD2-00805FC1270E}")
WinWaitActive("Сетевые подключения")
WinSetState("Сетевые подключения", "", @SW_MINIMIZE)
$hListView = ControlGetHandle("Сетевые подключения", "", "[CLASS:SysListView32; INSTANCE:1]")
$col = _GUICtrlListView_GetItemCount($hListView)

For $i = 0 To $col - 1
    $name = _GUICtrlListView_GetItemText($hListView, $i)
    If StringInStr($name, "Подключение по локальной сети") <> 0 Then
        _NetConnection_Verb($name, "Сво&йства")
        While 1
            MsgBox(0, $i, $name, 5)
            WinClose($name)
            ExitLoop
        WEnd
    EndIf
Next
WinClose("Сетевые подключения")

Func _NetConnection_Verb($sConnectionName, $sVerb)
    ;   Local $sFolderName = "Network Connections"
    Local $sFolderName = "Сетевые подключения"
    Local $oNetConnections, $oConnection
    Local $oShellApp = ObjCreate("Shell.Application")
    Local $oControlPanel = $oShellApp.Namespace(3)
    For $oFolderItem In $oControlPanel.Items
        If $oFolderItem.Name = $sFolderName Then
            $oNetConnections = $oFolderItem.GetFolder
            ExitLoop
        EndIf
    Next
    If Not (IsObj($oNetConnections)) Then Return SetError(1, 0, False)
    For $oFolderItem In $oNetConnections.Items
        If StringInStr($oFolderItem.Name, $sConnectionName) Then
            $oConnection = $oFolderItem
            ExitLoop
        EndIf
    Next
    If Not (IsObj($oConnection)) Then Return SetError(2, 0, False)
    $oConnection.InvokeVerb($sVerb)
    Sleep(1000)
EndFunc   ;==>_NetConnection_Verb

У меня одно сетевое подключение по имени Подключение по локальной сети. Если у Вас их больше одного, то скрипт должен открывать их по очереди, сообщать об этом и менять их через 5 секунд.