сетевые автонастройки

[turbonet 0]

В общем повстречал в инете такую фичу:

юзер скачивает инсталл, запускает, и вуаля ... у него сеть настроена + vpn подключение, осталось ввести лог и пас... значительно упрощает многие вещи...

так вот хотелось бы спросить. может кто знает как делается, может что-то добавить можно?

[Enferno 163]

легко) делфи или с-шарп вам в руки. Прога элементарная + даже роуты сразу можно повносить, чтобы вписывала. Я даже когда-то батник такой сам писал, ищите в инете инфу

[turbonet 0]

легко) делфи или с-шарп вам в руки. Прога элементарная + даже роуты сразу можно повносить, чтобы вписывала. Я даже когда-то батник такой сам писал, ищите в инете инфу

это конечно хорошо, но ничего по теме не могу найти, так бы не писал... а можно хотяб ссылочку или конкретный пример?))

[turbonet 0]

вопрос решился, кому интересно - в личку)

[BUM 241]

отпишись тут как решил вопрос, думаю многим будет интересно

[SergeAK 0]

отпишись тут как решил вопрос, думаю многим будет интересно

CMAK and IEAK

Пакет администратора диспетчера подключений

Пакет управления подключениями Windows Server 2008 Connection Manager Administration Kit

[roneaf 2]

Вот батничек на настройку сетевухи

@echo off

netsh interface ip reset 1.txt
echo Изменение IP адреса:
netsh interface ip add address "Подключение по локальной сети" 192.168.0.0 255.255.0.0
echo Изменение Основного шлюза:
netsh interface ip add address "Подключение по локальной сети" gateway=192.168.0.1 gwmetric=2
echo Изменение Предпочетаемого DNS-сервера:
netsh interface ip add dns "Подключение по локальной сети" 192.168.0.1
echo Изменение Альтернативного DNS-сервера:
netsh interface ip add dns "Подключение по локальной сети" 195.5.28.2 index=2

echo Настрой сети окончена!

pause

[maxx 202]

А на ппое есть чета ?

[Maxxx 446]

А на ппое есть чета ?

есть самописный аторизатор.

[Neelix 33]

http://www.windowsecurity.com/articles/Windows-Server-2008-Connection-Manager-Administration-Kit.html

 

может пригодится?

[vop 370]

юзер скачивает инсталл, запускает, и вуаля ... у него сеть настроена...

 

Не понял одного момента. Как юзер скачивает чего-то, если у него сеть не настроена?

[winbox 15]

юзер скачивает инсталл, запускает, и вуаля ... у него сеть настроена...

 

Не понял одного момента. Как юзер скачивает чего-то, если у него сеть не настроена?

 

вот когда работала тогда и скачал )))

 

так что там на щет автоВПНподключения ?

[911 140]

Не понял одного момента. Как юзер скачивает чего-то, если у него сеть не настроена?

 

вот когда работала тогда и скачал )))

ну когда у него все работает, они ничего скачивать не будет

 

а по топику: dhcp не вариант?

[Oleg Doneck 94]

 хотел сделать тыц, а получился пук

 

ну да ладно , комуто может подойдёт, хорошая штука, проста как 5 коп которые я вставил  , 47 пост:

 

http://forum.nag.ru/forum/index.php?showtopic=46859&hl=%E2%E8%F0%F3%F1&st=40

[FreeLine 1]

Autoit облегчит жизнь многим...

Вчера начал писать скриптик для своих пользователей, все очень легко и работает супер...

 

http://ru.wikipedia.org/wiki/AutoIt

http://www.autoitscript.com/autoit3/

http://autoit-script.ru/

[rtrt 53]

Autoit облегчит жизнь многим...

Вчера начал писать скриптик для своих пользователей, все очень легко и работает супер...

 

http://ru.wikipedia.org/wiki/AutoIt

http://www.autoitscript.com/autoit3/

http://autoit-script.ru/

 

 

можно глянуть скриптик, заинтересовало ))

[gall 6]

В общем повстречал в инете такую фичу:

Если воспользоваться поиском по форуму, то фичу эту можно и тут повстречать.

Автонастройки сети, шлюзов, днс, рабочей группы и можно продолжать до бесконечности.

Написано на vbs, без проблем компилируется в exe (Vbs2Exe) и раздается юзерам (например на CD или miniCD) + туда же можно добавить полезный для сети софт, а если потратить еще немного времени то можно и полезный софт залепить в один большой setup (например в проге Smart Install Maker)

Вот и будет одна мега-автонастройка всего и сразу.

[FreeLine 1]

#include <GUIConstants.au3>

;Opt('MustDeclareVars', 1)
Opt("GUIOnEventMode", 1)

$Form1 = GUICreate("Настройка сети FreeLine", 186, 266, 469, 333)
$Group1 = GUICtrlCreateGroup("Мониторинг трафика:", 8, 152, 169, 105)
$Label1 = GUICtrlCreateLabel("IP:", 16, 197, 20, 20)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel(@IPAddress1, 34, 197, 130, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008000)
$Label3 = GUICtrlCreateLabel("ИМЯ ПК:", 16, 176, 57, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel(@ComputerName, 72, 176, 98, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000080)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Создать VPN-подключение", 8, 16, 171, 25, 0)
GUICtrlSetOnEvent($Button1, "VPNcreate")
$Button2 = GUICtrlCreateButton("Проверить работу сети", 8, 48, 171, 25, 0)
GUICtrlSetOnEvent($Button2, "TestLocal")
$Button3 = GUICtrlCreateButton("Проверить работу интернета", 8, 80, 171, 25, 0)
GUICtrlSetOnEvent($Button3, "TestNet")
$Button4 = GUICtrlCreateButton("Получить логин/пароль", 8, 112, 171, 25, 0)
GUICtrlSetOnEvent($Button4, "GetLP")
GUISetState(@SW_SHOW)
GUISetOnEvent($GUI_EVENT_CLOSE, "OnExit")

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
	Case $GUI_EVENT_CLOSE
		Exit

EndSwitch
WEnd


;--------------- Функции ---------------

;~ TestLocal
Func TestLocal()
$var = Ping("192.168.0.1", 5)
If $var Then ; also possible:  If @error = 0 Then ...
   Msgbox(64,"Статус","ОНЛАЙН! Время ответа: " & $var & " мс.")
Else
   Msgbox(16,"Статус","Сеть недоступна!")
EndIf
EndFunc
;~ TestLocal
Func TestNet()
$var = Ping("google.ru", 1000)
If $var Then ; also possible:  If @error = 0 Then ...
   Msgbox(64,"Статус","ОНЛАЙН! Время ответа: " & $var & " мс.")
Else
   Msgbox(16,"Статус","Сеть недоступна!")
EndIf
EndFunc
;~ Exit
Func OnExit()
	Exit
EndFunc
;~ Получение Л/П
Func GetLP()
	MsgBox(64, "ERROR", "СКОРО БУДЕТ!")
EndFunc
;~ Создание VPN
Func VPNcreate()
Run ( "rundll32.exe netshell.dll,StartNCW" )
WinWaitActive("Мастер новых подключений")
Send("{ENTER}")
Send("{DOWN}")
Send("{ENTER}")
Send("{DOWN}")
Send("{ENTER}")
Send("FreeLine")
Send("{ENTER}")
Send("192.168.1.1")
Send("{ENTER}")
Send("{SPACE}")
Send("{ENTER}")
Run ( "control netconnections" )
WinWaitActive("Сетевые подключения")
EndFunc

 

Вот, пре-альфа-бета скриптика

[gall 6]

Send("{ENTER}")
Send("{DOWN}")
Send("{ENTER}")
Send("{DOWN}")
Send("{ENTER}")
Send("FreeLine")
Send("{ENTER}")
Send("192.168.1.1")
Send("{ENTER}")
Send("{SPACE}")
Send("{ENTER}")

 

Вот, пре-альфа-бета скриптика

Прикольно так можно что угодно запихнуть в такой екзешник.

У меня так передергивается ИП на мопеде)))

set sh=WScript.CreateObject("WScript.Shell")
sh.run "Telnet 192.168.1.1"
WScript.Sleep 100
sh.SendKeys "admin"&vbcr
WScript.Sleep 50
sh.SendKeys "password"&vbcr
WScript.Sleep 50
sh.SendKeys "echo 3 > /proc/var/fyi/wan/ppp_0_1_32_1/wanup"&vbcr
WScript.Sleep 5000
sh.SendKeys "echo 1 > /proc/var/fyi/wan/ppp_0_1_32_1/wanup"&vbcr
Wscript.Sleep 500
sh.SendKeys "^{]}"
Wscript.Sleep 10
sh.SendKeys "quit"&vbcr 

[BUM 241]

Вот, пре-альфа-бета скриптика

В целом какбе неплохо, но вот нюанс, а что если у пользователя Виста или 7-рка? )

Так же проблема, если уже есть VPN/dialup подключение, то создается ВПН-через ВПН, т.е. один пункт не учтен

[elt 0]

а по топику: dhcp не вариант?

а как быть если абон захочет руками прописать IP и как назло попадет на тот который уже кому то роздан конфликт айпи, абон (то чей айпишник забрал продвинутый юзер)))в шоке крик "за что я плачу!"

[FreeLine 1]

#include <GUIConstants.au3>

;Opt('MustDeclareVars', 1)
Opt("GUIOnEventMode", 1)

$Form1 = GUICreate("Настройка сети FreeLine", 186, 266, 469, 333)
$Group1 = GUICtrlCreateGroup("Мониторинг трафика:", 8, 152, 169, 105)
$Label1 = GUICtrlCreateLabel("IP:", 16, 197, 20, 20)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel(@IPAddress1, 34, 197, 130, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008000)
$Label3 = GUICtrlCreateLabel("ИМЯ ПК:", 16, 176, 57, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel(@ComputerName, 72, 176, 98, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000080)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Создать VPN-подключение", 8, 16, 171, 25, 0)
GUICtrlSetOnEvent($Button1, "VPNcreate")
$Button2 = GUICtrlCreateButton("Проверить работу сети", 8, 48, 171, 25, 0)
GUICtrlSetOnEvent($Button2, "TestLocal")
$Button3 = GUICtrlCreateButton("Проверить работу интернета", 8, 80, 171, 25, 0)
GUICtrlSetOnEvent($Button3, "TestNet")
$Button4 = GUICtrlCreateButton("Получить логин/пароль", 8, 112, 171, 25, 0)
GUICtrlSetOnEvent($Button4, "GetLP")
GUISetState(@SW_SHOW)
GUISetOnEvent($GUI_EVENT_CLOSE, "OnExit")

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
	Case $GUI_EVENT_CLOSE
		Exit

EndSwitch
WEnd


;--------------- Функции ---------------

;~ TestLocal
Func TestLocal()
$var = Ping("192.168.0.1", 5)
If $var Then ; also possible:  If @error = 0 Then ...
   Msgbox(64,"Статус","ОНЛАЙН! Время ответа: " & $var & " мс.")
Else
   Msgbox(16,"Статус","Сеть недоступна!")
EndIf
EndFunc
;~ TestLocal
Func TestNet()
$var = Ping("google.ru", 1000)
If $var Then ; also possible:  If @error = 0 Then ...
   Msgbox(64,"Статус","ОНЛАЙН! Время ответа: " & $var & " мс.")
Else
   Msgbox(16,"Статус","Сеть недоступна!")
EndIf
EndFunc
;~ Exit
Func OnExit()
	Exit
EndFunc
;~ Получение Л/П
Func GetLP()
	MsgBox(64, "ERROR", "СКОРО БУДЕТ!")
EndFunc
;~ Создание VPN
Func VPNcreate()
Run ( "rundll32.exe netshell.dll,StartNCW" )
WinWaitActive("Мастер новых подключений")
Send("{ENTER}")
Send("{DOWN}")
Send("{ENTER}")
Send("{DOWN}")
Send("{ENTER}")
Send("FreeLine")
Send("{ENTER}")
Send("192.168.1.1")
Send("{ENTER}")
Send("{SPACE}")
Send("{ENTER}")
Run ( "control netconnections" )
WinWaitActive("Сетевые подключения")
EndFunc

 

Вот, пре-альфа-бета скриптика

В целом какбе неплохо, но вот нюанс, а что если у пользователя Виста или 7-рка? )

Так же проблема, если уже есть VPN/dialup подключение, то создается ВПН-через ВПН, т.е. один пункт не учтен

 

Я тоже думаю про это Все будет, возможности AutoIt огромные, так что буду пробовать!!!

И скрипт создания самого подключения переделаю, этот не правильный (тупой)...

Сейчас разбираюсь с проверкой существующих подключений...

[FreeLine 1]

а по топику: dhcp не вариант?

а как быть если абон захочет руками прописать IP и как назло попадет на тот который уже кому то роздан конфликт айпи, абон (то чей айпишник забрал продвинутый юзер)))в шоке крик "за что я плачу!"

 

Для этого и придумали умные свичи и привязку IP к порту...

У родителей дома "Триолан", раньше по ДХЦП давал настройки с привязкой к маку! А сейчас сделали лучше, настройки все статические и на порту стоит привязка к IP, так что в квартире могу подключать любой ПК, настройки вбил и все работает и не нужно звонить и говорить что так и так поменяйте мак, а то настройки не выдает...

[BUM 241]

В целом какбе неплохо, но вот нюанс, а что если у пользователя Виста или 7-рка? )

Так же проблема, если уже есть VPN/dialup подключение, то создается ВПН-через ВПН, т.е. один пункт не учтен

 

Я тоже думаю про это Все будет, возможности AutoIt огромные, так что буду пробовать!!!

И скрипт создания самого подключения переделаю, этот не правильный (тупой)...

Сейчас разбираюсь с проверкой существующих подключений...

Попробуйте Func VPNcreate() Заменить на нечто такое

 

;~ Создание VPN
Func VPNcreate()
if @OSVersion = "WIN_XP" OR @OSVersion = "WIN_2000" OR @OSVersion ="WIN_NT" Then
       Run ( "rundll32.exe netshell.dll,StartNCW" )
      	Sleep(2500) ;  WinWaitActive("Мастер новых подключений") - не катит, ибо у юзверя может быть английская/турецка/японская форточка
       Send("{ENTER}")
       Send("{DOWN}")
       Send("{ENTER}")
       Send("{DOWN}")
       Send("{ENTER}")
       Send("ISP_NAME")
       Send("{ENTER}")
Send("vpn.server.name")
       Send("{ENTER}")
       Send("{SPACE}")
       Send("{ENTER}")
       Run ( "control netconnections" )
       ; WinWaitActive("Сетевые подключения") - Зачем ждать с моря погоды если больше ничего не выполняется? 
Else	
	MsgBox(4096,"", "Похоже у Вас не Windows XP  ")
EndIf
EndFunc

[BUM 241]

а по топику: dhcp не вариант?

а как быть если абон захочет руками прописать IP и как назло попадет на тот который уже кому то роздан конфликт айпи, абон (то чей айпишник забрал продвинутый юзер)))в шоке крик "за что я плачу!"

в каком шоке? IP+MAC не наше? да и зачем юзеру что-то руцями прописывать, если он уже получил доступ в сеть по DHCP? ... Прям как в анекдоте: "Ну где же логика?"