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"