sConnection =  ; написать название сетевого подключения, как в папке "Сетевые подключения"

NetConnect(0   ; 1 — включить, 0 — отключить
	, sConnection)

NetConnect(bEnable, sConnection)
{
	if sConnection =
	{
		MsgBox, Напишите название сетевого подключения!
		ExitApp
	}
	strEnableRus := "&Включить", strEnableEng := "En&able"
	strDisableRus := "&Отключить", strDisableEng := "Disa&ble"
	CSIDL_CONNECTIONS := 0x31

   For oConn In ComObjCreate("Shell.Application").Namespace(CSIDL_CONNECTIONS).Items
	{
		If  (oConn.Name = sConnection)
		{
			If (oConn.Verbs.Item(0).Name = bEnable ? strEnableRus : strDisableRus)
				|| (oConn.Verbs.Item(0).Name = bEnable ? strEnableEng : strDisableEng)
				oConn.Verbs.Item(0).DoIt
			Sleep, 1000
			Break
		}
	}
}