ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2
Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей. Здесь обсуждаются безопасность, программирование, технологии и многое другое. Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
Вернуться   Форум АНТИЧАТ > Безопасность и Уязвимости > Администрирование > Windows системы
Перезагрузить страницу Программная настройка VPN-подключения
   
Ответ
Страница 2 из 2 < 1 2
 
Опции темы Поиск в этой теме Опции просмотра

  #11  
Старый 08.03.2009, 18:44
ASM16d
Новичок
Регистрация: 01.09.2008
Сообщений: 24
Провел на форуме:
100147

Репутация: 16
По умолчанию
Мануал в картинках есть, даже видео. А юзеры не могут настроить. Я если бы не знал, я бы не спрашивал.
На *** спрашивается маздайный сервер? Меня вполне устраивает сервак под линухом. И я бы не написал в этот раздел, если бы юзеры не сидели бы под окнами.
Мне нужен bat файл, чтобы человек его запустил и у него создалось бы подключение. И я спрашиваю, как это сделать?
PS если нечего сказать, лучше промолчать
Последний раз редактировалось SpangeBoB; 08.03.2009 в 19:11..
 
Ответить с цитированием

  #12  
Старый 08.03.2009, 19:20
SpangeBoB
Moderator - Level 7
Регистрация: 12.07.2008
Сообщений: 1,705
Провел на форуме:
5914048

Репутация: 1350


По умолчанию
Цитата:
Сообщение от ASM16d  
Мануал в картинках есть, даже видео. А юзеры не могут настроить. Я если бы не знал, я бы не спрашивал.
На *** спрашивается маздайный сервер? Меня вполне устраивает сервак под линухом. И я бы не написал в этот раздел, если бы юзеры не сидели бы под окнами.
Мне нужен bat файл, чтобы человек его запустил и у него создалось бы подключение. И я спрашиваю, как это сделать?
PS если нечего сказать, лучше промолчать
Посадите рядом с собой кто умеет читать.

Чтобы установить мастер CMAK на компьютер под управлением Windows XP Professional., необходимо установить средства администрирования Windows Server 2003 (Administration Tools Pack).

Если прочитать,то не требуется сервер Windows Server 2003.

Взять Tools Pack можно сдесь - http://www.microsoft.com/downloads/details.aspx?familyid=c16ae515-c8f4-47ef-a1e4-a8dcbacff8e3&displaylang=en

P.S не надо писать матные слова,про сервера linux,никто не виноват ,что вы плохо читаете.
Bat эту задачу решить нельзя.
 
Ответить с цитированием

  #13  
Старый 08.03.2009, 20:02
ASM16d
Новичок
Регистрация: 01.09.2008
Сообщений: 24
Провел на форуме:
100147

Репутация: 16
По умолчанию
Прошу прощения за свое такое поведение я был не прав...
Попробовал CMAK, действительно, почти получилось..
Но осталось одно НО: подключение создается, но пытается соединиться с VPN-сервером через dial-up модем. Если в настройках выбрать "у меня уже есть соединение с Интернетом", то все работает. Как это автоматизировать?
 
Ответить с цитированием

  #14  
Старый 13.03.2009, 10:32
[NiGHT]DarkAngel
Участник форума
Регистрация: 29.03.2005
Сообщений: 138
Провел на форуме:
812087

Репутация: 129
По умолчанию
PHP код:
Set WshShell = WScript.CreateObject("WScript.Shell")

Set objWshSpecialFolders = WshShell.SpecialFolders
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile(objWshSpecialFolders("AllUsersDesktop") & "\..\Application Data\Microsoft\Network\Connections\Pbk\rasphone.pbk", 8, true)
file.WriteLine("[vpn]") 
file.WriteLine("Encoding=1") 
file.WriteLine("Type=2") 
file.WriteLine("AutoLogon=0") 
file.WriteLine("UseRasCredentials=1") 
file.WriteLine("DialParamsUID=8015285") 
file.WriteLine("Guid=D4D883519D4D964194E7B9669482A6FD") 
file.WriteLine("BaseProtocol=1") 
file.WriteLine("VpnStrategy=2") 
file.WriteLine("ExcludedProtocols=0") 
file.WriteLine("LcpExtensions=1") 
file.WriteLine("DataEncryption=8") 
file.WriteLine("SwCompression=1") 
file.WriteLine("NegotiateMultilinkAlways=0") 
file.WriteLine("SkipNwcWarning=0") 
file.WriteLine("SkipDownLevelDialog=0") 
file.WriteLine("SkipDoubleDialDialog=0") 
file.WriteLine("DialMode=1") 
file.WriteLine("DialPercent=75") 
file.WriteLine("DialSeconds=120") 
file.WriteLine("HangUpPercent=10") 
file.WriteLine("HangUpSeconds=120") 
file.WriteLine("OverridePref=15") 
file.WriteLine("RedialAttempts=3") 
file.WriteLine("RedialSeconds=60") 
file.WriteLine("IdleDisconnectSeconds=0") 
file.WriteLine("RedialOnLinkFailure=0") 
file.WriteLine("CallbackMode=0") 
file.WriteLine("CustomDialDll=") 
file.WriteLine("CustomDialFunc=") 
file.WriteLine("CustomRasDialDll=") 
file.WriteLine("AuthenticateServer=0") 
file.WriteLine("ShareMsFilePrint=1") 
file.WriteLine("BindMsNetClient=1") 
file.WriteLine("SharedPhoneNumbers=0") 
file.WriteLine("GlobalDeviceSettings=0") 
file.WriteLine("PrerequisiteEntry=") 
file.WriteLine("PrerequisiteEntry") 
file.WriteLine("PrerequisitePbk=") 
file.WriteLine("PreferredPort=VPN4-0") 
file.WriteLine("PreferredDevice=Минипорт WAN (L2TP)") 
file.WriteLine("PreferredBps=0") 
file.WriteLine("PreferredHwFlow=1") 
file.WriteLine("PreferredProtocol=1") 
file.WriteLine("PreferredCompression=1") 
file.WriteLine("PreferredSpeaker=1") 
file.WriteLine("PreferredMdmProtocol=0") 
file.WriteLine("PreviewUserPw=1") 
file.WriteLine("PreviewDomain=0") 
file.WriteLine("PreviewPhoneNumber=0") 
file.WriteLine("ShowDialingProgress=0") 
file.WriteLine("ShowMonitorIconInTaskBar=1") 
file.WriteLine("CustomAuthKey=-1") 
file.WriteLine("AuthRestrictions=608") 
file.WriteLine("TypicalAuth=2") 
file.WriteLine("IpPrioritizeRemote=1") 
file.WriteLine("IpHeaderCompression=0") 
file.WriteLine("IpAddress=0.0.0.0") 
file.WriteLine("IpDnsAddress=0.0.0.0") 
file.WriteLine("IpDns2Address=0.0.0.0") 
file.WriteLine("IpWinsAddress=0.0.0.0") 
file.WriteLine("IpWins2Address=0.0.0.0") 
file.WriteLine("IpAssign=1") 
file.WriteLine("IpNameAssign=1") 
file.WriteLine("IpFrameSize=1006") 
file.WriteLine("IpDnsFlags=0") 
file.WriteLine("IpNBTFlags=1") 
file.WriteLine("TcpWindowSize=0") 
file.WriteLine("UseFlags=0") 
file.WriteLine("IpSecFlags=0") 
file.WriteLine("IpDnsSuffix=") 
file.WriteBlankLines(1) 
file.WriteLine("NETCOMPONENTS=") 
file.WriteLine("ms_server=1") 
file.WriteLine("ms_msclient=1") 
file.WriteLine("ms_psched=1") 
file.WriteLine("cntx_vpcnets2=1") 
file.WriteBlankLines(1) 
file.WriteLine("MEDIA=rastapi") 
file.WriteLine("Port=VPN4-0") 
file.WriteLine("Device=Минипорт WAN (L2TP)") 
file.WriteBlankLines(1) 
file.WriteLine("DEVICE=vpn") 
file.WriteLine("PhoneNumber=217.114.0.1")  // Тут уберешь комент и пропишешь адрес vpn сервера
file.WriteLine("AreaCode=") 
file.WriteLine("CountryCode=1") 
file.WriteLine("CountryID=1") 
file.WriteLine("UseDialingRules=0") 
file.WriteLine("Comment=") 
file.WriteLine("LastSelectedPhone=0") 
file.WriteLine("PromoteAlternates=0") 
file.WriteLine("TryNextAlternateOnFail=1") 
file.WriteBlankLines(2)

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colNetAdapters = objWMIService.ExecQuery _
    ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

//настройки сетевки если не надо уберай 
strIPAddress = Array("10.0.135.223")  
strSubnetMask = Array("255.255.255.0")
arrDNSServerSearchOrder = Array("217.114.10.10")
strGateway = Array("10.0.135.1")
strGatewayMetric = Array(1)
 
For Each objNetAdapter in colNetAdapters
    errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
    errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
    errDNS = objNetAdapter.SetDNSServerSearchOrder(arrDNSServerSearchOrder)
    If errEnable = 0 Then
    End If
Next
// вот посюда убираешь


'WshShell.Run "%SystemRoot%\explorer.exe ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\::{21EC2020-3AEA-1069-A2DD-08002B30309D}\::{7007acc7-3202-11d1-aad2-00805fc1270e}"

WScript.Echo "VPN соединение было успешно создано.."
WshShell.Run "%windir%\system32\rasphone.exe -d vpn" 
вот попробуй может пригодиться настройка vpn скриптом даже сетевку автоматом можно настроить ... настройки автоматического логина и пароля можно в гугле найти ...

Только если для висты будешь делать поменяй
\..\Application Data\Microsoft\Network\Connections\Pbk\rasphone.pb на путь как в висте,выше в теме он был приведен ...
Последний раз редактировалось [NiGHT]DarkAngel; 13.03.2009 в 10:35..
 
Ответить с цитированием

проблема с vista & 7 :(
  #15  
Старый 06.10.2009, 22:51
BE@ST
Новичок
Регистрация: 06.10.2009
Сообщений: 3
Провел на форуме:
2440

Репутация: 0
Unhappy проблема с vista & 7 :(
был файлик для создания соединения впн под хр и сейчас появилась необходимость сделать ещё и для vista & 7, но столкнулся с проблемой
как не редактировал путь (сопостовлял пути хр и виста), скрипт в итоге выдает ошибку : Путь не найден
спасибо за внимание.
 
Ответить с цитированием

  #16  
Старый 06.10.2009, 23:42
SpangeBoB
Moderator - Level 7
Регистрация: 12.07.2008
Сообщений: 1,705
Провел на форуме:
5914048

Репутация: 1350


По умолчанию
Цитата:
Сообщение от BE@ST  
был файлик для создания соединения впн под хр и сейчас появилась необходимость сделать ещё и для vista & 7, но столкнулся с проблемой
как не редактировал путь (сопостовлял пути хр и виста), скрипт в итоге выдает ошибку : Путь не найден
спасибо за внимание.
Файл и скрипт приложите.
 
Ответить с цитированием

  #17  
Старый 07.10.2009, 09:28
BE@ST
Новичок
Регистрация: 06.10.2009
Сообщений: 3
Провел на форуме:
2440

Репутация: 0
По умолчанию
Цитата:
Сообщение от SpangeBoB  
Файл и скрипт приложите.

содержимое скрипта :

Код:
Set WshShell = WScript.CreateObject("WScript.Shell")

Dim Res,Text,Title
Text="Автоматическая настройка VPN-соединения для доступа в Интернет."
Title="Автоматическая настройка VPN-соединения"
Res=MsgBox(Text,vbOkCancel+vbInformation+vbDefaultButton2,Title)
If Res=vbOk Then
 
Else
     WScript.Quit()

End If

Const ForReading = 1, ForWriting = 2, ForAppend = 8
Set fso       = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objWshSpecialFolders = WshShell.SpecialFolders
fileName = objWshSpecialFolders("AllUsersDesktop") & "%ALLUSERSPROFILE%\AppData\Roaming\Microsoft\Network\Connections\Pbk\rasphone.pbk"
Set file  = fso.OpenTextFile(fileName, ForAppend, True)


file.WriteLine("[vpn]")
file.WriteLine("Encoding=1")
file.WriteLine("Type=2")
file.WriteLine("AutoLogon=0")
file.WriteLine("UseRasCredentials=1")
file.WriteLine("DialParamsUID=5180937")
file.WriteLine("Guid=0FED071028B61744930E8D867D61A247")
file.WriteLine("BaseProtocol=1")
file.WriteLine("VpnStrategy=2")
file.WriteLine("ExcludedProtocols=0")
file.WriteLine("LcpExtensions=1")
file.WriteLine("DataEncryption=8")
file.WriteLine("SwCompression=1")
file.WriteLine("NegotiateMultilinkAlways=0")
file.WriteLine("SkipNwcWarning=0")
file.WriteLine("SkipDownLevelDialog=0")
file.WriteLine("SkipDoubleDialDialog=0")
file.WriteLine("DialMode=1")
file.WriteLine("DialPercent=75")
file.WriteLine("DialSeconds=120")
file.WriteLine("HangUpPercent=10")
file.WriteLine("HangUpSeconds=120")
file.WriteLine("OverridePref=15")
file.WriteLine("RedialAttempts=3")
file.WriteLine("RedialSeconds=60")
file.WriteLine("IdleDisconnectSeconds=0")
file.WriteLine("RedialOnLinkFailure=0")
file.WriteLine("CallbackMode=0")
file.WriteLine("CustomDialDll=")
file.WriteLine("CustomDialFunc=")
file.WriteLine("CustomRasDialDll=")
file.WriteLine("AuthenticateServer=0")
file.WriteLine("ShareMsFilePrint=1")
file.WriteLine("BindMsNetClient=1")
file.WriteLine("SharedPhoneNumbers=0")
file.WriteLine("GlobalDeviceSettings=0")
file.WriteLine("PrerequisiteEntry=")
file.WriteLine("PrerequisitePbk=")
file.WriteLine("PreferredPort=VPN4-0")
file.WriteLine("PreferredDevice=Минипорт WAN (L2TP)")
file.WriteLine("PreferredBps=0")
file.WriteLine("PreferredHwFlow=1")
file.WriteLine("PreferredProtocol=1")
file.WriteLine("PreferredCompression=1")
file.WriteLine("PreferredSpeaker=1")
file.WriteLine("PreferredMdmProtocol=0")
file.WriteLine("PreviewUserPw=1")
file.WriteLine("PreviewDomain=0")
file.WriteLine("PreviewPhoneNumber=0")
file.WriteLine("ShowDialingProgress=1")
file.WriteLine("ShowMonitorIconInTaskBar=1")
file.WriteLine("CustomAuthKey=-1")
file.WriteLine("AuthRestrictions=608")
file.WriteLine("TypicalAuth=2")
file.WriteLine("IpPrioritizeRemote=1")
file.WriteLine("IpHeaderCompression=0")
file.WriteLine("IpAddress=0.0.0.0")
file.WriteLine("IpDnsAddress=0.0.0.0")
file.WriteLine("IpDns2Address=0.0.0.0")
file.WriteLine("IpWinsAddress=0.0.0.0")
file.WriteLine("IpWins2Address=0.0.0.0")
file.WriteLine("IpAssign=1")
file.WriteLine("IpNameAssign=1")
file.WriteLine("IpFrameSize=1006")
file.WriteLine("IpDnsFlags=0")
file.WriteLine("IpNBTFlags=1")
file.WriteLine("TcpWindowSize=0")
file.WriteLine("UseFlags=0")
file.WriteLine("IpSecFlags=0")
file.WriteLine("IpDnsSuffix=")
file.WriteBlankLines(1) 
file.WriteLine("NETCOMPONENTS")
file.WriteLine("ms_server=1")
file.WriteLine("ms_msclient=1")
file.WriteBlankLines(1)
file.WriteLine("MEDIA=rastapi")
file.WriteLine("Port=VPN4-0")
file.WriteLine("Device=Минипорт WAN (L2TP)")
file.WriteBlankLines(1)
file.WriteLine("DEVICE=vpn")
file.WriteLine("PhoneNumber=10.10.10.30")
file.WriteLine("AreaCode=")
file.WriteLine("CountryCode=1")
file.WriteLine("CountryID=1")
file.WriteLine("UseDialingRules=0")
file.WriteLine("Comment=")
file.WriteLine("LastSelectedPhone=0")
file.WriteLine("PromoteAlternates=0")
file.WriteLine("TryNextAlternateOnFail=1")
file.WriteBlankLines(2)

file.Close

WScript.Echo "     VPN соединение создано!"
WshShell.Run "%windir%\system32\rasphone.exe -d vpn"
п.с. путь там уже тот который пытался подобрать после экспериментов...
 
Ответить с цитированием

  #18  
Старый 07.10.2009, 09:59
SpangeBoB
Moderator - Level 7
Регистрация: 12.07.2008
Сообщений: 1,705
Провел на форуме:
5914048

Репутация: 1350


По умолчанию
Проверьте точно путь "%ALLUSERSPROFILE%\AppData\Roaming\Microsoft\Netwo r k\Connections\Pbk.

Я бы подставил:
Set WshSysEnv = WshShell.Environment("Process")
filename = WshSysEnv("SYSTEMDRIVE")+ WshSysEnv("HOMEPATH")+ "\Application Data\Microsoft\Network\Connections\Pbk\rasphone.pb k"
Последний раз редактировалось SpangeBoB; 07.10.2009 в 10:16..
 
Ответить с цитированием

  #19  
Старый 07.10.2009, 20:40
BE@ST
Новичок
Регистрация: 06.10.2009
Сообщений: 3
Провел на форуме:
2440

Репутация: 0
Smile
Цитата:
Сообщение от SpangeBoB  
Проверьте точно путь "%ALLUSERSPROFILE%\AppData\Roaming\Microsoft\Netwo r k\Connections\Pbk.

Я бы подставил:
Set WshSysEnv = WshShell.Environment("Process")
filename = WshSysEnv("SYSTEMDRIVE")+ WshSysEnv("HOMEPATH")+ "\Application Data\Microsoft\Network\Connections\Pbk\rasphone.pb k"

спасибо, вроде подошло
буду проверять.
 
Ответить с цитированием
Ответ
Страница 2 из 2 < 1 2



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Поднимаем VPN + биллинг UTM5 на win2003 svesve Чужие Статьи 4 19.12.2009 08:02
Ошибки Windows 2 SVipeR Windows 9 02.03.2009 19:28
Internet Anonym VPN 300 Dmitriy507 Анонимность 6 23.01.2009 03:35
Демон Tinc (другой VPN) установка, настройка для Win -=lebed=- Анонимность 6 16.08.2007 18:52
Настройка VPN для SP2 Help! ~!DoK_tOR!~ Анонимность 4 14.11.2006 06:19



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ