eline "BaseProtocol=1"
.writeline "VpnStrategy=2"
.writeline "ExcludedProtocols=0"
.writeline "LcpExtensions=1"
.writeline "DataEncryption=8"
.writeline "SwCompression=1"
.writeline "NegotiateMultilinkAlways=0"
.writeline "SkipNwcWarning=0"
.writeline "SkipDownLevelDialog=0"
.writeline "SkipDoubleDialDialog=0"
.writeline "DialMode=1"
.writeline "DialPercent=75"
.writeline "DialSeconds=120"
.writeline "HangUpPercent=10"
.writeline "HangUpSeconds=120"
.writeline "OverridePref=15"
.writeline "RedialAttempts=3"
.writeline "RedialSeconds=60"
.writeline "IdleDisconnectSeconds=0"
.writeline "RedialOnLinkFailure=0"
.writeline "CallbackMode=0"
.writeline "CustomDialDll="
.writeline "CustomDialFunc="
.writeline "CustomRasDialDll="
.writeline "AuthenticateServer=0"
.writeline "ShareMsFilePrint=1"
.writeline "BindMsNetClient=1"
.writeline "SharedPhoneNumbers=0"
.writeline "GlobalDeviceSettings=0"
.writeline "PrerequisiteEntry="
.writeline "PrerequisitePbk="
.writeline "PreferredPort=VPN4-0"
.writeline "PreferredDevice=WAN Miniport (L2TP)"
.writeline "PreferredBps=0"
.writeline "PreferredHwFlow=1"
.writeline "PreferredProtocol=1"
.writeline "PreferredCompression=1"
.writeline "PreferredSpeaker=1"
.writeline "PreferredMdmProtocol=0"
.writeline "PreviewUserPw=1"
.writeline "PreviewDomain=0"
.writeline "PreviewPhoneNumber=0"
.writeline "ShowDialingProgress=1"
.writeline "ShowMonitorIconInTaskBar=1"
.writeline "CustomAuthKey=-1"
.writeline "AuthRestrictions=608"
.writeline "TypicalAuth=2"
.writeline "IpPrioritizeRemote=1"
.writeline "IpHeaderCompression=0"
.writeline "IpAddress=0.0.0.0"
.writeline "IpDnsAddress=0.0.0.0"
.writeline "IpDns2Address=0.0.0.0"
.writeline "IpWinsAddress=0.0.0.0"
.writeline "IpWins2Address=0.0.0.0"
.writeline "IpAssign=1"
.writeline "IpNameAssign=1"
.writeline "IpFrameSize=1006"
.writeline "IpDnsFlags=0"
.writeline "IpNBTFlags=1"
.writeline "TcpWindowSize=0"
.writeline "UseFlags=0"
.writeline "IpSecFlags=0"
.writeline "IpDnsSuffix="
.writeline ""
.writeline "NETCOMPONENTS="
.writeline "ms_server=1"
.writeline "ms_msclient=1"
.writeline "ms_psched=1"
.writeline ""
.writeline "MEDIA=rastapi"
.writeline "Port=VPN4-0"
.writeline "Device=WAN Miniport (L2TP)"
.writeline ""
.writeline "DEVICE=vpn"
.writeline "PhoneNumber="&x("ip").value
.writeline "AreaCode="
.writeline "CountryCode=1"
.writeline "CountryID=1"
.writeline "UseDialingRules=0"
.writeline "Comment="
.writeline "LastSelectedPhone=0"
.writeline "PromoteAlternates=0"
.writeline "TryNextAlternateOnFail=1"
.writeline ""
.close
End with
Set fso = Nothing
End Function
sub showHelp
msg = " 在同目录下建立ip.txt" & vbcrlf
msg = msg & "------------------------------------------------" & vbcrlf
msg = msg & " ip.txt里是vpn的ip列表，一行一个，可以在每行里加说明" & vbcrlf
msg = msg & "复制IP会自动粘贴到ip框里，是否成功的话，请看ip显示：" & vbcrlf
alert msg
end sub
</SCRIPT>
