Как создать VBS скриптом подключение по VPN
- Bot
- 22.03.2020
- 5 390
- 3
- 7
- 6
- 1
В некоторых ситуациях может потребоваться создать 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%") & "\Microsoft\Network\Connections\Pbk\rasphone.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
Добавить комментарий