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

Discussion in 'Windows' started by ASM16d, 8 Mar 2009.

  1. ASM16d

    ASM16d Member

    Joined:
    1 Sep 2008
    Messages:
    2
    Likes Received:
    5
    Reputations:
    0
    DELETED

    DELETED
     
    #1 ASM16d, 8 Mar 2009
    Last edited: 2 Oct 2011
  2. SpangeBoB

    SpangeBoB Elder - Старейшина

    Joined:
    12 Jul 2008
    Messages:
    1,680
    Likes Received:
    393
    Reputations:
    102
    Connection Manager Administrator Kit (CMAK)
     
    #2 SpangeBoB, 8 Mar 2009
  3. KaZ@NoVa

    KaZ@NoVa Elder - Старейшина

    Joined:
    5 Jul 2008
    Messages:
    368
    Likes Received:
    438
    Reputations:
    -16
    http://www.winline.ru/forum/forum1/topic2335/messages/ --http://www.cyberguru.ru/operating-systems/windows-server2008/server2008-cmak.html
     
    #3 KaZ@NoVa, 8 Mar 2009
    Last edited: 8 Mar 2009
  4. SpangeBoB

    SpangeBoB Elder - Старейшина

    Joined:
    12 Jul 2008
    Messages:
    1,680
    Likes Received:
    393
    Reputations:
    102
    Дали бы документация на производителя,которая гораздо лучше и полнее,а то приводят не пойми кого.

    http://technet.microsoft.com/en-us/library/cc739464.aspx
     
    #4 SpangeBoB, 8 Mar 2009
  5. SpangeBoB

    SpangeBoB Elder - Старейшина

    Joined:
    12 Jul 2008
    Messages:
    1,680
    Likes Received:
    393
    Reputations:
    102
    Плохо когда не хотят читать,а бросаются на форум .Все подробно расписанно в документации приведенной выше.

     
    #5 SpangeBoB, 8 Mar 2009
    1 person likes this.
  6. SpangeBoB

    SpangeBoB Elder - Старейшина

    Joined:
    12 Jul 2008
    Messages:
    1,680
    Likes Received:
    393
    Reputations:
    102
    Ладно если и читать не хотите,правельные решения,то

     
    #6 SpangeBoB, 8 Mar 2009
  7. SpangeBoB

    SpangeBoB Elder - Старейшина

    Joined:
    12 Jul 2008
    Messages:
    1,680
    Likes Received:
    393
    Reputations:
    102
    Дайте настройки пользователю в картинках.Вы не хотите ни слушать ,ни читать что вам говорят,вбили в голову не понятно что нужен сервер и все тут.И тупой сдесь вы,а не пользователь,ему это не надо.
     
    #7 SpangeBoB, 8 Mar 2009
    Last edited: 8 Mar 2009
  8. SpangeBoB

    SpangeBoB Elder - Старейшина

    Joined:
    12 Jul 2008
    Messages:
    1,680
    Likes Received:
    393
    Reputations:
    102
    Посадите рядом с собой кто умеет читать.

    Чтобы установить мастер 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 эту задачу решить нельзя.
     
    #8 SpangeBoB, 8 Mar 2009
  9. [NiGHT]DarkAngel

    [NiGHT]DarkAngel Elder - Старейшина

    Joined:
    29 Mar 2005
    Messages:
    131
    Likes Received:
    40
    Reputations:
    16
    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 на путь как в висте,выше в теме он был приведен ...
     
    #9 [NiGHT]DarkAngel, 13 Mar 2009
    Last edited: 13 Mar 2009
  10. BE@ST

    BE@ST New Member

    Joined:
    6 Oct 2009
    Messages:
    3
    Likes Received:
    0
    Reputations:
    0
    проблема с vista & 7 :(

    был файлик для создания соединения впн под хр и сейчас появилась необходимость сделать ещё и для vista & 7, но столкнулся с проблемой :(
    как не редактировал путь (сопостовлял пути хр и виста), скрипт в итоге выдает ошибку : Путь не найден
    спасибо за внимание.
     
    #10 BE@ST, 6 Oct 2009
  11. SpangeBoB

    SpangeBoB Elder - Старейшина

    Joined:
    12 Jul 2008
    Messages:
    1,680
    Likes Received:
    393
    Reputations:
    102
    Файл и скрипт приложите.
     
    #11 SpangeBoB, 6 Oct 2009
  12. BE@ST

    BE@ST New Member

    Joined:
    6 Oct 2009
    Messages:
    3
    Likes Received:
    0
    Reputations:
    0

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

    Code:
    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"
    п.с. путь там уже тот который пытался подобрать после экспериментов...
     
    #12 BE@ST, 7 Oct 2009
  13. SpangeBoB

    SpangeBoB Elder - Старейшина

    Joined:
    12 Jul 2008
    Messages:
    1,680
    Likes Received:
    393
    Reputations:
    102
    Проверьте точно путь "%ALLUSERSPROFILE%\AppData\Roaming\Microsoft\Networ k\Connections\Pbk.

    Я бы подставил:
    Set WshSysEnv = WshShell.Environment("Process")
    filename = WshSysEnv("SYSTEMDRIVE")+ WshSysEnv("HOMEPATH")+ "\Application Data\Microsoft\Network\Connections\Pbk\rasphone.pbk"
     
    #13 SpangeBoB, 7 Oct 2009
    Last edited: 7 Oct 2009
  14. BE@ST

    BE@ST New Member

    Joined:
    6 Oct 2009
    Messages:
    3
    Likes Received:
    0
    Reputations:
    0

    спасибо, вроде подошло :)
    буду проверять.
     
    #14 BE@ST, 7 Oct 2009
(You must log in or sign up to post here.)
Language
English (US)
    ANTICHAT ™ © 2001-2027 Antichat Kft.