[Creat0R]

amel27

срабатывает Rasdial <имя_соединения>

У меня нет - даже из батника пробую...

Код:

@echo off
rasdial /disconnect
ping -n 3 localhost > nul
rasdial 012
pause

012 это имя подключения (судя по имени самого значка в "Сетевые подключения") - но пишет ошибку:

Ошибка службы удаленного доступа 691 - Доступ запрещен, поскольку такие имя пользователя или пароль недопустимы в этом домене.

поместить ярлык соединения на рабочий стол, а дальше через контекстное меню

Эх, другого выхода и нет, я так до сих пор и делаю, правда не ярлыком, а прямым (точнее кривым) доступом в "Сетевые подключения":

Код:

#include <GuiConstants.au3>
Opt("RunErrorsFatal", 0)
Opt("WinTitleMatchMode", 4)
Opt("TrayMenuMode", 1)
TraySetIcon('shell32.dll', 14)

$NetwConnectTitle = IniRead(@ScriptDir & "\ReConnector.ini", "Config", "Network Connections Folder Title", "")
If $NetwConnectTitle = "" Then $NetwConnectTitle = "Network Connections"

BlockInput(1)
ConnectWinShow()

If Not WinExists($NetwConnectTitle) Then Run(@ComSpec & " /c ncpa.cpl", "", @SW_HIDE)
;ShellExecute("::{7007ACC7-3202-11D1-AAD2-00805FC1270E}")

WinWait($NetwConnectTitle, "", 5)
WinActivate($NetwConnectTitle)
WinWaitActive($NetwConnectTitle, "", 3)

If Not WinExists($NetwConnectTitle) Then
    BlockInput(0)
    Exit
EndIf

Send("{Down}")
Send("{Up}")
Sleep(100)
Send("^+{F10}")
Send("{Down}")
Send("{Enter}")

WinSetState($NetwConnectTitle, "", @SW_DISABLE)
WinSetState($NetwConnectTitle, "", @SW_MINIMIZE)
Sleep(5000)
WinSetState($NetwConnectTitle, "", @SW_RESTORE)
WinSetState($NetwConnectTitle, "", @SW_ENABLE)

WinActivate($NetwConnectTitle)
WinWaitActive($NetwConnectTitle, "", 3)

Send("^+{F10}")
Send("{Down}")
Send("{Enter}")

If WinExists($NetwConnectTitle) Then WinClose($NetwConnectTitle)
BlockInput(0)

Func ConnectWinShow()
    Local $ConnectGui = GUICreate("ReConnectProc", 300, 110, 0, 0, $WS_POPUP+$WS_BORDER, $WS_EX_TOOLWINDOW+$WS_EX_TOPMOST)

    GUICtrlCreateIcon('shell32.dll', 14, 130, 10, 36, 36)

        GUICtrlCreateLabel("Пожалуйста подождите, переподключаюсь...", 0, 60, 300, 30, $SS_CENTER)
    GUICtrlSetFont(-1, 10, 600, 0, "Tahoma")

    GUISetState(@SW_SHOW, $ConnectGui)
EndFunc