В некоторых ситуациях может потребоваться создать VPN подключение с помощью VBS скрипта и в данной статье будут даны рекомендации, как можно это сделать.
Как создать VBS скриптом подключение по VPN
Необходимо создать файл с любым названием и расширением .vbs, а после этого вставить в него содержимое, которое приведено ниже. После запуска данного скрипта, в настройках сети появится VPN соединение с названием New_VPN и подключающееся на IP адрес 10.20.10.20, которое можно будет запустить руками или же с помощью другого скрипта, bat-файла и так далее.
strVPNName = "New_VPN" strHost = "10.20.10.20" Set objShell = CreateObject("Wscript.Shell") Set objFSO = CreateObject("Scripting.FileSystemObject") Const intForReading = 1 Const intForAppending = 8 strFile = objShell.ExpandEnvironmentStrings("%APPDATA%") & "MicrosoftNetworkConnectionsPbkrasphone.pbk" boolWrite = True If objFSO.FileExists(strFile) = True Then Set objRASFile = objFSO.OpenTextFile(strFile, intForReading, False) strContents = objRASFile.ReadAll objRASFile.Close Set objRASFile = Nothing If InStr(LCase(strContents), LCase(strVPNName)) > 0 Then boolWrite = False End If If boolWrite = True Then strContents = VbCrLf & _ "[" & strVPNName & "]" & vbCrLf & _ "Encoding=1" & vbCrLf & _ "Type=2" & vbCrLf & _ "AutoLogon=0" & vbCrLf & _ "UseRasCredentials=1" & vbCrLf & _ "DialParamsUID=5021906" & vbCrLf & _ "Guid=F29BC5711801294C8AF6648CE3F336FF" & vbCrLf & _ "BaseProtocol=1" & vbCrLf & _ "VpnStrategy=2" & vbCrLf & _ "ExcludedProtocols=0" & vbCrLf & _ "LcpExtensions=1" & vbCrLf & _ "DataEncryption=256" & vbCrLf & _ "SwCompression=1" & vbCrLf & _ "NegotiateMultilinkAlways=0" & vbCrLf & _ "SkipNwcWarning=0" & vbCrLf & _ "SkipDownLevelDialog=0" & vbCrLf & _ "SkipDoubleDialDialog=0" & vbCrLf & _ "DialMode=1" & vbCrLf & _ "DialPercent=75" & vbCrLf & _ "DialSeconds=120" & vbCrLf & _ "HangUpPercent=10" & vbCrLf & _ "HangUpSeconds=120" & vbCrLf & _ "OverridePref=15" & vbCrLf & _ "RedialAttempts=3" & vbCrLf & _ "RedialSeconds=60" & vbCrLf & _ "IdleDisconnectSeconds=0" & vbCrLf & _ "RedialOnLinkFailure=0" & vbCrLf & _ "CallbackMode=0" & vbCrLf & _ "CustomDialDll=" & vbCrLf & _ "CustomDialFunc=" & vbCrLf & _ "CustomRasDialDll=" & vbCrLf & _ "AuthenticateServer=0" & vbCrLf & _ "ShareMsFilePrint=1" & vbCrLf & _ "BindMsNetClient=1" & vbCrLf & _ "SharedPhoneNumbers=0" & vbCrLf & _ "GlobalDeviceSettings=0" & vbCrLf & _ "PrerequisiteEntry=" & vbCrLf & _ "PrerequisitePbk=" & vbCrLf & _ "PreferredPort=VPN4-0" & vbCrLf & _ "PreferredDevice=WAN Miniport (L2TP)" & vbCrLf & _ "PreferredBps=0" & vbCrLf & _ "PreferredHwFlow=1" & vbCrLf & _ "PreferredProtocol=1" & vbCrLf & _ "PreferredCompression=1" & vbCrLf & _ "PreferredSpeaker=1" & vbCrLf & _ "PreferredMdmProtocol=0" & vbCrLf & _ "PreviewUserPw=1" & vbCrLf & _ "PreviewDomain=0" & vbCrLf & _ "PreviewPhoneNumber=0" & vbCrLf & _ "ShowDialingProgress=1" & vbCrLf & _ "ShowMonitorIconInTaskBar=1" & vbCrLf & _ "CustomAuthKey=-1" & vbCrLf & _ "AuthRestrictions=608" & vbCrLf & _ "TypicalAuth=2" & vbCrLf & _ "IpPrioritizeRemote=1" & vbCrLf & _ "IpHeaderCompression=0" & vbCrLf & _ "IpAddress=0.0.0.0" & vbCrLf & _ "IpDnsAddress=0.0.0.0" & vbCrLf & _ "IpDns2Address=0.0.0.0" & vbCrLf & _ "IpWinsAddress=0.0.0.0" & vbCrLf & _ "IpWins2Address=0.0.0.0" & vbCrLf & _ "IpAssign=1" & vbCrLf & _ "IpNameAssign=1" & vbCrLf & _ "IpFrameSize=1006" & vbCrLf & _ "IpDnsFlags=0" & vbCrLf & _ "IpNBTFlags=1" & vbCrLf & _ "TcpWindowSize=0" & vbCrLf & _ "UseFlags=0" & vbCrLf & _ "IpSecFlags=0" & vbCrLf & _ "IpDnsSuffix=" & vbCrLf & _ "" & VbCrLf & _ "NETCOMPONENTS=" & VbCrLf & _ "ms_server=1" & VbCrLf & _ "ms_msclient=1" & VbCrLf & _ "" & VbCrLf & _ "MEDIA=rastapi" & VbCrLf & _ "Port=VPN4-0" & VbCrLf & _ "Device=WAN Miniport (L2TP)" & VbCrLf & _ "" & VbCrLf & _ "DEVICE=vpn" & VbCrLf & _ "PhoneNumber=" & strHost & VbCrLf & _ "AreaCode=" & VbCrLf & _ "CountryCode=61" & VbCrLf & _ "CountryID=61" & VbCrLf & _ "UseDialingRules=0" & VbCrLf & _ "Comment=" & VbCrLf & _ "LastSelectedPhone=0" & VbCrLf & _ "PromoteAlternates=0" & VbCrLf & _ "TryNextAlternateOnFail=1" Set objRASFile = objFSO.OpenTextFile(strFile, intForAppending, True) objRASFile.Write strContents objRASFile.Close Set objRASFile = Nothing MsgBox "File modified." Else MsgBox "File not modified." End If
Добавить комментарий