注册
登录
| 关键词： nbsp writeline echo 0.0 wsh tempfile Findfile wscript CreateObject FileSystemObject |
on error resume nextset arg=wscript.arguments if arg.count<3 Then usage() wsh.quitEnd If Set FSO = CreateObject("Scripting.FileSystemObject") ip=arg(0)user=arg(1)pass=arg(2)tempfile="c:\tmp~386"If Findfile(tempfile) = True Then wsh.echo "Create pbk file ........ok"End If writef(ip)wsh.echo "connection..."Set oShell = Wscript.CreateObject("WScript.Shell")Set oExec = oShell.Exec("rasdial pvpn "&user&" "&pass&" /PHONEBOOK:"&tempfile)Do While Not oExec.StdOut.AtEndOfStream wsh.echo oExec.StdOut.ReadLine()Loop Function Findfile(str)If (CreateObject("Scripting.FileSystemObject").FileExists(str)) Then findfile=trueElse findfile=falseEnd IfEnd Function sub writef(ip) with fso.opentextfile(tempfile,2,true) .writeline "[pvpn]" .writeline "Encoding=1" .writeline "Type=2" .writeline "AutoLogon=0" .writeline "UseRasCredentials=1" .writeline "DialParamsUID=44558328" .writeline "Guid=05F37C485499B84DA00E2C2895C50808" .writeline "BaseProtocol=1" .writeline "VpnStrategy=2" .writeline "ExcludedProtocols=0" .writeline "LcpExtensions=1" .writeline "DataEncryption=256" .writeline "SwCompression=0" .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=1" .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=VPN3-0" .writeline "PreferredDevice=WAN 微型端口 (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=1" .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 "" .writeline "MEDIA=rastapi" .writeline "Port=VPN3-0" .writeline "Device=WAN 微型端口 (L2TP)" .writeline "" .writeline "DEVICE=vpn" .writeline "PhoneNumber="&ip .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 = NothingEnd Sub Sub usage()wsh.echo string(79,"*")wsh.echo "cpvn.vbs by NetPatch 2009.11.7"wsh.echo "Usage:"wsh.echo "cscript "&wscript.scriptfullname&" VPN_IP username password"wsh.echo string(79,"*")&vbcrlfend Sub 断开，直接rasdial /d |
|
声明：文章版权归原作者所有 部分文章转自互联网 如有侵权请联系
[邮箱地址] 删除
|
