ipmanyak
Platinum Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
В админах спрашивали, публикую и тут vbs скрипт - create_vpn.vbs , запускать из cmd от админа, взят отсюда
https://www.experts-exchange.com/questions/23274656/How-can-i-create-VPN-objects-in-Network-Connections-via-command-line.html
После выполнения скрипта появится надпись "File modified." Нужно зайти в Центр управления сетями и общими доступом, в Изменения параметров адаптеров и жмакнуть Обновить, после чего появится значок "MyVPN"
Проверено на Windows 7, в WIN 10 не проверял
Код:
strVPNName = "MyVPN"
strHost = "123.45.67.89"
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
|
----------
В сортире лучше быть юзером, чем админом... |
|
Всего записей: 11972 | Зарегистр. 10-12-2003 | Отправлено: 10:00 23-03-2020 | Исправлено: ipmanyak, 13:53 23-03-2020 |
|
