Jump to content

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

turbonet

By turbonet,
in Software

 Share Followers 0

Recommended Posts

turbonet

turbonet 0

Posted
Posted

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

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

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

Link to post
Share on other sites
Enferno

Enferno 163

Posted
Posted

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

Link to post
Share on other sites
turbonet

turbonet 0

Posted
  • Author
Posted

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

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

Link to post
Share on other sites
roneaf

roneaf 2

Posted
Posted

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

@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

Link to post
Share on other sites
vop

vop 370

Posted
Posted

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

 

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

Link to post
Share on other sites
  • 1 month later...
winbox

winbox 15

Posted
Posted

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

 

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

 

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

 

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

Link to post
Share on other sites
911

911 140

Posted
Posted

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

 

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

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

 

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

Link to post
Share on other sites
rtrt

rtrt 53

Posted
Posted

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

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

 

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

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

http://autoit-script.ru/

 

 

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

Link to post
Share on other sites
gall

gall 6

Posted
Posted

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

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

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

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

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

Link to post
Share on other sites
FreeLine

FreeLine 1

Posted
Posted 

#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

 

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

Link to post
Share on other sites
gall

gall 6

Posted
Posted 

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}")

 

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

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

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

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

Link to post
Share on other sites
BUM

BUM 241

Posted
Posted

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

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

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

Link to post
Share on other sites
elt

elt 0

Posted
Posted

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

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

Link to post
Share on other sites
FreeLine

FreeLine 1

Posted
Posted 

#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-рка? :blink:)

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

 

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

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

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

Link to post
Share on other sites
FreeLine

FreeLine 1

Posted
Posted

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

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

 

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

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

Link to post
Share on other sites
BUM

BUM 241

Posted
Posted

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

Так же проблема, если уже есть 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

Link to post
Share on other sites
BUM

BUM 241

Posted
Posted

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

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

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

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Followers 0
Go to topic listing

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...