[an99dre]

madmasles, ОГРОМНОЕ СПАСИБО, наконец с Вашей помощью получил то, что хотел.

Код:

#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
            $Tabhdl = ControlGetHandle("","Подключение","SysTabControl321") 
            ControlCommand("","",$Tabhdl,"TabRight","") 
            WinWait("","Проверка подлинности") 
            ControlCommand("","Проверка подлинности","Button1","UnCheck","") 
            ControlClick("","Проверка подлинности","Button6") 
            WinClose("","Проверка подлинности")
            Sleep(1000)
            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